Win32 GUI

BlitzMax Forums/BlitzMax Programming/Win32 GUI

Vertex
 #1
Hi!

I experiment with the Windows GUI... Here a little example without MaxGUI:



SuperStrict

Framework PUB.Win32
Include "WinAPI.bmx"

Const WINGUI_CLASS_NAME : String = "WinGUI Class"

' Menu-Entry IDs
Const MENU_FILEOPEN : Int = 1
Const MENU_FILESAVE : Int = 2
Const MENU_EXIT     : Int = 3
Const MENU_COPY     : Int = 4
Const MENU_PASTE    : Int = 5
Const MENU_MISC     : Int = 6

Global Instance     : Int
Global WindowClass  : WNDCLASSEX
Global InitControls : TINITCOMMONCONTROLSEX
Global Message      : MSG

Global Menu         : Int
Global FileMenu     : Int
Global EditMenu     : Int
Global Window       : Int
Global Button       : Int
Global Groupbox     : Int
Global Radiobuttons : Int[3]
Global Label        : Int
Global Checkbox     : Int
Global Font         : Int
Global Textbox      : Int
Global Listbox      : Int

' Get instance of desktop
Instance = GetModuleHandleA(0)

' Register window class
WindowClass = New WNDCLASSEX
WindowClass.cbSize        = SizeOf(WNDCLASSEX)
WindowClass.Style         = CS_HREDRAW ..
                            | CS_VREDRAW ..
                            | CS_OWNDC
WindowClass.lpfnWndProc   = MessageHandler
WindowClass.cbClsExtra    = 0
WindowClass.cbWndExtra    = 0
WindowClass.hInstance     = Instance
WindowClass.hIcon         = LoadIconA(Null, Byte Ptr(IDI_WINLOGO))
WindowClass.hCursor       = LoadCursorA(Null, Byte Ptr(IDC_ARROW))
WindowClass.hbrBackground = GetStockObject(LTGRAY_BRUSH)
WindowClass.lpszMenuName  = Null
WindowClass.lpszClassName = WINGUI_CLASS_NAME.ToCString()
WindowClass.hIconSm       = LoadIconA(Null, Byte Ptr(IDI_WINLOGO))

If Not RegisterClassExA(WindowClass) Then
	MessageBoxA(0, "Can't register window class.", "Error", ..
	            MB_OK | MB_ICONEXCLAMATION)
	End
EndIf

' Init common controls for more window classes
Rem
InitControls = New TINITCOMMONCONTROLSEX
InitControls.dwSize = SizeOf(TINITCOMMONCONTROLSEX)
InitControls.dwICC  = ICC_PROGRESS_CLASS
If Not InitCommonControlsEx(InitControls) Then
	MessageBoxA(0, "Can't load common controls.", "Error", ..
	            MB_OK | MB_ICONEXCLAMATION)
	End
EndIf
End Rem

' Create popupmenu "File"
FileMenu = CreatePopupMenu()
AppendMenuA(FileMenu, MF_STRING, MENU_FILEOPEN, "Open...".ToCString())
AppendMenuA(FileMenu, MF_STRING | MF_DISABLED | MF_GRAYED, MENU_FILESAVE, ..
            "Save...".ToCString())
AppendMenuA(FileMenu, MF_SEPARATOR, 0, Null)
AppendMenuA(FileMenu, MF_STRING, MENU_EXIT, "Exit".ToCString())

' Create popupmenu "Edit"
EditMenu = CreatePopupMenu()
AppendMenuA(EditMenu, MF_STRING, MENU_COPY,  "Copy".ToCString())
AppendMenuA(EditMenu, MF_STRING, MENU_PASTE, "Paste".ToCString())
AppendMenuA(EditMenu, MF_STRING | MF_CHECKED, MENU_MISC,  "Misc".ToCString())

' Create mainmenu
Menu = CreateMenu_()
AppendMenuA(Menu, MF_STRING | MF_POPUP, FileMenu, "File".ToCString())
AppendMenuA(Menu, MF_STRING | MF_POPUP, EditMenu, "Edit".ToCString())

' Create window
Window = CreateWindowExA(0, WINGUI_CLASS_NAME, "Main", WS_VISIBLE | ..
                         WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, ..
                         400, 300, 0, Menu, Instance, Null)

' Create button
Button = CreateWindowExA(0, "BUTTON", "Button", WS_VISIBLE | WS_CHILD | ..
                         BS_PUSHBUTTON | BS_NOTIFY, 10, 10, 80, 25, Window, ..
                         0, Instance, Null)

' Create groupbox
Groupbox = CreateWindowExA(0, "BUTTON", "Choose", WS_VISIBLE | WS_CHILD | ..
                           BS_GROUPBOX, 100, 10, 150, 115, Window, 0, ..
                           Instance, Null)

' Create radiobuttons
Radiobuttons[0] = CreateWindowExA(0, "BUTTON", "One", WS_VISIBLE | WS_CHILD | ..
                                  BS_AUTORADIOBUTTON | WS_GROUP, 110, 35, 80, 15, ..
                                  Window, 0, Instance, Null)

Radiobuttons[1] = CreateWindowExA(0, "BUTTON", "Two", WS_VISIBLE | WS_CHILD | ..
                                  BS_AUTORADIOBUTTON, 110, 55, 80, 15, ..
                                  Window, 0, Instance, Null)

Radiobuttons[2] = CreateWindowExA(0, "BUTTON", "Three", WS_VISIBLE | WS_CHILD | ..
                                  BS_AUTORADIOBUTTON, 110, 75, 80, 15, ..
                                  Window, 0, Instance, Null)

' Create label
Label = CreateWindowExA(0, "STATIC", "Case:", WS_VISIBLE | WS_CHILD, 110, 100, ..
                        80, 15, Window, 0, Instance, Null)

' Create checkbox
Checkbox = CreateWindowExA(0, "BUTTON", "Check", WS_VISIBLE | WS_CHILD | ..
                           BS_AUTOCHECKBOX, 260, 10, 120, 15, Window, 0, Instance, Null)

' Create textbox
Textbox = CreateWindowExA(0, "EDIT", "ff", WS_VISIBLE | WS_CHILD | WS_VSCROLL | ..
                          ES_MULTILINE | ES_AUTOVSCROLL, 10, 150, 240, 100, ..
                          Window, 0, Instance, Null)

' Setting new font to textbox
Font = CreateFontA(0, 0, 0, 0, FW_THIN, True, False, False, DEFAULT_CHARSET, ..
                   OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, ..
                   DEFAULT_PITCH, "Times New Roman")
SendMessageA(Textbox, WM_SETFONT, Font, True)

' Setting the text indirect
SendMessageA(textbox, WM_SETTEXT, 0, Int("Hello, world!".ToCString()))

' Create listbox
Listbox = CreateWindowExA(0, "LISTBOX", "ff", WS_VISIBLE | WS_CHILD | LBS_NOTIFY, ..
                          260, 150, 120, 100, Window, 0, Instance, Null)

' Fill listbox
SendMessage(Listbox, LB_ADDSTRING, Null, "One".ToCString())
SendMessage(Listbox, LB_ADDSTRING, Null, "Two".ToCString())
SendMessage(Listbox, LB_ADDSTRING, Null, "Three".ToCString())

Message = New MSG
While GetMessageA(Message, 0, 0, 0) > 0
	TranslateMessage(Message)
	DispatchMessageA(Message)
Wend

End

Function MessageHandler:Int(hWnd:Int, msg:Int, wParam:Int, lParam:Int)
	Select msg
		Case WM_CLOSE
			DestroyWindow(hWnd)
		Case WM_DESTROY
			PostQuitMessage(0)
			Return 0
		Case WM_COMMAND
			Select LOWORD(wParam)
				Case MENU_FILEOPEN
					MessageBoxA(0, "File -> Open", "Info", MB_OK | ..
					            MB_ICONEXCLAMATION)
				Case MENU_FILESAVE
					MessageBoxA(0, "File -> Save", "Info", MB_OK | ..
					            MB_ICONEXCLAMATION)
				Case MENU_EXIT
					PostQuitMessage(0)
					Return 0
				Case MENU_COPY
					MessageBoxA(0, "Edit -> Copy", "Info", MB_OK | ..
					            MB_ICONEXCLAMATION)
				Case MENU_PASTE
					MessageBoxA(0, "Edit -> Paste", "Info", MB_OK | ..
					            MB_ICONEXCLAMATION)
				Case MENU_MISC
					If GetMenuState(EditMenu, MENU_MISC, MF_BYCOMMAND) & ..
					   MF_CHECKED Then
						CheckMenuItem(EditMenu, MENU_MISC, MF_UNCHECKED)
					Else
						CheckMenuItem(EditMenu, MENU_MISC, MF_CHECKED)
					EndIf
			End Select

			Select lParam
				Case Button
					Select HIWORD(wParam)
						Case BN_CLICKED
							MessageBoxA(0, "Button -> Click", "Info", MB_OK | ..
							            MB_ICONEXCLAMATION)
						Case BN_DBLCLK
							MessageBoxA(0, "Button -> Doubleclicked", "Info", ..
							            MB_OK | MB_ICONEXCLAMATION)
					End Select
				
				Case Radiobuttons[0]
						SetWindowTextA(Label, "Case: 1")

				Case Radiobuttons[1]
						SetWindowTextA(Label, "Case: 2")

				Case Radiobuttons[2]
						SetWindowTextA(Label, "Case: 3")
				
				Case Listbox
					If HIWORD(wParam) = LBN_SELCHANGE Then
						Local Index:Int, Item:Byte Ptr
						Index = SendMessageA(Listbox, LB_GETANCHORINDEX, 0, 0)
						SetWindowTextA(Window, "Main "+(Index + 1))
					EndIf
			End Select

		Default
			Return DefWindowProcA(hWnd, msg, wParam, lParam)
	End Select
End Function

Function HIWORD:Short(Value:Int)
	Return Short((Value Shr 16) & $FFFF)
End Function

Function LOWORD:Short(Value:Int)
	Return Short(Value & $FFFF)
End Function


WinAPI.bmx
Const IDI_WINLOGO        : Short = $32517
Const MB_OK              : Int   = $0
Const MB_ICONEXCLAMATION : Int   = $30
Const LBS_NOTIFY         : Int   = $1
Const LB_ADDSTRING       : Int   = $180
Const LB_GETANCHORINDEX  : Int   = $19D
Const LBN_SELCHANGE      : Int   = 1

Extern "Win32"
	Function RegisterClassExA:Int(lpwcx:Byte Ptr)
	Function SendMessage:Byte Ptr(hWnd:Int, msg:Int, wParam:Byte Ptr, lParam:Byte Ptr) ..
	         = "SendMessageA@16"
	Function CreatePopupMenu:Int()
	Function CheckMenuItem:Int(hMenu:Int, uIDCheckItem:Int, uCheck:Int)
	Function GetMenuState:Int(hMenu:Int, uID:Int, uFlags:Int)
	Function CreateWindowExA:Int(dwExStyle:Int, lpClassName$z, lpWindowName$z, ..
	                             dwStyle:Int, x:Int, y:Int, nWidth:Int, nHeight:Int, ..
	                             hWndParent:Int, hMenu:Int, hInstance:Int, lpParam:Byte Ptr)
	Function MessageBoxA:Int(hWnd:Int, lpText$z, lpCaption$z, uType:Int)
End Extern

Type WNDCLASSEX
	Field cbSize        : Int
	Field style         : Int
	Field lpfnWndProc   : Byte Ptr
	Field cbClsExtra    : Int
	Field cbWndExtra    : Int
	Field hInstance     : Int
	Field hIcon         : Int
	Field hCursor       : Int
	Field hbrBackground : Int
	Field lpszMenuName  : Byte Ptr
	Field lpszClassName : Byte Ptr
	Field hIconSm       : Int
End Type


InitCommonControlsEx for Progressbars a. s. o. can't linked together with the exe.

I hope, more examples can post here in this thread. (Please without MaxGUI)

cu olli

Edit: Now I know, I mustn't set the groupbox as parent of the radiobuttons.