fzeet 0.4.2 → 0.5.0

data/lib/fzeet/WindowCommon.rb

@@ -0,0 +1,256 @@
+require_relative 'WindowMethods'
+
+module Fzeet
+	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
+					@@instances[hwnd.to_i] = ObjectSpace._id2ref(
+						Windows::CREATESTRUCT.new(FFI::Pointer.new(lParam))[:lpCreateParams].to_i
+					)
+
+					@@instances[hwnd.to_i].instance_variable_set(:@handle, hwnd)
+				end
+
+				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 || Windows.DefWindowProc(hwnd, uMsg, wParam, lParam)
+		}
+
+		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
+
+				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]
+
+			args = {
+				hwnd: hwnd,
+				uMsg: uMsg,
+				wParam: wParam,
+				lParam: lParam,
+				result: (window.kind_of?(Dialog)) ? 1 : 0,
+				window: window,
+				sender: window
+			}
+
+			case uMsg
+			when Windows::WM_CREATE
+				args[:cs] = Windows::CREATESTRUCT.new(FFI::Pointer.new(lParam))
+			when Windows::WM_NCCREATE
+				args[:result] = 1
+				args[:cs] = Windows::CREATESTRUCT.new(FFI::Pointer.new(lParam))
+			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
+		end
+
+		def initialize(opts = {})
+			_opts = {
+				xstyle: [],
+				caption: Application.name,
+				style: [],
+				x: Windows::CW_USEDEFAULT,
+				y: Windows::CW_USEDEFAULT,
+				width: Windows::CW_USEDEFAULT,
+				height: Windows::CW_USEDEFAULT,
+				parent: nil,
+				menu: nil
+			}
+			badopts = opts.keys - _opts.keys; raise "Bad option(s): #{badopts.join(', ')}." unless badopts.empty?
+			_opts.merge!(opts)
+
+			yield self, _opts if block_given?
+
+			_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]
+
+			@handle = Windows.CreateWindowEx(
+				_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)
+			)
+
+			if @handle.null?
+				raise "CreateWindowEx failed (last error #{Windows.GetLastError()})." unless [
+					[Windows::WM_NCCREATE, 0], [Windows::WM_CREATE, -1],
+					[Windows::WM_DESTROY, 0], [Windows::WM_NCDESTROY, 0]
+				].include?(@processed)
+			else
+				@parent = _opts[:parent]
+				self.menu = _opts[:menu] if _opts[:menu]
+
+				on(:destroy) {
+					menu.rdetach if self.menu
+
+					eachChild(&:dispose)
+				}
+			end
+		end
+
+		attr_reader :parent
+
+		def dispose; Windows.DestroyWindow(@handle) end
+
+		def windowProc(hwnd, uMsg, wParam, lParam)
+			args, result = nil, nil
+
+			if (handlers = @messages[uMsg])
+				args ||= self.class.crackMessage(hwnd, uMsg, wParam, lParam)
+
+				handlers.each { |handler|
+					(handler.arity == 0) ? handler.call : handler.call(args)
+
+					result = args[:result]; @processed[0], @processed[1] = uMsg, result
+				}
+			end
+
+			if uMsg == Windows::WM_COMMAND && (handlers = @commands[Windows.LOWORD(wParam)])
+				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[Windows.HIWORD(wParam)].each { |handler|
+					(handler.arity == 0) ? handler.call : handler.call(args)
+
+					result = args[:result]; @processed[0], @processed[1] = uMsg, result
+				} 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 ||= {})[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 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
+end

data/lib/fzeet/WindowDialog.rb

@@ -0,0 +1,73 @@
+require_relative 'WindowCommon'
+
+module Fzeet
+	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/WindowWindow.rb

@@ -0,0 +1,13 @@
+require_relative 'WindowCommon'
+
+module Fzeet
+	Window = BasicWindow['Fzeet.Window']
+
+	class Window
+		def initialize(opts = {})
+			(opts[:style] ||= []) << :overlappedwindow << :clipchildren
+
+			super
+		end
+	end
+end

data/lib/fzeet/common.rb

@@ -16,6 +16,8 @@ module Fzeet
 
 	Windows.EnableVisualStyles
 
+	Windows.InitializeOle
+
 	def constant(c, *prefixes)
 		return c if c.kind_of?(Integer) || c.kind_of?(FFI::Pointer)
 

data/lib/fzeet/windows/com.rb

@@ -0,0 +1,186 @@
+require_relative 'common'
+
+module Fzeet
+	module Windows
+		ffi_lib 'ole32'
+		ffi_convention :stdcall
+
+		S_OK = 0
+
+		E_NOTIMPL = 0x80004001 - 0x1_0000_0000
+		E_NOINTERFACE = 0x80004002 - 0x1_0000_0000
+
+		def SUCCEEDED(hr) hr >= 0 end
+		def FAILED(hr) hr < 0 end
+
+		module_function \
+			:SUCCEEDED,
+			:FAILED
+
+		class GUID < FFI::Struct
+			layout \
+				:Data1, :ulong,
+				:Data2, :ushort,
+				:Data3, :ushort,
+				:Data4, [:uchar, 8]
+
+			def self.[](s)
+				raise 'Bad GUID format.' unless s =~ /^[0-9a-f]{8}-([0-9a-f]{4}-){3}[0-9a-f]{12}$/i
+
+				new.tap { |guid|
+					guid[:Data1] = s[0, 8].to_i(16)
+					guid[:Data2] = s[9, 4].to_i(16)
+					guid[:Data3] = s[14, 4].to_i(16)
+					guid[:Data4][0] = s[19, 2].to_i(16)
+					guid[:Data4][1] = s[21, 2].to_i(16)
+					s[24, 12].split('').each_slice(2).with_index { |a, i|
+						guid[:Data4][i + 2] = a.join('').to_i(16)
+					}
+				}
+			end
+		end
+
+		CLSCTX_INPROC_SERVER = 0x1
+
+		attach_function :CoCreateInstance, [:pointer, :pointer, :ulong, :pointer, :pointer], :long
+
+		module COM
+			module Interface
+				def self.[](*args)
+					spec, iid, *ifaces = args.reverse
+
+					spec.each { |name, signature| signature[0].unshift(:pointer) }
+
+					Class.new(FFI::Struct) { |iface|
+						iface.const_set(:IID, iid)
+
+						iface.const_set(:VTBL, Class.new(FFI::Struct) { |vtbl|
+							vtbl.const_set(:SPEC, Hash[(ifaces.map { |iface| iface::VTBL::SPEC.to_a } << spec.to_a).flatten(1)])
+
+							vtbl.layout \
+								*vtbl::SPEC.map { |name, signature| [name, callback(*signature)] }.flatten
+						})
+
+						iface.layout \
+							:lpVtbl, :pointer
+					}
+				end
+			end
+
+			module Instance
+				def self.[](iface)
+					Class.new(iface) { |klass|
+						def initialize(pointer)
+							self.pointer = pointer
+
+							@vtbl = self.class::VTBL.new(self[:lpVtbl])
+						end
+
+						attr_reader :vtbl
+
+						VTBL.members.each { |name|
+							define_method(name) { |*args|
+								raise "#{self}.#{name} failed." if Windows.FAILED(result = @vtbl[name].call(self, *args)); result
+							}
+						}
+					}
+				end
+			end
+
+			module Factory
+				def self.[](iface, clsid)
+					Class.new(iface) { |klass|
+						klass.const_set(:CLSID, clsid)
+
+						def initialize(opts = {})
+							@opts = opts
+
+							@opts[:clsctx] ||= CLSCTX_INPROC_SERVER
+
+							FFI::MemoryPointer.new(:pointer) { |ppv|
+								raise "CoCreateInstance failed (#{self.class})." if
+									Windows.FAILED(Windows.CoCreateInstance(self.class::CLSID, nil, @opts[:clsctx], self.class::IID, ppv))
+
+								self.pointer = ppv.read_pointer
+							}
+
+							@vtbl = self.class::VTBL.new(self[:lpVtbl])
+						end
+
+						attr_reader :vtbl
+
+						VTBL.members.each { |name|
+							define_method(name) { |*args|
+								raise "#{self}.#{name} failed." if Windows.FAILED(result = @vtbl[name].call(self, *args)); result
+							}
+						}
+					}
+				end
+			end
+
+			module Callback
+				def self.[](iface)
+					Class.new(iface) { |klass|
+						def initialize(opts = {})
+							@vtbl, @refc = self.class::VTBL.new, 1
+
+							@vtbl.members.each { |name|
+								@vtbl[name] = instance_variable_set("@fn#{name}",
+									FFI::Function.new(*@vtbl.class::SPEC[name].reverse, convention: :stdcall) { |*args|
+										send(name, *args[1..-1])
+									}
+								)
+							}
+
+							self[:lpVtbl] = @vtbl
+
+							begin
+								yield self
+							ensure
+								Release()
+							end if block_given?
+						end
+
+						attr_reader :vtbl, :refc
+
+						def QueryInterface(riid, ppv)
+							if [IID_IUnknown, self.class::IID].any? { |iid| Windows.memcmp(riid, iid, iid.size) == 0 }
+								ppv.write_pointer(self)
+							else
+								ppv.write_pointer(0); return E_NOINTERFACE
+							end
+
+							AddRef(); S_OK
+						end
+
+						def AddRef
+							@refc += 1
+						end
+
+						def Release
+							@refc -= 1
+						end
+
+						(VTBL.members - IUnknown::VTBL.members).each { |name|
+							define_method(name) { |*args|
+								E_NOTIMPL
+							}
+						}
+					}
+				end
+			end
+		end
+
+		IID_IUnknown = GUID['00000000-0000-0000-C000-000000000046']
+
+		IUnknown = COM::Interface[
+			IID_IUnknown,
+
+			QueryInterface: [[:pointer, :pointer], :long],
+			AddRef: [[], :ulong],
+			Release: [[], :ulong]
+		]
+
+		Unknown = COM::Instance[IUnknown]
+	end
+end

data/lib/fzeet/windows/comctl.rb

@@ -1,59 +1 @@
-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
+require_relative 'comctlbutton'

data/lib/fzeet/windows/comctlbutton.rb

@@ -0,0 +1,30 @@
+require_relative 'comctlcommon'
+
+module Fzeet
+	module Windows
+		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

data/lib/fzeet/windows/comctlcommon.rb

@@ -0,0 +1,34 @@
+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
+	end
+end

data/lib/fzeet/windows/comdlg.rb

@@ -0,0 +1 @@
+require_relative 'comdlgofn'

data/lib/fzeet/windows/comdlgcommon.rb

@@ -0,0 +1,9 @@
+require_relative 'common'
+
+module Fzeet
+	module Windows
+		ffi_lib 'comdlg32'
+		ffi_convention :stdcall
+
+	end
+end