fzeet 0.4.1 → 0.4.2

data/lib/fzeet/Window.rb

@@ -1,9 +1,16 @@
 require_relative 'WindowMethods'
 
 module Fzeet
-	class Window < Handle
+	class BasicWindow < Handle
 		include WindowMethods
 
+		Prefix = {
+			xstyle: [:ws_ex_],
+			style: [:ws_, :ds_],
+			message: [:wm_],
+			notification: []
+		}
+
 		WindowProc = FFI::Function.new(:long, [:pointer, :uint, :uint, :long], convention: :stdcall) { |hwnd, uMsg, wParam, lParam|
 			begin
 				if uMsg == Windows::WM_NCCREATE
@@ -16,9 +23,13 @@ module Fzeet
 
 				result = @@instances[hwnd.to_i].windowProc(hwnd, uMsg, wParam, lParam) if @@instances[hwnd.to_i]
 			rescue
-				Fzeet.message %Q{#{$!}\n\n#{$!.backtrace.join("\n")}}, icon: :error
+				answer = Fzeet.message %Q{#{$!}\n\n#{$!.backtrace.join("\n")}}, buttons: [:abort, :retry, :ignore], icon: :error
+
+				Application.quit if answer.abort?
 			ensure
 				if uMsg == Windows::WM_NCDESTROY
+					@@instances[hwnd.to_i].dialog = false
+
 					@@instances.delete(hwnd.to_i)
 				end
 			end
@@ -26,18 +37,38 @@ module Fzeet
 			result || Windows.DefWindowProc(hwnd, uMsg, wParam, lParam)
 		}
 
-		WindowClass = Windows::WNDCLASSEX.new.tap { |wc|
-			wc[:cbSize] = wc.size
-			wc[:lpfnWndProc] = WindowProc
-			wc[:hInstance] = Windows.GetModuleHandle(nil)
-			wc[:hIcon] = Windows.LoadIcon(nil, Windows::IDI_APPLICATION)
-			wc[:hCursor] = Windows.LoadCursor(nil, Windows::IDC_ARROW)
-			wc[:hbrBackground] = FFI::Pointer.new(Windows::COLOR_WINDOW + 1)
-			wc[:lpszClassName] = className = FFI::MemoryPointer.from_string('Fzeet.Window')
+		DialogProc = FFI::Function.new(:int, [:pointer, :uint, :uint, :long], convention: :stdcall) { |hwnd, uMsg, wParam, lParam|
+			begin
+				if uMsg == Windows::WM_INITDIALOG
+					@@instances[hwnd.to_i] = ObjectSpace._id2ref(lParam)
+
+					@@instances[hwnd.to_i].instance_variable_set(:@handle, hwnd)
+				end
 
-			Windows.DetonateLastError(0, :RegisterClassEx, wc) { className.free }
+				result = @@instances[hwnd.to_i].windowProc(hwnd, uMsg, wParam, lParam) if @@instances[hwnd.to_i]
+			rescue
+				answer = Fzeet.message %Q{#{$!}\n\n#{$!.backtrace.join("\n")}}, buttons: [:abort, :retry, :ignore], icon: :error
+
+				Application.quit if answer.abort?
+			ensure
+				if uMsg == Windows::WM_NCDESTROY
+					@@instances[hwnd.to_i].dialog = false
+
+					@@instances.delete(hwnd.to_i)
+				end
+			end
+
+			(result.nil?) ? 0 : 1
 		}
 
+		WindowClass = Fzeet::WindowClass.new(nil, 'Fzeet.BasicWindow')
+
+		def self.[](name, opts = {})
+			Class.new(self) { |klass|
+				klass.const_set(:WindowClass, Fzeet::WindowClass.new(self::WindowClass, name, opts))
+			}
+		end
+
 		def self.crackMessage(hwnd, uMsg, wParam, lParam)
 			window = @@instances[hwnd.to_i]
 
@@ -46,7 +77,7 @@ module Fzeet
 				uMsg: uMsg,
 				wParam: wParam,
 				lParam: lParam,
-				result: 0,
+				result: (window.kind_of?(Dialog)) ? 1 : 0,
 				window: window,
 				sender: window
 			}
@@ -60,6 +91,24 @@ module Fzeet
 			when Windows::WM_COMMAND
 				args[:command], args[:notification], args[:hctl] = Windows.LOWORD(wParam), Windows.HIWORD(wParam), FFI::Pointer.new(lParam)
 				args[:sender] = @@instances[args[:hctl].to_i] unless args[:hctl].null?
+			when Windows::WM_NOTIFY
+				args[:nmh] = Windows::NMHDR.new(FFI::Pointer.new(lParam))
+				args[:command], args[:notification], args[:hctl] = args[:nmh][:idFrom], args[:nmh][:code], args[:nmh][:hwndFrom]
+				(args[:sender] = @@instances[args[:hctl].to_i]).class.crackNotification(args)
+			when \
+				Windows::WM_MOUSEMOVE,
+				Windows::WM_LBUTTONDOWN, Windows::WM_LBUTTONUP, Windows::WM_LBUTTONDBLCLK,
+				Windows::WM_RBUTTONDOWN, Windows::WM_RBUTTONUP, Windows::WM_RBUTTONDBLCLK,
+				Windows::WM_MBUTTONDOWN, Windows::WM_MBUTTONUP, Windows::WM_MBUTTONDBLCLK,
+				Windows::WM_CONTEXTMENU
+
+				args[:x], args[:y] = Windows.GET_X_LPARAM(lParam), Windows.GET_Y_LPARAM(lParam)
+
+				if uMsg == Windows::WM_CONTEXTMENU && args[:x] == -1
+					Windows.DetonateLastError(0, :GetCursorPos, pt = Point.new)
+
+					args[:keyboard], args[:x], args[:y] = true, pt[:x], pt[:y]
+				end
 			end
 
 			args
@@ -69,7 +118,7 @@ module Fzeet
 			_opts = {
 				xstyle: [],
 				caption: Application.name,
-				style: [:overlappedwindow, :clipchildren],
+				style: [],
 				x: Windows::CW_USEDEFAULT,
 				y: Windows::CW_USEDEFAULT,
 				width: Windows::CW_USEDEFAULT,
@@ -82,17 +131,18 @@ module Fzeet
 
 			yield self, _opts if block_given?
 
-			_opts[:xstyle] = _opts[:xstyle].inject(0) { |flags, xstyle| flags |= Windows.const_get("WS_EX_#{xstyle.upcase}") }
+			_opts[:xstyle] = Fzeet.flags(_opts[:xstyle], *self.class::Prefix[:xstyle])
 			_opts[:caption] = _opts[:caption].to_s
-			_opts[:style] = _opts[:style].inject(0) { |flags, style| flags |= Windows.const_get("WS_#{style.upcase}") }
+			_opts[:style] = Fzeet.flags(_opts[:style], *self.class::Prefix[:style])
 
 			@messages ||= {}
 			@commands ||= {}
+			@notifies ||= {}
 
 			@processed = [0, 0]
 
 			@handle = Windows.CreateWindowEx(
-				_opts[:xstyle], 'Fzeet.Window', _opts[:caption], _opts[:style],
+				_opts[:xstyle],  self.class::WindowClass.name, _opts[:caption], _opts[:style],
 				_opts[:x], _opts[:y], _opts[:width], _opts[:height],
 				_opts[:parent] && _opts[:parent].handle, nil, Windows.GetModuleHandle(nil), FFI::Pointer.new(object_id)
 			)
@@ -147,31 +197,140 @@ module Fzeet
 				} if handlers[Windows.HIWORD(wParam)]
 			end
 
+			if uMsg == Windows::WM_NOTIFY && (handlers = @notifies[(nmh = Windows::NMHDR.new(FFI::Pointer.new(lParam)))[:idFrom]])
+				args ||= self.class.crackMessage(hwnd, uMsg, wParam, lParam)
+
+				handlers[:all].each { |handler|
+					(handler.arity == 0) ? handler.call : handler.call(args)
+
+					result = args[:result]; @processed[0], @processed[1] = uMsg, result
+				} if handlers[:all]
+
+				handlers[nmh[:code]].each { |handler|
+					(handler.arity == 0) ? handler.call : handler.call(args)
+
+					result = args[:result]; @processed[0], @processed[1] = uMsg, result
+				} if handlers[nmh[:code]]
+			end
+
 			result
 		end
 
 		def onMessage(msg, &block)
-			((@messages ||= {})[Windows.const_get("WM_#{msg.upcase}")] ||= []) << block
+			((@messages ||= {})[Fzeet.constant(msg, :wm_)] ||= []) << block
 
 			self
 		end
 
 		def onCommand(cmd, notification = :all, &block)
+			notification = Fzeet.constant(notification, *self[cmd].class::Prefix[:notification]) unless
+				notification.kind_of?(Integer) || notification == :all
+
 			(((@commands ||= {})[Command[cmd]] ||= {})[notification] ||= []) << block
 
 			self
 		end
 
+		def onNotify(cmd, notification = :all, &block)
+			notification = Fzeet.constant(notification, *self[cmd].class::Prefix[:notification]) unless
+				notification.kind_of?(Integer) || notification == :all
+
+			(((@notifies ||= {})[Command[cmd]] ||= {})[notification] ||= []) << block
+
+			self
+		end
+
 		def on(*args, &block)
 			case args.length
 			when 1; onMessage(*args, &block)
 			when 2, 3
-				case Windows.const_get("WM_#{args.shift.upcase}")
+				case Fzeet.constant(args.shift, :wm_)
 				when Windows::WM_COMMAND; onCommand(*args, &block)
+				when Windows::WM_NOTIFY; onNotify(*args, &block)
 				else raise ArgumentError
 				end
 			else raise ArgumentError
 			end
 		end
 	end
+
+	Window = BasicWindow['Fzeet.Window']
+
+	class Window
+		def initialize(opts = {})
+			(opts[:style] ||= []) << :overlappedwindow << :clipchildren
+
+			super
+		end
+	end
+
+	Dialog = BasicWindow['Fzeet.Dialog',
+		wndProc: BasicWindow::DialogProc
+	]
+
+	class Dialog
+		def initialize(parent, opts = {}, &block)
+			@parent = parent
+
+			_opts = {
+				xstyle: [:noparentnotify],
+				caption: Application.name,
+				style: [:sysmenu, :visible],
+				x: 0,
+				y: 0,
+				width: 200,
+				height: 150,
+				modal: false
+			}
+			badopts = opts.keys - _opts.keys; raise "Bad option(s): #{badopts.join(', ')}." unless badopts.empty?
+			_opts.merge!(opts)
+
+			_opts[:xstyle] = Fzeet.flags(_opts[:xstyle], *self.class::Prefix[:xstyle])
+			_opts[:caption] = _opts[:caption].to_s
+			_opts[:style] = Fzeet.flags(_opts[:style], *self.class::Prefix[:style])
+
+			@messages ||= {}
+			@commands ||= {}
+			@notifies ||= {}
+
+			@processed = [0, 0]
+
+			dt = Windows::DLGTEMPLATE.new
+
+			dt[:style] = _opts[:style]
+			dt[:dwExtendedStyle] = _opts[:xstyle]
+			dt[:x] = _opts[:x]
+			dt[:y] = _opts[:y]
+			dt[:cx] = _opts[:width]
+			dt[:cy] = _opts[:height]
+
+			on(:initdialog) { self.text = _opts[:caption] }
+
+			on(:initdialog, &block) if block
+
+			if _opts[:modal]
+				@result = Windows.DetonateLastError([-1, 0], :DialogBoxIndirectParam,
+					Windows.GetModuleHandle(nil),
+					dt,
+					@parent && @parent.handle,
+					BasicWindow::DialogProc,
+					object_id
+				)
+			else
+				@handle = Windows.DetonateLastError(FFI::Pointer::NULL, :CreateDialogIndirectParam,
+					Windows.GetModuleHandle(nil),
+					dt,
+					@parent && @parent.handle,
+					BasicWindow::DialogProc,
+					object_id
+				)
+
+				self.dialog = true
+			end
+		end
+
+		def end(result) Windows.DetonateLastError(0, :EndDialog, @handle, Command[result]); self end
+
+		def result; DialogResult.new(@result) end
+	end
 end

data/lib/fzeet/WindowMethods.rb

@@ -4,12 +4,31 @@ module Fzeet
 	module WindowMethods
 		include Toggle
 
-		def show(cmdShow = :shownormal) Windows.ShowWindow(@handle, Windows.const_get("SW_#{cmdShow.upcase}")); self end
+		def show(cmdShow = :shownormal) Windows.ShowWindow(@handle, Fzeet.constant(cmdShow, :sw_)); self end
 		def update; Windows.DetonateLastError(0, :UpdateWindow, @handle); self end
 
+		def textlen; Windows.GetWindowTextLength(@handle) end
+
+		def text
+			return '' if (len = textlen + 1) == 1
+
+			''.tap { |text|
+				FFI::MemoryPointer.new(:char, len) { |buf|
+					Windows.DetonateLastError(0, :GetWindowText, @handle, buf, len)
+
+					text << buf.read_string
+				}
+			}
+		end
+
+		def text=(text) Windows.DetonateLastError(0, :SetWindowText, @handle, text) end
+
 		def enabled?; Windows.IsWindowEnabled(@handle) != 0 end
 		def enabled=(enabled) Windows.EnableWindow(@handle, (enabled) ? 1 : 0) end
 
+		def capture?; Windows.GetCapture().to_i == @handle.to_i end
+		def capture=(capture) (capture) ? Windows.SetCapture(@handle) : Windows.DetonateLastError(0, :ReleaseCapture) end
+
 		def [](id) Handle.instance(Windows.DetonateLastError(FFI::Pointer::NULL, :GetDlgItem, @handle, Command[id])) end
 
 		EnumChildProc = FFI::Function.new(:int, [:pointer, :long], convention: :stdcall) { |hwnd, lParam|
@@ -18,10 +37,18 @@ module Fzeet
 
 		def eachChild(&block) Windows.EnumChildWindows(@handle, EnumChildProc, block.object_id); self end
 
+		def menu; (Handle.instance?(handle = Windows.GetMenu(@handle))) ? Handle.instance(handle) : nil end
+
+		def menu=(menu)
+			self.menu.dispose if self.menu
+
+			Windows.DetonateLastError(0, :SetMenu, @handle, menu.handle) if menu
+		end
+
 		def sendmsg(msg, wParam = 0, lParam = 0)
 			Windows.SendMessage(
 				@handle,
-				Windows.const_get("WM_#{msg.upcase}"),
+				Fzeet.constant(msg, *self.class::Prefix[:message]),
 				wParam.to_i,
 				((lparam = lParam.to_i) > 0x7fff_ffff) ? lparam - 0x1_0000_0000 : lparam
 			)
@@ -30,7 +57,7 @@ module Fzeet
 		def postmsg(msg, wParam = 0, lParam = 0)
 			Windows.DetonateLastError(0, :PostMessage,
 				@handle,
-				Windows.const_get("WM_#{msg.upcase}"),
+				Fzeet.constant(msg, *self.class::Prefix[:message]),
 				wParam.to_i,
 				((lparam = lParam.to_i) > 0x7fff_ffff) ? lparam - 0x1_0000_0000 : lparam
 			)
@@ -38,12 +65,19 @@ module Fzeet
 			self
 		end
 
-		def menu; (Handle.instance?(handle = Windows.GetMenu(@handle))) ? Handle.instance(handle) : nil end
+		def dlgmsg?(msg) Windows.IsDialogMessage(@handle, msg) != 0 end
 
-		def menu=(menu)
-			self.menu.dispose if self.menu
+		def dialog?; Application.dialogs.include?(self) end
 
-			Windows.DetonateLastError(0, :SetMenu, @handle, menu.handle) if menu
+		def dialog=(dialog)
+			if dialog
+				Application.dialogs << self unless dialog?
+			else
+				Application.dialogs.delete(self)
+			end
 		end
+
+		def message(message, opts = {window: self}) Fzeet.message(message, opts) end
+		def question(message, opts = {window: self}) Fzeet.question(message, opts) end
 	end
 end

data/lib/fzeet/common.rb

@@ -1,15 +1,59 @@
 require_relative 'windows'
 
 module Fzeet
+	Windows.DetonateLastError(0, :InitCommonControlsEx,
+		Windows::INITCOMMONCONTROLSEX.new.tap { |icc|
+			icc[:dwSize] = icc.size
+			icc[:dwICC] = \
+				Windows::ICC_WIN95_CLASSES |
+				Windows::ICC_DATE_CLASSES |
+				Windows::ICC_USEREX_CLASSES |
+				Windows::ICC_COOL_CLASSES |
+				Windows::ICC_INTERNET_CLASSES |
+				Windows::ICC_PAGESCROLLER_CLASS
+		}
+	)
+
+	Windows.EnableVisualStyles
+
+	def constant(c, *prefixes)
+		return c if c.kind_of?(Integer) || c.kind_of?(FFI::Pointer)
+
+		c = c.upcase
+
+		prefixes.map! { |prefix|
+			prefix = prefix.upcase
+
+			"#{prefix}#{c}".tap { |name|
+				return Windows.const_get(name) if Windows.const_defined?(name)
+			}
+		}
+
+		raise "Constant not found: #{c} (tried: #{prefixes.join(', ')})."
+	end
+
+	def flags(flags, *prefixes)
+		return flags if flags.kind_of?(Integer)
+
+		[*flags].inject(0) { |flags, flag| flags |= constant(flag, *prefixes) }
+	end
+
+	module_function :constant, :flags
+
 	module Toggle
 		def toggle(what) send("#{what}=", !send("#{what}?")); self end
 	end
 
 	class Command
-		@ids = {}
+		@ids = {
+			OK: Windows::IDOK,
+			CANCEL: Windows::IDCANCEL,
+		}
 		@nextId = Windows::WM_APP + 1
 
 		def self.[](id)
+			return id if id.kind_of?(Integer)
+
 			id = id.upcase
 
 			@ids[id], @nextId = @nextId, @nextId + 1 unless @ids.include?(id)
@@ -43,15 +87,13 @@ module Fzeet
 		_opts.merge!(opts)
 
 		defbutton = nil
-		defbutton = if _opts[:buttons].find.with_index { |button, i| defbutton = i + 1; button =~ /^[A-Z]/ }
-			Windows.const_get("MB_DEFBUTTON#{defbutton}")
+		defbutton = if [*_opts[:buttons]].find.with_index { |button, i| defbutton = i + 1; button =~ /^[A-Z]/ }
+			constant(defbutton.to_s, :mb_defbutton)
 		else
 			0
 		end
 
-		flags = Windows.const_get("MB_#{_opts[:buttons].join('').upcase}") |
-			defbutton |
-			Windows.const_get("MB_ICON#{_opts[:icon].upcase}")
+		flags = constant([*_opts[:buttons]].join(''), :mb_) | defbutton | constant(_opts[:icon], :mb_icon)
 
 		DialogResult.new(
 			Windows.DetonateLastError(0, :MessageBox, _opts[:window] && _opts[:window].handle, message.to_s, _opts[:caption].to_s, flags)
@@ -67,6 +109,82 @@ module Fzeet
 
 	module_function :message, :question
 
+	class WindowClass < Windows::WNDCLASSEX
+		def initialize(prototype, name, opts = {})
+			@prototype = prototype
+			@name = name
+			className = FFI::MemoryPointer.from_string(@name)
+
+			_opts = {
+				style: [],
+				wndProc: BasicWindow::WindowProc,
+				clsExtra: 0,
+				wndExtra: 0,
+				icon: SystemIcon.new(:application),
+				cursor: SystemCursor.new(:arrow),
+				background: SystemBrush.new(:window),
+				iconSm: nil
+			}
+			badopts = opts.keys - _opts.keys; raise "Bad option(s): #{badopts.join(', ')}." unless badopts.empty?
+
+			self[:cbSize] = Windows::WNDCLASSEX.size
+			self[:hInstance] = Windows.GetModuleHandle(nil)
+			self[:lpszClassName] = className
+
+			if @prototype
+				self[:style] = Fzeet.flags(opts[:style] || [], :cs_) | @prototype[:style]
+				self[:lpfnWndProc] = opts[:wndProc] || @prototype[:lpfnWndProc]
+				self[:cbClsExtra] = (opts[:clsExtra] || 0) + @prototype[:cbClsExtra]
+				self[:cbWndExtra] = (opts[:wndExtra] || 0) + @prototype[:cbWndExtra]
+				self[:hIcon] = (opts[:icon] && opts[:icon].handle) || @prototype[:hIcon]
+				self[:hCursor] = (opts[:cursor] && opts[:cursor].handle) || @prototype[:hCursor]
+				self[:hbrBackground] = (opts[:background] && opts[:background].handle) || @prototype[:hbrBackground]
+				self[:hIconSm] = (opts[:iconSm] && _opts[:iconSm].handle) || @prototype[:hIconSm]
+			else
+				_opts.merge(opts)
+
+				self[:style] = Fzeet.flags(_opts[:style], :cs_)
+				self[:lpfnWndProc] = _opts[:wndProc]
+				self[:cbClsExtra] = _opts[:clsExtra]
+				self[:cbWndExtra] = _opts[:wndExtra]
+				self[:hIcon] = _opts[:icon].handle
+				self[:hCursor] = _opts[:cursor].handle
+				self[:hbrBackground] = _opts[:background].handle
+				self[:hIconSm] = _opts[:iconSm] && _opts[:iconSm].handle
+			end
+
+			Windows.DetonateLastError(0, :RegisterClassEx, self) { className.free }
+		end
+
+		attr_reader :prototype, :name
+	end
+
+	class Point < Windows::POINT
+		def initialize(x = 0, y = 0) self[:x], self[:y] = x, y end
+
+		def to_a; [self[:x], self[:y]] end
+
+		def client!(window) Windows.DetonateLastError(0, :ScreenToClient, window.handle, self); self end
+		def screen!(window) Windows.DetonateLastError(0, :ClientToScreen, window.handle, self); self end
+	end
+
+	class Size < Windows::SIZE
+		def initialize(cx = 0, cy = 0) self[:cx], self[:cy] = cx, cy end
+
+		def to_a; [self[:cx], self[:cy]] end
+	end
+
+	class Rect < Windows::RECT
+		def initialize(l = 0, t = 0, r = 0, b = 0) self[:left], self[:top], self[:right], self[:bottom] = l, t, r, b end
+
+		def to_a; [self[:left], self[:top], self[:right], self[:bottom]] end
+
+		def lt; Point.new(self[:left], self[:top]) end
+		def lb; Point.new(self[:left], self[:bottom]) end
+		def rt; Point.new(self[:right], self[:top]) end
+		def rb; Point.new(self[:right], self[:bottom]) end
+	end
+
 	class Message < Windows::MSG
 		def get!(window = nil, msgFilterMin = 0, msgFilterMax = 0)
 			Windows.DetonateLastError(-1, :GetMessage, self, window && window.handle, msgFilterMin, msgFilterMax) != 0
@@ -104,6 +222,54 @@ module Fzeet
 
 	module_function :using
 
+	module IconMethods
+
+	end
+
+	class SystemIcon < Handle
+		include IconMethods
+
+		def initialize(id)
+			@handle = Windows.DetonateLastError(FFI::Pointer::NULL, :LoadIcon, nil, @id = Fzeet.constant(id, :idi_)); attach
+		end
+
+		attr_reader :id
+
+		def dispose; detach end
+	end
+
+	module CursorMethods
+
+	end
+
+	class SystemCursor < Handle
+		include CursorMethods
+
+		def initialize(id)
+			@handle = Windows.DetonateLastError(FFI::Pointer::NULL, :LoadCursor, nil, @id = Fzeet.constant(id, :idc_)); attach
+		end
+
+		attr_reader :id
+
+		def dispose; detach end
+	end
+
+	module BrushMethods
+
+	end
+
+	class SystemBrush < Handle
+		include BrushMethods
+
+		def initialize(id)
+			@handle = FFI::Pointer.new((@id = Fzeet.constant(id, :color_, :ctlcolor_)) + 1); attach
+		end
+
+		attr_reader :id
+
+		def dispose; detach end
+	end
+
 	module FontMethods
 
 	end
@@ -119,4 +285,46 @@ module Fzeet
 
 		def dispose; Windows.DeleteObject(@handle); detach end
 	end
+
+	module BitmapMethods
+
+	end
+
+	class PARGB32 < Handle
+		include BitmapMethods
+
+		def initialize(path, width = 0, height = 0)
+			@handle = Windows.DetonateLastError(FFI::Pointer::NULL, :LoadImage,
+				nil,
+				@path = path,
+				Windows::IMAGE_BITMAP,
+				width,
+				height,
+				Windows::LR_LOADFROMFILE | Windows::LR_CREATEDIBSECTION
+			)
+
+			attach
+		end
+
+		attr_reader :path
+
+		def dispose; Windows.DeleteObject(@handle); detach end
+	end
+
+	module DCMethods
+		def move(x, y) Windows.DetonateLastError(0, :MoveToEx, @handle, x, y, nil); self end
+		def line(x, y) Windows.DetonateLastError(0, :LineTo, @handle, x, y); self end
+	end
+
+	class ClientDC < Handle
+		include DCMethods
+
+		def initialize(window)
+			@handle = Windows.DetonateLastError(FFI::Pointer::NULL, :GetDC, (@window = window).handle); attach
+		end
+
+		attr_reader :window
+
+		def dispose; Windows.ReleaseDC(@window.handle, @handle); detach end
+	end
 end

data/lib/fzeet/windows/comctl.rb

@@ -0,0 +1,59 @@
+require_relative 'common'
+
+module Fzeet
+	module Windows
+		ffi_lib 'comctl32'
+		ffi_convention :stdcall
+
+		ICC_LISTVIEW_CLASSES = 0x00000001
+		ICC_TREEVIEW_CLASSES = 0x00000002
+		ICC_BAR_CLASSES = 0x00000004
+		ICC_TAB_CLASSES = 0x00000008
+		ICC_UPDOWN_CLASS = 0x00000010
+		ICC_PROGRESS_CLASS = 0x00000020
+		ICC_HOTKEY_CLASS = 0x00000040
+		ICC_ANIMATE_CLASS = 0x00000080
+		ICC_WIN95_CLASSES = 0x000000FF
+		ICC_DATE_CLASSES = 0x00000100
+		ICC_USEREX_CLASSES = 0x00000200
+		ICC_COOL_CLASSES = 0x00000400
+		ICC_INTERNET_CLASSES = 0x00000800
+		ICC_PAGESCROLLER_CLASS = 0x00001000
+		ICC_NATIVEFNTCTL_CLASS = 0x00002000
+		ICC_STANDARD_CLASSES = 0x00004000
+		ICC_LINK_CLASS = 0x00008000
+
+		class INITCOMMONCONTROLSEX < FFI::Struct
+			layout \
+				:dwSize, :ulong,
+				:dwICC, :ulong
+		end
+
+		attach_function :InitCommonControlsEx, [:pointer], :int
+
+		BS_SPLITBUTTON = 0x0000000C
+		BS_DEFSPLITBUTTON = 0x0000000D
+		BS_COMMANDLINK = 0x0000000E
+		BS_DEFCOMMANDLINK = 0x0000000F
+
+		BCM_FIRST = 0x1600
+		BCM_GETIDEALSIZE = BCM_FIRST + 0x0001
+		BCM_SETIMAGELIST = BCM_FIRST + 0x0002
+		BCM_GETIMAGELIST = BCM_FIRST + 0x0003
+		BCM_SETTEXTMARGIN = BCM_FIRST + 0x0004
+		BCM_GETTEXTMARGIN = BCM_FIRST + 0x0005
+		BCM_SETDROPDOWNSTATE = BCM_FIRST + 0x0006
+		BCM_SETSPLITINFO = BCM_FIRST + 0x0007
+		BCM_GETSPLITINFO = BCM_FIRST + 0x0008
+		BCM_SETNOTE = BCM_FIRST + 0x0009
+		BCM_GETNOTE = BCM_FIRST + 0x000A
+		BCM_GETNOTELENGTH = BCM_FIRST + 0x000B
+		BCM_SETSHIELD = BCM_FIRST + 0x000C
+
+		BCN_FIRST = 0x1_0000_0000 - 1250
+		BCN_LAST = 0x1_0000_0000 - 1350
+		BCN_HOTITEMCHANGE = BCN_FIRST + 0x0001
+		BCN_DROPDOWN = BCN_FIRST + 0x0002
+		NM_GETCUSTOMSPLITRECT = BCN_FIRST + 0x0003
+	end
+end