windows_gui 2.0.0

data/examples/Region.rbw

@@ -0,0 +1,99 @@
+require 'windows_gui'
+
+include WindowsGUI
+
+def OnCreate(hwnd,
+	cs
+)
+	SetWindowRgn(hwnd,
+		CreateEllipticRgn(*DPIAwareXY(42, 42, 420, 210)),
+		0
+	)
+
+	0
+end
+
+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_CREATE
+		OnCreate(hwnd, CREATESTRUCT.new(FFI::Pointer.new(lParam)))
+	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_APPWORKSPACE + 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/Scribble.rbw

@@ -0,0 +1,220 @@
+require 'windows_gui'
+
+include WindowsGUI
+
+WndExtra = Struct.new(
+	:hpen,
+	:curpos,
+	:scribbles
+)
+
+def OnCreate(hwnd,
+	cs
+)
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	LOGPEN.new { |lp|
+		lp[:lopnWidth][:x] = DPIAwareX(10)
+		lp[:lopnColor] = RGB(255, 0, 0)
+
+		xtra[:hpen] = CreatePenIndirect(lp)
+	}
+
+	xtra[:scribbles] = []
+
+	0
+end
+
+def OnDestroy(hwnd)
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	DeleteObject(xtra[:hpen])
+
+	PostQuitMessage(0); 0
+end
+
+def OnPaint(hwnd,
+	ps
+)
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	UseObjects(ps[:hdc], xtra[:hpen]) {
+		xtra[:scribbles].each { |scribble|
+			MoveToEx(ps[:hdc], *scribble[0], nil)
+
+			scribble.each { |x, y|
+				LineTo(ps[:hdc], x, y)
+			}
+		}
+	}
+
+	0
+end
+
+def OnLButtonDown(hwnd,
+	x, y
+)
+	SetCapture(hwnd)
+
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	xtra[:curpos] = [x, y]
+	xtra[:scribbles] << [[x, y]]
+
+	RECT.new { |rect|
+		SetRect(rect, x, y, x, y)
+		InflateRect(rect, *DPIAwareXY(5, 5))
+		InvalidateRect(hwnd, rect, 1)
+	}
+
+	0
+end
+
+def OnLButtonUp(hwnd,
+	x, y
+)
+	ReleaseCapture()
+
+	0
+end
+
+def OnMouseMove(hwnd,
+	x, y
+)
+	return 0 if GetCapture() != hwnd
+
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	xtra[:scribbles].last << [x, y]
+
+	UseDC(hwnd) { |hdc|
+		UseObjects(hdc, xtra[:hpen]) {
+			MoveToEx(hdc, *xtra[:curpos], nil)
+			LineTo(hdc, x, y)
+
+			xtra[:curpos] = [x, y]
+		}
+	}
+
+	0
+end
+
+def OnRButtonDown(hwnd,
+	x, y
+)
+	return 0 if GetCapture() == hwnd
+
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	xtra[:scribbles].clear
+
+	InvalidateRect(hwnd, nil, 1)
+
+	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_LBUTTONDOWN
+		OnLButtonDown(hwnd, LOSHORT(lParam), HISHORT(lParam))
+	when WM_LBUTTONUP
+		OnLButtonUp(hwnd, LOSHORT(lParam), HISHORT(lParam))
+	when WM_MOUSEMOVE
+		OnMouseMove(hwnd, LOSHORT(lParam), HISHORT(lParam))
+
+	when WM_RBUTTONDOWN
+		OnRButtonDown(hwnd, LOSHORT(lParam), HISHORT(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
+	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_CROSS)
+		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?
+
+	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/WndExtra.rbw

@@ -0,0 +1,122 @@
+require 'windows_gui'
+
+include WindowsGUI
+
+WndExtra = Struct.new(
+	:foo
+)
+
+def OnCreate(hwnd,
+	cs
+)
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	xtra[:foo] = L('Foo')
+
+	-1
+end
+
+def OnDestroy(hwnd)
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	MessageBox(nil,
+		xtra[:foo],
+		APPNAME,
+		MB_ICONINFORMATION
+	)
+
+	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_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)
+	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/lib/windows_gui/common.rb

@@ -0,0 +1,152 @@
+require 'weakref'
+require 'ffi'
+
+WINDOWS_GUI_VISUAL_STYLES = true unless defined?(WINDOWS_GUI_VISUAL_STYLES)
+WINDOWS_GUI_DPI_AWARE = true unless defined?(WINDOWS_GUI_DPI_AWARE)
+
+module WindowsGUI
+	extend FFI::Library
+
+	VERSION = '2.0.0'
+
+	module Util
+		def FormatException(ex)
+			str, trace = ex.to_s, ex.backtrace
+
+			str << "\n\n-- backtrace --\n\n" << trace.join("\n") if trace
+
+			str
+		end
+
+		module_function :FormatException
+
+		Id2Ref = {}
+
+		def Id2RefTrack(object)
+			Id2Ref[object.object_id] = WeakRef.new(object)
+
+			p "Object id #{object.object_id} of #{object} stored in Id2Ref track hash" if $DEBUG
+
+			ObjectSpace.define_finalizer(object, -> id {
+				Id2Ref.delete(id)
+
+				p "Object id #{id} deleted from Id2Ref track hash" if $DEBUG
+			})
+		end
+
+		module_function :Id2RefTrack
+
+		module ScopedStruct
+			def new(*args)
+				raise ArgumentError, 'Cannot accept both arguments and a block' if
+					args.length > 0 && block_given?
+
+				struct = super
+
+				return struct unless block_given?
+
+				begin
+					yield struct
+				ensure
+					struct.pointer.free
+
+					p "Native memory for #{struct} freed" if $DEBUG
+				end
+
+				nil
+			end
+		end
+	end
+
+	INVALID_HANDLE_VALUE = FFI::Pointer.new(-1)
+
+	def MAKEWORD(lobyte, hibyte)
+		(lobyte & 0xff) | ((hibyte & 0xff) << 8)
+	end
+
+	def LOBYTE(word)
+		word & 0xff
+	end
+
+	def HIBYTE(word)
+		(word >> 8) & 0xff
+	end
+
+	module_function :MAKEWORD, :LOBYTE, :HIBYTE
+
+	def MAKELONG(loword, hiword)
+		(loword & 0xffff) | ((hiword & 0xffff) << 16)
+	end
+
+	def LOWORD(long)
+		long & 0xffff
+	end
+
+	def HIWORD(long)
+		(long >> 16) & 0xffff
+	end
+
+	def LOSHORT(long)
+		((loshort = LOWORD(long)) > 0x7fff) ? loshort - 0x1_0000 : loshort
+	end
+
+	def HISHORT(long)
+		((hishort = HIWORD(long)) > 0x7fff) ? hishort - 0x1_0000 : hishort
+	end
+
+	module_function :MAKELONG, :LOWORD, :HIWORD, :LOSHORT, :HISHORT
+
+	def L(str)
+		(str << "\0").encode!('utf-16le')
+	end
+
+	def PWSTR(wstr)
+		raise 'Invalid Unicode string' unless
+			wstr.encoding == Encoding::UTF_16LE && wstr[-1] == L('')
+
+		ptr = FFI::MemoryPointer.new(:ushort, wstr.length).
+			put_bytes(0, wstr)
+
+		return ptr unless block_given?
+
+		begin
+			yield ptr
+		ensure
+			ptr.free
+
+			p "Native copy of '#{wstr[0...-1].encode($0.encoding)}' freed" if $DEBUG
+		end
+
+		nil
+	end
+
+	module_function :L, :PWSTR
+
+	APPNAME = L(File.basename($0, '.rbw'))
+
+	class POINT < FFI::Struct
+		extend Util::ScopedStruct
+
+		layout \
+			:x, :long,
+			:y, :long
+	end
+
+	class SIZE < FFI::Struct
+		extend Util::ScopedStruct
+
+		layout \
+			:cx, :long,
+			:cy, :long
+	end
+
+	class RECT < FFI::Struct
+		extend Util::ScopedStruct
+
+		layout \
+			:left, :long,
+			:top, :long,
+			:right, :long,
+			:bottom, :long
+	end
+end