ffi-wingui-core 0.3.0 → 0.4.0

data/examples/Command.rbw

@@ -1,13 +1,14 @@
 require 'ffi-wingui-core'
 
-include WinGUI
+exit if defined?(Ocra)
 
-EnableVisualStyles()
+include WinGUI
 
 APPNAME = L(File.basename(__FILE__, '.rbw'))
 
 CMD_ITEM1 = WM_APP + 1
-CTL_BUTTON1 = CMD_ITEM1 + 1
+CTL_FOCUS = CMD_ITEM1 + 1
+CTL_BUTTON1 = CTL_FOCUS + 1
 
 WndExtra = Struct.new(
 	:haccel,
@@ -47,13 +48,20 @@ def onCreate(hwnd,
 	}
 
 	hbtn1 = CreateWindowEx(
-		0, L('Button'), L('&Button1'), WS_CHILD | WS_VISIBLE,
+		0, L('Button'), L('&Button1'), WS_CHILD | WS_CLIPSIBLINGS |
+			WS_VISIBLE | WS_TABSTOP,
 		*DPIAwareXY(10, 10, 100, 25),
 		hwnd, FFI::Pointer.new(CTL_BUTTON1), GetModuleHandle(nil), nil
 	)
 
 	SendMessage(hbtn1, WM_SETFONT, xtra[:hmf].to_i, 1)
 
+	CreateWindowEx(
+		0, L('Static'), L(''), WS_CHILD | WS_CLIPSIBLINGS,
+		0, 0, 0, 0,
+		hwnd, FFI::Pointer.new(CTL_FOCUS), GetModuleHandle(nil), nil
+	)
+
 	0
 end
 
@@ -66,6 +74,15 @@ def onDestroy(hwnd)
 	PostQuitMessage(0); 0
 end
 
+def onActivate(hwnd,
+	state, minimized,
+	hother
+)
+	SetFocus(GetDlgItem(hwnd, CTL_FOCUS)) if state != WA_INACTIVE
+
+	0
+end
+
 def onItem1(verb,
 	hctl, hwnd
 )
@@ -133,6 +150,12 @@ begin
 	when WM_DESTROY
 		onDestroy(hwnd)
 
+	when WM_ACTIVATE
+		onActivate(hwnd,
+			LOWORD(wParam), HIWORD(wParam) > 0,
+			FFI::Pointer.new(lParam)
+		)
+
 	when WM_COMMAND
 		id, verb = LOWORD(wParam), HIWORD(wParam)
 		hctl = FFI::Pointer.new(lParam)
@@ -170,7 +193,9 @@ def main
 		wc[:hInstance] = GetModuleHandle(nil)
 		wc[:hIcon] = LoadIcon(nil, IDI_APPLICATION)
 		wc[:hCursor] = LoadCursor(nil, IDC_ARROW)
-		wc[:hbrBackground] = FFI::Pointer.new(CTLCOLOR_DLG + 1)
+		wc[:hbrBackground] = FFI::Pointer.new(
+			((WINVER == WINXP) ? COLOR_MENUBAR : COLOR_MENU) + 1
+		)
 
 		PWSTR(APPNAME) { |className|
 			wc[:lpszClassName] = className
@@ -182,7 +207,7 @@ def main
 	}
 
 	hwnd = CreateWindowEx(
-		0, APPNAME, APPNAME, WS_OVERLAPPEDWINDOW,
+		0, APPNAME, APPNAME, WS_OVERLAPPEDWINDOW | WS_CLIPCHILDREN,
 		CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
 		nil, nil, GetModuleHandle(nil), FFI::Pointer.new(xtra.object_id)
 	)
@@ -199,7 +224,9 @@ def main
 		until DetonateLastError(-1, :GetMessage,
 			msg, nil, 0, 0
 		) == 0
-			if TranslateAccelerator(hwnd, xtra[:haccel], msg) == 0
+			if TranslateAccelerator(hwnd, xtra[:haccel], msg) == 0 &&
+				IsDialogMessage(hwnd, msg) == 0
+
 				TranslateMessage(msg)
 				DispatchMessage(msg)
 			end

data/examples/Hello.rbw

@@ -1,8 +1,8 @@
 require 'ffi-wingui-core'
 
-include WinGUI
+exit if defined?(Ocra)
 
-EnableVisualStyles()
+include WinGUI
 
 MessageBox(nil,
 	L('Hello, world!'),

data/examples/HelloOptout.rbw

@@ -0,0 +1,14 @@
+WINGUI_VISUAL_STYLES = false
+WINGUI_DPI_AWARE = false
+
+require 'ffi-wingui-core'
+
+exit if defined?(Ocra)
+
+include WinGUI
+
+MessageBox(nil,
+	L('Hello, world!'),
+	L('Hello'),
+	MB_ICONINFORMATION
+)

data/examples/{Hello1.rbw → HelloTimeout.rbw}

@@ -1,8 +1,8 @@
 require 'ffi-wingui-core'
 
-include WinGUI
+exit if defined?(Ocra)
 
-EnableVisualStyles()
+include WinGUI
 
 if respond_to?(:MessageBoxTimeout)
 	MessageBoxTimeout(nil,

data/examples/LifeCycle.rbw

@@ -1,8 +1,8 @@
 require 'ffi-wingui-core'
 
-include WinGUI
+exit if defined?(Ocra)
 
-EnableVisualStyles()
+include WinGUI
 
 APPNAME = L(File.basename(__FILE__, '.rbw'))
 
@@ -79,7 +79,9 @@ def main
 		wc[:hInstance] = GetModuleHandle(nil)
 		wc[:hIcon] = LoadIcon(nil, IDI_APPLICATION)
 		wc[:hCursor] = LoadCursor(nil, IDC_ARROW)
-		wc[:hbrBackground] = FFI::Pointer.new(COLOR_WINDOW + 1)
+		wc[:hbrBackground] = FFI::Pointer.new(
+			((WINVER == WINXP) ? COLOR_MENUBAR : COLOR_MENU) + 1
+		)
 
 		PWSTR(APPNAME) { |className|
 			wc[:lpszClassName] = className
@@ -91,7 +93,7 @@ def main
 	}
 
 	hwnd = CreateWindowEx(
-		0, APPNAME, APPNAME, WS_OVERLAPPEDWINDOW,
+		0, APPNAME, APPNAME, WS_OVERLAPPEDWINDOW | WS_CLIPCHILDREN,
 		CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
 		nil, nil, GetModuleHandle(nil), nil
 	)

data/examples/{LifeCycle1.rbw → LifeCycleNC.rbw}

@@ -1,8 +1,8 @@
 require 'ffi-wingui-core'
 
-include WinGUI
+exit if defined?(Ocra)
 
-EnableVisualStyles()
+include WinGUI
 
 APPNAME = L(File.basename(__FILE__, '.rbw'))
 
@@ -109,7 +109,9 @@ def main
 		wc[:hInstance] = GetModuleHandle(nil)
 		wc[:hIcon] = LoadIcon(nil, IDI_APPLICATION)
 		wc[:hCursor] = LoadCursor(nil, IDC_ARROW)
-		wc[:hbrBackground] = FFI::Pointer.new(COLOR_WINDOW + 1)
+		wc[:hbrBackground] = FFI::Pointer.new(
+			((WINVER == WINXP) ? COLOR_MENUBAR : COLOR_MENU) + 1
+		)
 
 		PWSTR(APPNAME) { |className|
 			wc[:lpszClassName] = className
@@ -121,7 +123,7 @@ def main
 	}
 
 	hwnd = CreateWindowEx(
-		0, APPNAME, APPNAME, WS_OVERLAPPEDWINDOW,
+		0, APPNAME, APPNAME, WS_OVERLAPPEDWINDOW | WS_CLIPCHILDREN,
 		CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
 		nil, nil, GetModuleHandle(nil), nil
 	)

data/examples/Menu.rbw

@@ -0,0 +1,288 @@
+require 'ffi-wingui-core'
+
+exit if defined?(Ocra)
+
+include WinGUI
+
+APPNAME = L(File.basename(__FILE__, '.rbw'))
+
+CMD_ITEM1 = WM_APP + 1
+CMD_ITEM2 = CMD_ITEM1 + 1
+CMD_ITEM3 = CMD_ITEM2 + 1
+CMD_ITEM4 = CMD_ITEM3 + 1
+CMD_ITEM5 = CMD_ITEM4 + 1
+CMD_ITEM6 = CMD_ITEM5 + 1
+CMD_ITEM7 = CMD_ITEM6 + 1
+CMD_ITEM8 = CMD_ITEM7 + 1
+CMD_ITEM9 = CMD_ITEM8 + 1
+
+WndExtra = Struct.new(
+	:dummy
+).send(:include, Util::Id2RefTracking)
+
+def onCreate(hwnd,
+	cs
+)
+	xtra = WndExtra::REFS[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	hbar = CreateMenu()
+		hmenu1 = CreatePopupMenu()
+			AppendMenu(hmenu1, MF_STRING, CMD_ITEM1, L('Item&1'))
+			SetMenuDefaultItem(hmenu1, CMD_ITEM1, 0)
+
+			AppendMenu(hmenu1, MF_STRING | MF_GRAYED, CMD_ITEM2, L('Item&2'))
+			AppendMenu(hmenu1, MF_STRING | MF_CHECKED, CMD_ITEM3, L('Item&3'))
+
+			AppendMenu(hmenu1, MF_SEPARATOR, 0, nil)
+
+			AppendMenu(hmenu1, MF_STRING | MF_CHECKED | MFT_RADIOCHECK,
+				CMD_ITEM4, L('Item&4'))
+			AppendMenu(hmenu1, MF_STRING, CMD_ITEM5, L('Item&5'))
+
+			AppendMenu(hmenu1, MF_SEPARATOR, 0, nil)
+
+			hmenu2 = CreatePopupMenu()
+				AppendMenu(hmenu2, MF_STRING | MF_CHECKED | MFT_RADIOCHECK,
+					CMD_ITEM6, L('Item&6'))
+				AppendMenu(hmenu2, MF_STRING, CMD_ITEM7, L('Item&7'))
+			AppendMenu(hmenu1, MF_POPUP, hmenu2.to_i, L('Menu&2'))
+		AppendMenu(hbar, MF_POPUP, hmenu1.to_i, L('Menu&1'))
+
+		AppendMenu(hbar, MF_STRING, CMD_ITEM8, L('Item&8'))
+
+		hmenu3 = CreatePopupMenu()
+			AppendMenu(hmenu3, MF_STRING, CMD_ITEM9, L('Item&9'))
+		AppendMenu(hbar, MF_POPUP | MF_RIGHTJUSTIFY, hmenu3.to_i, L('Menu&3'))
+	SetMenu(hwnd, hbar)
+
+	0
+end
+
+def onDestroy(hwnd)
+	xtra = WndExtra::REFS[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	PostQuitMessage(0); 0
+end
+
+def onItem1(verb,
+	hctl, hwnd
+)
+	hbar = GetMenu(hwnd)
+	i2grayed = (GetMenuState(hbar, CMD_ITEM2, 0) & MF_GRAYED) == MF_GRAYED
+
+	EnableMenuItem(hbar, CMD_ITEM2, (i2grayed) ? MF_ENABLED : MF_GRAYED)
+
+	0
+end
+
+def onItem2(verb,
+	hctl, hwnd
+)
+	MessageBox(hwnd,
+		L(__method__.to_s),
+		APPNAME,
+		MB_ICONINFORMATION
+	)
+
+	0
+end
+
+def onItem3(verb,
+	hctl, hwnd
+)
+	hbar = GetMenu(hwnd)
+	i3checked = (GetMenuState(hbar, CMD_ITEM3, 0) & MF_CHECKED) == MF_CHECKED
+
+	CheckMenuItem(hbar, CMD_ITEM3, (i3checked) ? MF_UNCHECKED : MF_CHECKED)
+
+	0
+end
+
+def onItem4(verb,
+	hctl, hwnd
+)
+	CheckMenuRadioItem(GetMenu(hwnd), CMD_ITEM4, CMD_ITEM5, CMD_ITEM4, 0)
+
+	0
+end
+
+def onItem5(verb,
+	hctl, hwnd
+)
+	CheckMenuRadioItem(GetMenu(hwnd), CMD_ITEM4, CMD_ITEM5, CMD_ITEM5, 0)
+
+	0
+end
+
+def onItem6(verb,
+	hctl, hwnd
+)
+	CheckMenuRadioItem(GetMenu(hwnd), CMD_ITEM6, CMD_ITEM7, CMD_ITEM6, 0)
+
+	0
+end
+
+def onItem7(verb,
+	hctl, hwnd
+)
+	CheckMenuRadioItem(GetMenu(hwnd), CMD_ITEM6, CMD_ITEM7, CMD_ITEM7, 0)
+
+	0
+end
+
+def onItem8(verb,
+	hctl, hwnd
+)
+	MessageBox(hwnd,
+		L(__method__.to_s),
+		APPNAME,
+		MB_ICONINFORMATION
+	)
+
+	0
+end
+
+def onItem9(verb,
+	hctl, hwnd
+)
+	hbar = GetMenu(hwnd)
+	i2grayed = (GetMenuState(hbar, CMD_ITEM2, 0) & MF_GRAYED) == MF_GRAYED
+	i3checked = (GetMenuState(hbar, CMD_ITEM3, 0) & MF_CHECKED) == MF_CHECKED
+	i4checked = (GetMenuState(hbar, CMD_ITEM4, 0) & MF_CHECKED) == MF_CHECKED
+	i5checked = (GetMenuState(hbar, CMD_ITEM5, 0) & MF_CHECKED) == MF_CHECKED
+	i6checked = (GetMenuState(hbar, CMD_ITEM6, 0) & MF_CHECKED) == MF_CHECKED
+	i7checked = (GetMenuState(hbar, CMD_ITEM7, 0) & MF_CHECKED) == MF_CHECKED
+
+	MessageBox(hwnd,
+		L("
+Item2 - #{(i2grayed) ? 'grayed' : 'enabled'}
+Item3 - #{(i3checked) ? 'checked' : 'unchecked'}
+Item4 - #{(i4checked) ? 'checked' : 'unchecked'}
+Item5 - #{(i5checked) ? 'checked' : 'unchecked'}
+Item6 - #{(i6checked) ? 'checked' : 'unchecked'}
+Item7 - #{(i7checked) ? 'checked' : 'unchecked'}
+		"),
+		APPNAME,
+		MB_ICONINFORMATION
+	)
+
+	0
+end
+
+WindowProc = FFI::Function.new(:long,
+	[:pointer, :uint, :uint, :long],
+	convention: :stdcall
+) { |hwnd, uMsg, wParam, lParam|
+begin
+	result = case uMsg
+	when WM_NCCREATE
+		DefWindowProc(hwnd, uMsg, wParam, lParam)
+
+		SetWindowLong(hwnd,
+			GWL_USERDATA,
+			CREATESTRUCT.new(FFI::Pointer.new(lParam))[:lpCreateParams].to_i
+		)
+
+		1
+	when WM_CREATE
+		onCreate(hwnd, CREATESTRUCT.new(FFI::Pointer.new(lParam)))
+	when WM_DESTROY
+		onDestroy(hwnd)
+
+	when WM_COMMAND
+		id, verb = LOWORD(wParam), HIWORD(wParam)
+		hctl = FFI::Pointer.new(lParam)
+
+		case id
+		when CMD_ITEM1
+			onItem1(verb, hctl, hwnd)
+		when CMD_ITEM2
+			onItem2(verb, hctl, hwnd)
+		when CMD_ITEM3
+			onItem3(verb, hctl, hwnd)
+		when CMD_ITEM4
+			onItem4(verb, hctl, hwnd)
+		when CMD_ITEM5
+			onItem5(verb, hctl, hwnd)
+		when CMD_ITEM6
+			onItem6(verb, hctl, hwnd)
+		when CMD_ITEM7
+			onItem7(verb, hctl, hwnd)
+		when CMD_ITEM8
+			onItem8(verb, hctl, hwnd)
+		when CMD_ITEM9
+			onItem9(verb, hctl, hwnd)
+		end
+	end
+
+	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
+rescue
+	case MessageBox(hwnd,
+		L(Util.FormatException($!)),
+		APPNAME,
+		MB_ABORTRETRYIGNORE | MB_ICONERROR
+	)
+	when IDABORT
+		PostQuitMessage(2)
+	when IDRETRY
+		retry
+	end
+end
+}
+
+def main
+	xtra = WndExtra.new
+
+	WNDCLASSEX.new { |wc|
+		wc[:cbSize] = wc.size
+		wc[:lpfnWndProc] = WindowProc
+		wc[:cbWndExtra] = FFI::Type::Builtin::POINTER.size
+		wc[:hInstance] = GetModuleHandle(nil)
+		wc[:hIcon] = LoadIcon(nil, IDI_APPLICATION)
+		wc[:hCursor] = LoadCursor(nil, IDC_ARROW)
+		wc[:hbrBackground] = FFI::Pointer.new(
+			((WINVER == WINXP) ? COLOR_MENUBAR : COLOR_MENU) + 1
+		)
+
+		PWSTR(APPNAME) { |className|
+			wc[:lpszClassName] = className
+
+			DetonateLastError(0, :RegisterClassEx,
+				wc
+			)
+		}
+	}
+
+	hwnd = CreateWindowEx(
+		0, APPNAME, APPNAME, WS_OVERLAPPEDWINDOW | WS_CLIPCHILDREN,
+		CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
+		nil, nil, GetModuleHandle(nil), FFI::Pointer.new(xtra.object_id)
+	)
+
+	raise "CreateWindowEx failed (last error: #{GetLastError()})" if
+		hwnd.null? && GetLastError() != 0
+
+	exit(0) if hwnd.null?
+
+	ShowWindow(hwnd, SW_SHOWNORMAL)
+	UpdateWindow(hwnd)
+
+	MSG.new { |msg|
+		until DetonateLastError(-1, :GetMessage,
+			msg, nil, 0, 0
+		) == 0
+			TranslateMessage(msg)
+			DispatchMessage(msg)
+		end
+
+		exit(msg[:wParam])
+	}
+rescue
+	MessageBox(hwnd,
+		L(Util.FormatException($!)),
+		APPNAME,
+		MB_ICONERROR
+	); exit(1)
+end
+
+main