windows_gui 2.0.0

data/examples/MenuPARGB32.rbw

@@ -0,0 +1,308 @@
+require 'windows_gui'
+
+include WindowsGUI
+
+TARGETVER(WINVISTA,
+	L("This example requires Windows Vista or later\n\nRun anyway?")
+)
+
+WndExtra = Struct.new(
+	:hbmp
+)
+
+def OnCreate(hwnd,
+	cs
+)
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	xtra[:hbmp] = DetonateLastError(FFI::Pointer::NULL, :LoadImage,
+		nil,
+		L("#{File.dirname(File.expand_path(__FILE__))}/res/face-devilish.bmp"),
+		IMAGE_BITMAP, 0, 0,
+		LR_LOADFROMFILE | LR_CREATEDIBSECTION
+	)
+
+	info = MENUITEMINFO.new
+
+	info[:cbSize] = info.size
+	info[:fMask] = MIIM_BITMAP
+	info[:hbmpItem] = xtra[:hbmp]
+
+	hbar = CreateMenu()
+		hmenu1 = CreatePopupMenu()
+			AppendMenu(hmenu1, MF_STRING, CMD[:ITEM1], L('Item&1'))
+			SetMenuDefaultItem(hmenu1, CMD[:ITEM1], 0)
+			SetMenuItemInfo(hmenu1, CMD[:ITEM1], 0, info)
+
+			AppendMenu(hmenu1, MF_STRING | MF_GRAYED, CMD[:ITEM2], L('Item&2'))
+			SetMenuItemInfo(hmenu1, CMD[:ITEM2], 0, info)
+
+			AppendMenu(hmenu1, MF_STRING | MF_CHECKED, CMD[:ITEM3], L('Item&3'))
+			SetMenuItemInfo(hmenu1, CMD[:ITEM3], 0, info)
+
+			AppendMenu(hmenu1, MF_SEPARATOR, 0, nil)
+
+			AppendMenu(hmenu1, MF_STRING | MF_CHECKED | MFT_RADIOCHECK,
+				CMD[:ITEM4], L('Item&4'))
+			SetMenuItemInfo(hmenu1, CMD[:ITEM4], 0, info)
+
+			AppendMenu(hmenu1, MF_STRING, CMD[:ITEM5], L('Item&5'))
+			SetMenuItemInfo(hmenu1, CMD[:ITEM5], 0, info)
+
+			AppendMenu(hmenu1, MF_SEPARATOR, 0, nil)
+
+			hmenu2 = CreatePopupMenu()
+				AppendMenu(hmenu2, MF_STRING | MF_CHECKED | MFT_RADIOCHECK,
+					CMD[:ITEM6], L('Item&6'))
+				SetMenuItemInfo(hmenu2, CMD[:ITEM6], 0, info)
+
+				AppendMenu(hmenu2, MF_STRING, CMD[:ITEM7], L('Item&7'))
+				SetMenuItemInfo(hmenu2, CMD[:ITEM7], 0, info)
+			AppendMenu(hmenu1, MF_POPUP, hmenu2.to_i, L('Menu&2'))
+			SetMenuItemInfo(hmenu1, 7, MF_BYPOSITION, info)
+		AppendMenu(hbar, MF_POPUP, hmenu1.to_i, L('Menu&1'))
+		SetMenuItemInfo(hbar, 0, MF_BYPOSITION, info)
+
+		AppendMenu(hbar, MF_STRING, CMD[:ITEM8], L('Item&8!'))
+		SetMenuItemInfo(hbar, CMD[:ITEM8], 0, info)
+
+		hmenu3 = CreatePopupMenu()
+			AppendMenu(hmenu3, MF_BITMAP, CMD[:ITEM9], xtra[:hbmp])
+		AppendMenu(hbar, MF_POPUP | MF_BITMAP | MF_RIGHTJUSTIFY, hmenu3.to_i, xtra[:hbmp])
+	SetMenu(hwnd, hbar)
+
+	0
+ensure
+	info.pointer.free if info
+end
+
+def OnDestroy(hwnd)
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	DeleteObject(xtra[:hbmp])
+
+	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 SystemExit => ex
+	PostQuitMessage(ex.status)
+rescue
+	case MessageBox(hwnd,
+		L(Util.FormatException($!)),
+		APPNAME,
+		MB_ABORTRETRYIGNORE | MB_ICONERROR
+	)
+	when IDABORT
+		PostQuitMessage(2)
+	when IDRETRY
+		retry
+	end
+end
+}
+
+def WinMain
+	Util.Id2RefTrack(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(COLOR_WINDOW + 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
+
+WinMain()

data/examples/MinMax.rbw

@@ -0,0 +1,98 @@
+require 'windows_gui'
+
+include WindowsGUI
+
+def OnDestroy(hwnd)
+	PostQuitMessage(0); 0
+end
+
+def OnMinMax(hwnd,
+	minmax
+)
+	minmax[:ptMinTrackSize][:x], minmax[:ptMinTrackSize][:y] = DPIAwareXY(400, 300)
+	minmax[:ptMaxTrackSize][:x], minmax[:ptMaxTrackSize][:y] = DPIAwareXY(800, 600)
+
+	0
+end
+
+WindowProc = FFI::Function.new(:long,
+	[:pointer, :uint, :uint, :long],
+	convention: :stdcall
+) { |hwnd, uMsg, wParam, lParam|
+begin
+	result = case uMsg
+	when WM_DESTROY
+		OnDestroy(hwnd)
+
+	when WM_GETMINMAXINFO
+		OnMinMax(hwnd, MINMAXINFO.new(FFI::Pointer.new(lParam)))
+	end
+
+	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
+rescue SystemExit => ex
+	PostQuitMessage(ex.status)
+rescue
+	case MessageBox(hwnd,
+		L(Util.FormatException($!)),
+		APPNAME,
+		MB_ABORTRETRYIGNORE | MB_ICONERROR
+	)
+	when IDABORT
+		PostQuitMessage(2)
+	when IDRETRY
+		retry
+	end
+end
+}
+
+def WinMain
+	WNDCLASSEX.new { |wc|
+		wc[:cbSize] = wc.size
+		wc[:lpfnWndProc] = WindowProc
+		wc[:hInstance] = GetModuleHandle(nil)
+		wc[:hIcon] = LoadIcon(nil, IDI_APPLICATION)
+		wc[:hCursor] = LoadCursor(nil, IDC_ARROW)
+		wc[:hbrBackground] = FFI::Pointer.new(COLOR_WINDOW + 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), nil
+	)
+
+	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
+
+WinMain()

data/examples/Minimal.rbw

@@ -0,0 +1,86 @@
+require 'windows_gui'
+
+include WindowsGUI
+
+def OnDestroy(hwnd)
+	PostQuitMessage(0); 0
+end
+
+WindowProc = FFI::Function.new(:long,
+	[:pointer, :uint, :uint, :long],
+	convention: :stdcall
+) { |hwnd, uMsg, wParam, lParam|
+begin
+	result = case uMsg
+	when WM_DESTROY
+		OnDestroy(hwnd)
+	end
+
+	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
+rescue SystemExit => ex
+	PostQuitMessage(ex.status)
+rescue
+	case MessageBox(hwnd,
+		L(Util.FormatException($!)),
+		APPNAME,
+		MB_ABORTRETRYIGNORE | MB_ICONERROR
+	)
+	when IDABORT
+		PostQuitMessage(2)
+	when IDRETRY
+		retry
+	end
+end
+}
+
+def WinMain
+	WNDCLASSEX.new { |wc|
+		wc[:cbSize] = wc.size
+		wc[:lpfnWndProc] = WindowProc
+		wc[:hInstance] = GetModuleHandle(nil)
+		wc[:hIcon] = LoadIcon(nil, IDI_APPLICATION)
+		wc[:hCursor] = LoadCursor(nil, IDC_ARROW)
+		wc[:hbrBackground] = FFI::Pointer.new(COLOR_WINDOW + 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), nil
+	)
+
+	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
+
+WinMain()

data/examples/Paint.rbw

@@ -0,0 +1,151 @@
+require 'windows_gui'
+
+include WindowsGUI
+
+WndExtra = Struct.new(
+	:hfont
+)
+
+def OnCreate(hwnd,
+	cs
+)
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	LOGFONT.new { |lf|
+		lf[:lfHeight] = DPIAwareFontHeight(16)
+		lf[:lfItalic] = 1
+		lf[:lfFaceName].to_ptr.put_bytes(0, L('Verdana'))
+
+		xtra[:hfont] = CreateFontIndirect(lf)
+	}
+
+	0
+end
+
+def OnDestroy(hwnd)
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	DeleteObject(xtra[:hfont])
+
+	PostQuitMessage(0); 0
+end
+
+def OnPaint(hwnd,
+	ps
+)
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	SetBkColor(ps[:hdc], RGB(255, 0, 0))
+	SetTextColor(ps[:hdc], RGB(255, 255, 255))
+
+	UseObjects(ps[:hdc], xtra[:hfont]) {
+		RECT.new { |rect|
+			GetClientRect(hwnd, rect)
+
+			DrawText(ps[:hdc],
+				L('The quick brown fox jumps over the lazy dog. 1234567890'), -1,
+				rect, DT_SINGLELINE | DT_CENTER | DT_VCENTER
+			)
+		}
+	}
+
+	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_PAINT
+		DoPaint(hwnd) { |ps| result = OnPaint(hwnd, ps) }
+	when WM_PRINTCLIENT
+		DoPrintClient(hwnd, wParam) { |ps| result = OnPaint(hwnd, ps) }
+	end
+
+	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
+rescue SystemExit => ex
+	PostQuitMessage(ex.status)
+rescue
+	case MessageBox(hwnd,
+		L(Util.FormatException($!)),
+		APPNAME,
+		MB_ABORTRETRYIGNORE | MB_ICONERROR
+	)
+	when IDABORT
+		PostQuitMessage(2)
+	when IDRETRY
+		retry
+	end
+end
+}
+
+def WinMain
+	Util.Id2RefTrack(xtra = WndExtra.new)
+
+	WNDCLASSEX.new { |wc|
+		wc[:cbSize] = wc.size
+		wc[:style] = CS_HREDRAW | CS_VREDRAW
+		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(COLOR_WINDOW + 1)
+
+		PWSTR(APPNAME) { |className|
+			wc[:lpszClassName] = className
+
+			DetonateLastError(0, :RegisterClassEx,
+				wc
+			)
+		}
+	}
+
+	hwnd = CreateWindowEx(
+		WS_EX_CLIENTEDGE, 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?
+
+	AnimateWindow(hwnd, 1000, AW_ACTIVATE | AW_BLEND)
+
+	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
+
+WinMain()