fzeet 0.5.2 → 0.5.3

data/lib/fzeet/windows/{comctlcommon.rb → comctl/Common.rb}

@@ -1,4 +1,4 @@
-require_relative 'common'
+require_relative '../common'
 
 module Fzeet
 	module Windows

data/lib/fzeet/windows/comctl.rb

@@ -1 +1 @@
-require_relative 'comctlbutton'
+require_relative 'comctl/Button'

data/lib/fzeet/windows/{comdlgcommon.rb → comdlg/Common.rb}

@@ -1,4 +1,4 @@
-require_relative 'common'
+require_relative '../common'
 
 module Fzeet
 	module Windows

data/lib/fzeet/windows/{comdlgofn.rb → comdlg/FileDialog.rb}

@@ -1,4 +1,4 @@
-require_relative 'comdlgcommon'
+require_relative 'Common'
 
 module Fzeet
 	module Windows

data/lib/fzeet/windows/comdlg.rb

@@ -1 +1 @@
-require_relative 'comdlgofn'
+require_relative 'comdlg/FileDialog'

data/lib/fzeet/windows/common.rb

@@ -4,17 +4,92 @@ module Fzeet
 	module Windows
 		extend FFI::Library
 
+		ffi_lib 'kernel32'
+		ffi_convention :stdcall
+
+		INVALID_HANDLE_VALUE = FFI::Pointer.new(-1)
+		INVALID_FILE_SIZE = 0xFFFFFFFF
+		INVALID_SET_FILE_POINTER = 0xFFFFFFFF
+		INVALID_FILE_ATTRIBUTES = 0xFFFFFFFF
+		INVALID_ATOM = 0
+
+		attach_function :GetLastError, [], :ulong
+		attach_function :SetLastError, [:ulong], :void
+		attach_function :RestoreLastError, [:ulong], :void
+
+		def DetonateLastError(on, name, *args)
+			raise "#{name} failed (last error #{GetLastError()})." if (failed = [*on].include?(result = send(name, *args)))
+
+			result
+		ensure
+			yield failed if block_given?
+		end
+
+		module_function :DetonateLastError
+
+		class OSVERSIONINFOEX < FFI::Struct
+			layout \
+				:dwOSVersionInfoSize, :ulong,
+				:dwMajorVersion, :ulong,
+				:dwMinorVersion, :ulong,
+				:dwBuildNumber, :ulong,
+				:dwPlatformId, :ulong,
+				:szCSDVersion, [:char, 128],
+				:wServicePackMajor, :ushort,
+				:wServicePackMinor, :ushort,
+				:wSuiteMask, :ushort,
+				:wProductType, :uchar,
+				:wReserved, :uchar
+
+			def major; self[:dwMajorVersion] end
+			def minor; self[:dwMinorVersion] end
+			def build; self[:dwBuildNumber] end
+			def sp; self[:wServicePackMajor] end
+
+			def to_s; "#{major}.#{minor}.#{build} SP#{sp} (#{name})" end
+
+			def name
+				if Windows2000?; 'Windows 2000'
+				elsif WindowsXP?; 'Windows XP'
+				elsif WindowsVista?; 'Windows Vista'
+				elsif Windows7?; 'Windows 7'
+				else 'Unknown'
+				end
+			end
+
+			def Windows2000?; major == 5 && minor == 0 end
+			def WindowsXP?; major == 5 && minor == 1 end
+			def WindowsVista?; major == 6 && minor == 0 end
+			def Windows7?; major == 6 && minor == 1 end
+
+			def AtLeastWindows2000?; major >= 5 end
+			def AtLeastWindowsXP?; major > 5 || (major == 5 && minor >= 1) end
+			def AtLeastWindowsVista?; major >= 6 end
+			def AtLeastWindows7?; major > 6 || (major == 6 && minor >= 1) end
+		end
+
+		attach_function :GetVersionEx, :GetVersionExA, [:pointer], :int
+
+		WINVER = OSVERSIONINFOEX.new
+
+		WINVER[:dwOSVersionInfoSize] = WINVER.size
+
+		DetonateLastError(0, :GetVersionEx, WINVER)
+
+		def LOBYTE(w) w & 0xff end
+		def HIBYTE(w) (w >> 8) & 0xff end
+		def MAKEWORD(low, high) (low & 0xff) | ((high & 0xff) << 8) end
 		def LOWORD(l) l & 0xffff end
 		def HIWORD(l) (l >> 16) & 0xffff end
-		def GET_X_LPARAM(lp) ((w = LOWORD(lp)) > 0x7fff) ? w - 0x1_0000 : w end
-		def GET_Y_LPARAM(lp) ((w = HIWORD(lp)) > 0x7fff) ? w - 0x1_0000 : w end
+		def MAKELONG(low, high) (low & 0xffff) | ((high & 0xffff) << 16) end
+		def GET_X_LPARAM(l) ((w = LOWORD(l)) > 0x7fff) ? w - 0x1_0000 : w end
+		def GET_Y_LPARAM(l) ((w = HIWORD(l)) > 0x7fff) ? w - 0x1_0000 : w end
 
 		module_function \
-			:LOWORD, :HIWORD,
+			:LOBYTE, :HIBYTE, :MAKEWORD,
+			:LOWORD, :HIWORD, :MAKELONG,
 			:GET_X_LPARAM, :GET_Y_LPARAM
 
-		INVALID_HANDLE_VALUE = FFI::Pointer.new(-1)
-
 		class POINT < FFI::Struct
 			layout \
 				:x, :long,

data/lib/fzeet/windows/gdi.rb

@@ -5,10 +5,40 @@ module Fzeet
 		ffi_lib 'gdi32'
 		ffi_convention :stdcall
 
+		def GetRValue(rgb) LOBYTE(rgb) end
+		def GetGValue(rgb) LOBYTE(rgb >> 8) end
+		def GetBValue(rgb) LOBYTE(rgb >> 16) end
+		def RGB(r, g, b) r | (g << 8) | (b << 16) end
+
+		module_function \
+			:GetRValue, :GetGValue, :GetBValue, :RGB
+
 		DEFAULT_GUI_FONT = 17
 
 		attach_function :GetStockObject, [:int], :pointer
+
+=begin
+		class LOGFONT < FFI::Struct
+			layout \
+				:lfHeight, :long,
+				:lfWidth, :long,
+				:lfEscapement, :long,
+				:lfOrientation, :long,
+				:lfWeight, :long,
+				:lfItalic, :uchar,
+				:lfUnderline, :uchar,
+				:lfStrikeOut, :uchar,
+				:lfCharSet, :uchar,
+				:lfOutPrecision, :uchar,
+				:lfClipPrecision, :uchar,
+				:lfQuality, :uchar,
+				:lfPitchAndFamily, :uchar,
+				:lfFaceName, [:char, 32]
+		end
+=end
+
 		attach_function :CreateFontIndirect, :CreateFontIndirectA, [:pointer], :pointer
+
 		attach_function :DeleteObject, [:pointer], :int
 
 		attach_function :MoveToEx, [:pointer, :int, :int, :pointer], :int

data/lib/fzeet/windows/kernel.rb

@@ -5,31 +5,84 @@ module Fzeet
 		ffi_lib 'kernel32'
 		ffi_convention :stdcall
 
-		attach_function :GetLastError, [], :ulong
-		attach_function :SetLastError, [:ulong], :void
-
-		class ACTCTX < FFI::Struct
-			layout \
-				:cbSize, :ulong,
-				:dwFlags, :ulong,
-				:lpSource, :pointer,
-				:wProcessorArchitecture, :ushort,
-				:wLangId, :ushort,
-				:lpAssemblyDirectory, :pointer,
-				:lpResourceName, :pointer,
-				:lpApplicationName, :pointer,
-				:hModule, :pointer
+		attach_function :GetModuleHandle, :GetModuleHandleA, [:string], :pointer
+
+		attach_function :LoadLibrary, :LoadLibraryA, [:string], :pointer
+		attach_function :FreeLibrary, [:pointer], :int
+
+		if WINVER.AtLeastWindowsXP?
+			class ACTCTX < FFI::Struct
+				layout \
+					:cbSize, :ulong,
+					:dwFlags, :ulong,
+					:lpSource, :pointer,
+					:wProcessorArchitecture, :ushort,
+					:wLangId, :ushort,
+					:lpAssemblyDirectory, :pointer,
+					:lpResourceName, :pointer,
+					:lpApplicationName, :pointer,
+					:hModule, :pointer
+			end
+
+			attach_function :CreateActCtx, :CreateActCtxA, [:pointer], :pointer
+			attach_function :ReleaseActCtx, [:pointer], :void
+
+			attach_function :ActivateActCtx, [:pointer, :pointer], :int
+			attach_function :DeactivateActCtx, [:ulong, :ulong], :int
+
+			COMMON_CONTROLS_ACTCTX = {
+				handle: INVALID_HANDLE_VALUE,
+				cookie: FFI::MemoryPointer.new(:ulong),
+				activated: false
+			}
+
+			at_exit {
+				DeactivateActCtx(0, COMMON_CONTROLS_ACTCTX[:cookie].get_ulong(0)) if
+					COMMON_CONTROLS_ACTCTX[:activated]
+
+				COMMON_CONTROLS_ACTCTX[:cookie].free
+
+				ReleaseActCtx(COMMON_CONTROLS_ACTCTX[:handle]) unless
+					COMMON_CONTROLS_ACTCTX[:handle] == INVALID_HANDLE_VALUE
+			}
 		end
 
-		attach_function :CreateActCtx, :CreateActCtxA, [:pointer], :pointer
-		attach_function :ReleaseActCtx, [:pointer], :void
+		def EnableVisualStyles
+			return unless WINVER.AtLeastWindowsXP?
 
-		attach_function :ActivateActCtx, [:pointer, :pointer], :int
-		attach_function :DeactivateActCtx, [:ulong, :ulong], :int
+			raise 'Visual styles already enabled.' if COMMON_CONTROLS_ACTCTX[:activated]
 
-		attach_function :GetModuleHandle, :GetModuleHandleA, [:string], :pointer
+			manifest = "#{ENV['TEMP']}/Fzeet.Common-Controls.manifest"
 
-		attach_function :LoadLibrary, :LoadLibraryA, [:string], :pointer
-		attach_function :FreeLibrary, [:pointer], :int
+			File.open(manifest, 'w:utf-8') { |file|
+				file << <<-XML
+<?xml version='1.0' encoding='utf-8' standalone='yes' ?>
+<assembly xmlns='urn:schemas-microsoft-com:asm.v1' manifestVersion='1.0'>
+	<dependency>
+		<dependentAssembly>
+			<assemblyIdentity type='Win32' name='Microsoft.Windows.Common-Controls' version='6.0.0.0' processorArchitecture='*' publicKeyToken='6595b64144ccf1df' language='*' />
+		</dependentAssembly>
+	</dependency>
+</assembly>
+				XML
+			}
+
+			ac = ACTCTX.new
+
+			ac[:cbSize] = ac.size
+			ac[:lpSource] = source = FFI::MemoryPointer.from_string(File.expand_path(manifest))
+
+			COMMON_CONTROLS_ACTCTX[:handle] = DetonateLastError(INVALID_HANDLE_VALUE, :CreateActCtx, ac) { source.free }
+
+			DetonateLastError(0, :ActivateActCtx, COMMON_CONTROLS_ACTCTX[:handle], COMMON_CONTROLS_ACTCTX[:cookie]) { |failed|
+				next unless failed
+
+				ReleaseActCtx(COMMON_CONTROLS_ACTCTX[:handle]); COMMON_CONTROLS_ACTCTX[:handle] = INVALID_HANDLE_VALUE
+			}
+
+			COMMON_CONTROLS_ACTCTX[:activated] = true
+		end
+
+		module_function :EnableVisualStyles
 	end
 end

data/lib/fzeet/windows/ole.rb

@@ -8,9 +8,63 @@ module Fzeet
 		attach_function :OleInitialize, [:pointer], :long
 		attach_function :OleUninitialize, [], :void
 
+		def InitializeOle
+			DetonateHresult(:OleInitialize, nil)
+
+			at_exit { OleUninitialize() }
+		end
+
+		module_function :InitializeOle
+
 		attach_function :CoTaskMemFree, [:pointer], :void
 
+		VT_EMPTY = 0
+		VT_NULL = 1
+		VT_I2 = 2
+		VT_I4 = 3
+		VT_R4 = 4
+		VT_R8 = 5
+		VT_CY = 6
+		VT_DATE = 7
+		VT_BSTR = 8
+		VT_DISPATCH = 9
+		VT_ERROR = 10
 		VT_BOOL = 11
+		VT_VARIANT = 12
+		VT_UNKNOWN = 13
+		VT_DECIMAL = 14
+		VT_I1 = 16
+		VT_UI1 = 17
+		VT_UI2 = 18
+		VT_UI4 = 19
+		VT_I8 = 20
+		VT_UI8 = 21
+		VT_INT = 22
+		VT_UINT = 23
+		VT_VOID = 24
+		VT_HRESULT = 25
+		VT_PTR = 26
+		VT_SAFEARRAY = 27
+		VT_CARRAY = 28
+		VT_USERDEFINED = 29
+		VT_LPSTR = 30
+		VT_LPWSTR = 31
+		VT_FILETIME = 64
+		VT_BLOB = 65
+		VT_STREAM = 66
+		VT_STORAGE = 67
+		VT_STREAMED_OBJECT = 68
+		VT_STORED_OBJECT = 69
+		VT_BLOB_OBJECT = 70
+		VT_CF = 71
+		VT_CLSID = 72
+		VT_VECTOR = 0x1000
+		VT_ARRAY = 0x2000
+		VT_BYREF = 0x4000
+		VT_RESERVED = 0x8000
+		VT_ILLEGAL = 0xffff
+		VT_ILLEGALMASKED = 0xfff
+		VT_TYPEMASK = 0xff
 
 		class PROPERTYKEY < FFI::Struct
 			layout \
@@ -208,6 +262,12 @@ module Fzeet
 
 			def bool; raise 'Wrong type tag.' unless self[:vt] == VT_BOOL; self[:boolVal] != 0 end
 			def bool=(bool) self[:vt] = VT_BOOL; self[:boolVal] = (bool) ? -1 : 0 end
+
+			def int; raise 'Wrong type tag.' unless self[:vt] == VT_I4; self[:intVal] end
+			def int=(int) self[:vt] = VT_I4; self[:intVal] = int end
+
+			def uint; raise 'Wrong type tag.' unless self[:vt] == VT_UI4; self[:uintVal] end
+			def uint=(uint) self[:vt] = VT_UI4; self[:uintVal] = uint end
 		end
 	end
 end

data/lib/fzeet/windows/propsys.rb

@@ -0,0 +1,40 @@
+require_relative 'ole'
+
+module Fzeet
+	module Windows
+		ffi_lib 'propsys'
+		ffi_convention :stdcall
+
+		IPropertyStore = COM::Interface[IUnknown,
+			GUID['886d8eeb-8cf2-4446-8d02-cdba1dbdcf99'],
+
+			GetCount: [[:pointer], :long],
+			GetAt: [[:ulong, :pointer], :long],
+			GetValue: [[:pointer, :pointer], :long],
+			SetValue: [[:pointer, :pointer], :long],
+			Commit: [[], :long]
+		]
+
+		PropertyStore = COM::Instance[IPropertyStore]
+
+		class PropertyStore
+			def count; count = 0; FFI::MemoryPointer.new(:ulong) { |p| count = p.get_ulong(0) }; count end
+			alias :size :count
+			alias :length :count
+
+			# superclass.superclass is FFI::Struct, so do NOT touch [] and []=
+			def get(k) PROPVARIANT.new.tap { |v| GetValue(k, v) } end
+			def set(k, v) SetValue(k, v); self end
+
+			def prop(*args)
+				case args.length
+				when 1; get(*args)
+				when 2; set(*args)
+				else raise ArgumentError
+				end
+			end
+
+			def commit; Commit(); self end
+		end
+	end
+end

data/lib/fzeet/windows/shell/Common.rb

@@ -0,0 +1,10 @@
+require_relative '../com'
+
+module Fzeet
+	module Windows
+		ffi_lib 'shell32'
+		ffi_convention :stdcall
+
+		attach_function :SHGetPathFromIDList, :SHGetPathFromIDListA, [:pointer, :pointer], :int
+	end
+end

data/lib/fzeet/windows/shell/FolderDialog.rb

@@ -0,0 +1,39 @@
+require_relative 'Common'
+
+module Fzeet
+	module Windows
+		BIF_RETURNONLYFSDIRS = 0x00000001
+		BIF_DONTGOBELOWDOMAIN = 0x00000002
+		BIF_STATUSTEXT = 0x00000004
+		BIF_RETURNFSANCESTORS = 0x00000008
+		BIF_EDITBOX = 0x00000010
+		BIF_VALIDATE = 0x00000020
+		BIF_NEWDIALOGSTYLE = 0x00000040
+		BIF_USENEWUI = BIF_NEWDIALOGSTYLE | BIF_EDITBOX
+		BIF_BROWSEINCLUDEURLS = 0x00000080
+		BIF_UAHINT = 0x00000100
+		BIF_NONEWFOLDERBUTTON = 0x00000200
+		BIF_NOTRANSLATETARGETS = 0x00000400
+		BIF_BROWSEFORCOMPUTER = 0x00001000
+		BIF_BROWSEFORPRINTER = 0x00002000
+		BIF_BROWSEINCLUDEFILES = 0x00004000
+		BIF_SHAREABLE = 0x00008000
+		BIF_BROWSEFILEJUNCTIONS = 0x00010000
+
+		callback :BFFCALLBACK, [:pointer, :uint, :long, :long], :int
+
+		class BROWSEINFO < FFI::Struct
+			layout \
+				:hwndOwner, :pointer,
+				:pidlRoot, :pointer,
+				:pszDisplayName, :pointer,
+				:lpszTitle, :pointer,
+				:ulFlags, :uint,
+				:lpfn, :BFFCALLBACK,
+				:lParam, :long,
+				:iImage, :int
+		end
+
+		attach_function :SHBrowseForFolder, :SHBrowseForFolderA, [:pointer], :pointer
+	end
+end

data/lib/fzeet/windows/shell.rb

@@ -1,43 +1 @@
-require_relative 'com'
-
-module Fzeet
-	module Windows
-		ffi_lib 'shell32'
-		ffi_convention :stdcall
-
-		BIF_RETURNONLYFSDIRS = 0x00000001
-		BIF_DONTGOBELOWDOMAIN = 0x00000002
-		BIF_STATUSTEXT = 0x00000004
-		BIF_RETURNFSANCESTORS = 0x00000008
-		BIF_EDITBOX = 0x00000010
-		BIF_VALIDATE = 0x00000020
-		BIF_NEWDIALOGSTYLE = 0x00000040
-		BIF_USENEWUI = BIF_NEWDIALOGSTYLE | BIF_EDITBOX
-		BIF_BROWSEINCLUDEURLS = 0x00000080
-		BIF_UAHINT = 0x00000100
-		BIF_NONEWFOLDERBUTTON = 0x00000200
-		BIF_NOTRANSLATETARGETS = 0x00000400
-		BIF_BROWSEFORCOMPUTER = 0x00001000
-		BIF_BROWSEFORPRINTER = 0x00002000
-		BIF_BROWSEINCLUDEFILES = 0x00004000
-		BIF_SHAREABLE = 0x00008000
-		BIF_BROWSEFILEJUNCTIONS = 0x00010000
-
-		callback :BFFCALLBACK, [:pointer, :uint, :long, :long], :int
-
-		class BROWSEINFO < FFI::Struct
-			layout \
-				:hwndOwner, :pointer,
-				:pidlRoot, :pointer,
-				:pszDisplayName, :pointer,
-				:lpszTitle, :pointer,
-				:ulFlags, :uint,
-				:lpfn, :BFFCALLBACK,
-				:lParam, :long,
-				:iImage, :int
-		end
-
-		attach_function :SHBrowseForFolder, :SHBrowseForFolderA, [:pointer], :pointer
-		attach_function :SHGetPathFromIDList, :SHGetPathFromIDListA, [:pointer, :pointer], :int
-	end
-end
+require_relative 'shell/FolderDialog'