Author Topic: WinH  (Read 12712 times)

0 Members and 1 Guest are viewing this topic.

John

  • Hero Member
  • *****
  • Posts: 3194
Re: WinH
« Reply #30 on: September 21, 2013, 08:31:43 AM »
 ;D

I hear the same thing all the time when some kid learns how to root his phone and thinks he is a Linux guru.


John

  • Hero Member
  • *****
  • Posts: 3194
Re: WinH
« Reply #31 on: September 21, 2013, 09:41:33 AM »
Let's digress.

Kent mentioned that he wouldn't be able to look at your stuff right now as his interests this weekend are on Linux. I took that as he was concerned that without his feedback you may lose interest in your project and make everyone else's life miserable again. You took that as an opportunity to expose your limited knowledge of Linux and make a fool of yourself like you did on the thinBasic forum with Eros scolding you for it.

Just so you know, you don't have to ping each thread with your opinions that offer no value to the subject being discussed. We know you're out there and hope you spend more time with the RubinDev project and the members there that need your assistance.


John

  • Hero Member
  • *****
  • Posts: 3194
Re: WinH
« Reply #32 on: September 21, 2013, 09:54:08 AM »
Thank You!

I'm glad we got that worked out.


John

  • Hero Member
  • *****
  • Posts: 3194
Re: WinH
« Reply #33 on: September 21, 2013, 10:14:16 AM »
Quote
Hmmm...what's left...yeah...Listview..ok

Documentation


John

  • Hero Member
  • *****
  • Posts: 3194
Re: WinH
« Reply #34 on: September 21, 2013, 12:38:54 PM »
It would be better if you could provide your help in text or HTML format so that it can be merged in with whatever documentation effort O2 takes.


kryton9

  • Hero Member
  • *****
  • Posts: 721
Re: WinH
« Reply #35 on: September 21, 2013, 11:41:51 PM »
I am still planning a program:

Use sqlite3 as database engine, this will store all help information for documentation.
It will have nice forms you just fill in your information.

Then it will ouput html page for each topic formated according to a master css file for uniform style.
And also make a master index page for all of the help.

I working on making the app cross platform to make it usable for anything.

Just haven't figured out the best compiled cross platform setup yet to make it self contained executable
in the three major OS's. Leaning towards freepascal and lazarus developing in Ubuntu.

I wrote Remmer in windows with lazarus, but for the life of me and other good lazarus users we couldn't get it to compile
in linux or apple. So I think developing in linux should prevent such misfortunes hopefully in the future.

Peter

  • Full Member
  • ***
  • Posts: 161
Re: WinH
« Reply #36 on: September 24, 2013, 10:43:24 AM »
Runs!

But it is not  precise for drawing a master piece.
Child Window is no good idea for a drawing program.   


Peter

  • Full Member
  • ***
  • Posts: 161
Re: WinH
« Reply #37 on: September 24, 2013, 11:34:49 AM »
It runs with pwinh something cleaner.  ;D

kryton9

  • Hero Member
  • *****
  • Posts: 721
Re: WinH
« Reply #38 on: September 25, 2013, 06:03:08 PM »
I like that effect, perfect for the upcoming Halloween here in the United States.

John

  • Hero Member
  • *****
  • Posts: 3194
Re: WinH
« Reply #39 on: April 03, 2014, 12:28:08 PM »
Quote
Using awinh is a piece of cacke to create RichEdit based text editor...

I'm confused.

A. cake
B. crap
C. ?

Aurel

  • Guest
Re: WinH
« Reply #40 on: October 10, 2015, 02:02:20 PM »
Well... inspired by Arnold BCX GUI framework i think that winH or called awinh
or whatever you whish deserve that is presented here on forum because it is
very simple and easy to use for GUI application.
I know that is not the best and need some additions but work  :)

here is the first example which show larger version without one small include
file called miniH.inc which contain few drawing functions / nothing special /..

Code: [Select]
$ Filename "simple.exe" ' Oxygen Basic
Include "RTL32.inc"
Include "awinh.inc"
#lookahead
'GLOBALS for drawing to DC /// also caN BE INSIDE INCLUDE FILE // 
INT hdc, hdcMem, hbmMem,   oldBmp, oldBrush, oldPen, oldFont, fColor,bColor
INT textX,textY,hBrush
INT ww,hh
INT win,x=0,y=0,w=400,h=300,wstyle = WS_MINMAXSIZE,
win=SetWindow("Simple GUI App...",x,y,w,h,0,wstyle)
InitDrawing(win)
TextOn(win,100,100, "Hello World from BCX!")

Wait()  'message loop
Function WndProc (sys hwnd,wmsg,wparam,lparam) as sys callback
Select hwnd
Case win
Select wmsg
CASE WM_PAINT
BitBlt(hDC, 0, 0, ww, hh, hdcMem, 0, 0, SRCCOPY)

Case WM_CLOSE
CloseWindow(win)
EndProgram
End Select
End Select
Return Default
End Function
'====================================================
'== NEXT BLOCK OF CODE YOU CAN PUT IN INCLUDE FILE ==
'====================================================
SUB InitDrawing(byval wnd as INT)
'INT ww,hh
''get current size of window
GetSize(wnd,0,0,ww,hh)
'get window DC
hdc=GetDC(wnd)
hdcMem = CreateCompatibleDC(0)
hbmMem = CreateCompatibleBitmap(hdc, ww, hh)
oldBmp = SelectObject( hdcMem, hbmMem )
oldBrush = SelectObject(hdcMem, CreateSolidBrush( RGB(231,223,231)) )
oldPen = SelectObject(hdcMem, CreatePen(PS_SOLID,1,RGB(231,223,231)))
'fill rectangle memDC with brush color
FillRect ( hdcMem,rc, oldBrush)
SetTextColor( hDC,RGB(0,0,0))
SetBkColor( hDC, RGB(231,223,231))
'blit to memDC
BitBlt(hDCmem, 0, 0, ww, hh, hdc, 0, 0, SRCCOPY)

ReleaseDC( wnd, hdc)
End SUB

'=================================================
SUB TextColor (wID as INT,byval frontColor as sys)
hdc = GetDC(wID)
sys bColor
fColor=frontColor
bColor = RGB(231,223,231)
SetTextColor( hDC, frontColor)
SetBkColor( hDC, bColor)

BitBlt(hDCmem, 0, 0, ww, hh, hdc, 0, 0, SRCCOPY)

ReleaseDC( wID, hdc)

End SUB
'=================================================
Sub TextOn( int wnd,sys x, y, string txt)
'INT ww,hh
hdc=GetDC(wnd)
GetSize(wnd,0,0,ww,hh)
TextOut sys_hdc,x,y,txt,Len(txt)
BitBlt(hDCmem, 0, 0, ww, hh, hdc, 0, 0, SRCCOPY)
ReleaseDC(wnd,Hdc)
End Sub

'=================================================
SUB LineXY (wID as INT,Lx as INT,Ly as INT,Lx1 as INT,Ly1 as INT)

hdc = GetDC(wID)
GetSize(wID,0,0,ww,hh)
SelectObject(hdc, CreatePen(PS_SOLID,1,fColor))

MoveToEx hdc,Lx,Ly,Byval 0
LineTo hdc,Lx1,Ly1

BitBlt(hDCmem, 0, 0, ww, hh, hdc, 0, 0, SRCCOPY)
ReleaseDC( wID, hdc)
End SUB
'=================================================
SUB Pset (wID as int , px as int ,py as int)
hdc = GetDC(wID)
'GetSize(wID,0,0,ww,hh)
SetPixel ( hdc, px, py, fColor)

BitBlt(hDCmem, 0, 0, ww, hh, hdc, 0, 0, SRCCOPY)

ReleaseDC( wID, hdc)

End SUB
'//////////////////////////////////////////////
SUB CleanUp
DeleteDC(hdcMem)
DeleteObject(SelectObject(hdcMem, oldBrush))
DeleteObject(SelectObject(hdcMem, oldPen))
DeleteObject(SelectObject(hdcMem, oldBmp))
End SUB

Aurel

  • Guest
Re: WinH
« Reply #41 on: October 10, 2015, 02:07:38 PM »
then ...here is a version with minh.inc file...

Code: [Select]
$ Filename "simple2.exe" ' Oxygen Basic
Include "RTL32.inc"
Include "awinh.inc"
Include "minih.inc"
#lookahead
INT win,x=0,y=0,w=400,h=300,wstyle = WS_MINMAXSIZE,
win=SetWindow("Simple GUI App...",x,y,w,h,0,wstyle)
InitDrawing(win)
TextOn(win,100,100, "Hello World from Oxygen!")

Wait()  'message loop
Function WndProc (sys hwnd,wmsg,wparam,lparam) as sys callback
Select hwnd
Case win
Select wmsg
CASE WM_PAINT
BitBlt(hDC, 0, 0, ww, hh, hdcMem, 0, 0, SRCCOPY)

Case WM_CLOSE
CloseWindow(win)
EndProgram
End Select
End Select
Return Default
End Function

..so as you can see  ... SIMPLE ...  :)

[attachment deleted by admin]

Aurel

  • Guest
Re: WinH
« Reply #42 on: October 10, 2015, 02:11:15 PM »
..of course you can add some colors to text..  :D

Code: [Select]
$ Filename "simple2.exe" ' Oxygen Basic
Include "RTL32.inc"
Include "awinh.inc"
Include "minih.inc"
#lookahead
INT win,x=0,y=0,w=400,h=300,wstyle = WS_MINMAXSIZE,
win=SetWindow("Simple GUI App...",x,y,w,h,0,wstyle)
InitDrawing(win)
TextColor (win,RGB(0,120,220))
TextOn(win,100,100, "Hello World from OXYGEN!")

Wait()  'message loop
Function WndProc (sys hwnd,wmsg,wparam,lparam) as sys callback
Select hwnd
Case win
Select wmsg
CASE WM_PAINT
BitBlt(hDC, 0, 0, ww, hh, hdcMem, 0, 0, SRCCOPY)

Case WM_CLOSE
CloseWindow(win)
EndProgram
End Select
End Select
Return Default
End Function

Mike Lobanovsky

  • Admin Support Member
  • *****
  • Posts: 1855
Re: WinH
« Reply #43 on: October 10, 2015, 02:43:04 PM »
Aurel,

What you're doing with this long-abandoned thread, on most respectable forums would be called necromancy. :)
Mike
(3.6GHz Intel Core i5 Quad w/ 16GB RAM, 2 x nVidia GTX 650Ti w/ 2GB VRAM, Windows 7 Ultimate Sp1)

Aurel

  • Guest
Re: WinH
« Reply #44 on: October 11, 2015, 08:39:29 AM »
Mike

That is my problem NOT your....
Beter look into your FBSL necromancer forum where nobody post for years... :D