fzeet 0.5.3 → 0.6.0

data/lib/fzeet/windows/comctl/MonthCalendar.rb

@@ -0,0 +1,62 @@
+require_relative 'Common'
+
+module Fzeet
+	module Windows
+		MCS_DAYSTATE = 0x0001
+		MCS_MULTISELECT = 0x0002
+		MCS_WEEKNUMBERS = 0x0004
+		MCS_NOTODAYCIRCLE = 0x0008
+		MCS_NOTODAY = 0x0010
+		MCS_NOTRAILINGDATES = 0x0040
+		MCS_SHORTDAYSOFWEEK = 0x0080
+		MCS_NOSELCHANGEONNAV = 0x0100
+
+		MCM_FIRST = 0x1000
+		MCM_GETCURSEL = MCM_FIRST + 1
+		MCM_SETCURSEL = MCM_FIRST + 2
+		MCM_GETMAXSELCOUNT = MCM_FIRST + 3
+		MCM_SETMAXSELCOUNT = MCM_FIRST + 4
+		MCM_GETSELRANGE = MCM_FIRST + 5
+		MCM_SETSELRANGE = MCM_FIRST + 6
+		MCM_GETMONTHRANGE = MCM_FIRST + 7
+		MCM_SETDAYSTATE = MCM_FIRST + 8
+		MCM_GETMINREQRECT = MCM_FIRST + 9
+		MCM_SETCOLOR = MCM_FIRST + 10
+		MCM_GETCOLOR = MCM_FIRST + 11
+		MCM_SETTODAY = MCM_FIRST + 12
+		MCM_GETTODAY = MCM_FIRST + 13
+		MCM_HITTEST = MCM_FIRST + 14
+		MCM_SETFIRSTDAYOFWEEK = MCM_FIRST + 15
+		MCM_GETFIRSTDAYOFWEEK = MCM_FIRST + 16
+		MCM_GETRANGE = MCM_FIRST + 17
+		MCM_SETRANGE = MCM_FIRST + 18
+		MCM_GETMONTHDELTA = MCM_FIRST + 19
+		MCM_SETMONTHDELTA = MCM_FIRST + 20
+		MCM_GETMAXTODAYWIDTH = MCM_FIRST + 21
+		MCM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT
+		MCM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT
+		MCM_GETCURRENTVIEW = MCM_FIRST + 22
+		MCM_GETCALENDARCOUNT = MCM_FIRST + 23
+		MCM_GETCALENDARGRIDINFO = MCM_FIRST + 24
+		MCM_GETCALID = MCM_FIRST + 27
+		MCM_SETCALID = MCM_FIRST + 28
+		MCM_SIZERECTTOMIN = MCM_FIRST + 29
+		MCM_SETCALENDARBORDER = MCM_FIRST + 30
+		MCM_GETCALENDARBORDER = MCM_FIRST + 31
+		MCM_SETCURRENTVIEW = MCM_FIRST + 32
+
+		MCN_FIRST = 0x1_0000_0000 - 746
+		MCN_LAST = 0x1_0000_0000 - 752
+		MCN_SELCHANGE = MCN_FIRST - 3
+		MCN_GETDAYSTATE = MCN_FIRST - 1
+		MCN_SELECT = MCN_FIRST
+		MCN_VIEWCHANGE = MCN_FIRST - 4
+
+		class NMSELCHANGE < FFI::Struct
+			layout \
+				:nmhdr, NMHDR,
+				:stSelStart, SYSTEMTIME,
+				:stSelEnd, SYSTEMTIME
+		end
+	end
+end

data/lib/fzeet/windows/comctl/ProgressBar.rb

@@ -0,0 +1,31 @@
+require_relative 'Common'
+
+module Fzeet
+	module Windows
+		PBS_SMOOTH = 0x01
+		PBS_VERTICAL = 0x04
+		PBS_MARQUEE = 0x08
+		PBS_SMOOTHREVERSE = 0x10
+
+		PBM_SETRANGE = WM_USER + 1
+		PBM_SETPOS = WM_USER + 2
+		PBM_DELTAPOS = WM_USER + 3
+		PBM_SETSTEP = WM_USER + 4
+		PBM_STEPIT = WM_USER + 5
+		PBM_SETRANGE32 = WM_USER + 6
+		PBM_GETRANGE = WM_USER + 7
+		PBM_GETPOS = WM_USER + 8
+		PBM_SETBARCOLOR = WM_USER + 9
+		PBM_SETBKCOLOR = CCM_SETBKCOLOR
+		PBM_SETMARQUEE = WM_USER + 10
+		PBM_GETSTEP = WM_USER + 13
+		PBM_GETBKCOLOR = WM_USER + 14
+		PBM_GETBARCOLOR = WM_USER + 15
+		PBM_SETSTATE = WM_USER + 16
+		PBM_GETSTATE = WM_USER + 17
+
+		PBST_NORMAL = 0x0001
+		PBST_ERROR = 0x0002
+		PBST_PAUSED = 0x0003
+	end
+end

data/lib/fzeet/windows/comctl/PropertySheet.rb

@@ -0,0 +1,205 @@
+require_relative 'Common'
+
+module Fzeet
+	module Windows
+		PSP_DEFAULT = 0x00000000
+		PSP_DLGINDIRECT = 0x00000001
+		PSP_USEHICON = 0x00000002
+		PSP_USEICONID = 0x00000004
+		PSP_USETITLE = 0x00000008
+		PSP_RTLREADING = 0x00000010
+		PSP_HASHELP = 0x00000020
+		PSP_USEREFPARENT = 0x00000040
+		PSP_USECALLBACK = 0x00000080
+		PSP_PREMATURE = 0x00000400
+		PSP_HIDEHEADER = 0x00000800
+		PSP_USEHEADERTITLE = 0x00001000
+		PSP_USEHEADERSUBTITLE = 0x00002000
+		PSP_USEFUSIONCONTEXT = 0x00004000
+
+		callback :PSPCALLBACK, [:pointer, :uint, :pointer], :uint
+
+		class PROPSHEETPAGE < FFI::Struct
+			layout *[
+				:dwSize, :ulong,
+				:dwFlags, :ulong,
+				:hInstance, :pointer,
+				:template, Class.new(FFI::Union) {
+					layout \
+						:pszTemplate, :pointer,
+						:pResource, :pointer
+				},
+				:icon, Class.new(FFI::Union) {
+					layout \
+						:hIcon, :pointer,
+						:pszIcon, :pointer
+				},
+				:pszTitle, :pointer,
+				:pfnDlgProc, :DLGPROC,
+				:lParam, :long,
+				:pfnCallback, :PSPCALLBACK,
+				:pcRefParent, :pointer,
+				:pszHeaderTitle, :pointer,
+				:pszHeaderSubTitle, :pointer,
+				(WINVER.AtLeastWindowsXP?) ? [
+					:hActCtx, :pointer
+				] : nil,
+				(WINVER.AtLeastWindowsVista?) ? [
+					:header, Class.new(FFI::Union) {
+						layout \
+							:hbmHeader, :pointer,
+							:pszbmHeader, :pointer
+					}
+				] : nil
+			].flatten.compact
+		end
+
+		attach_function :CreatePropertySheetPage, :CreatePropertySheetPageA, [:pointer], :pointer
+		attach_function :DestroyPropertySheetPage, [:pointer], :int
+
+		PSH_DEFAULT = 0x00000000
+		PSH_PROPTITLE = 0x00000001
+		PSH_USEHICON = 0x00000002
+		PSH_USEICONID = 0x00000004
+		PSH_PROPSHEETPAGE = 0x00000008
+		PSH_WIZARDHASFINISH = 0x00000010
+		PSH_WIZARD = 0x00000020
+		PSH_USEPSTARTPAGE = 0x00000040
+		PSH_NOAPPLYNOW = 0x00000080
+		PSH_USECALLBACK = 0x00000100
+		PSH_HASHELP = 0x00000200
+		PSH_MODELESS = 0x00000400
+		PSH_RTLREADING = 0x00000800
+		PSH_WIZARDCONTEXTHELP = 0x00001000
+		PSH_WIZARD97 = 0x01000000
+		PSH_WATERMARK = 0x00008000
+		PSH_USEHBMWATERMARK = 0x00010000
+		PSH_USEHPLWATERMARK = 0x00020000
+		PSH_STRETCHWATERMARK = 0x00040000
+		PSH_HEADER = 0x00080000
+		PSH_USEHBMHEADER = 0x00100000
+		PSH_USEPAGELANG = 0x00200000
+		PSH_WIZARD_LITE = 0x00400000
+		PSH_NOCONTEXTHELP = 0x02000000
+		PSH_AEROWIZARD = 0x00004000
+		PSH_RESIZABLE = 0x04000000
+		PSH_HEADERBITMAP = 0x08000000
+		PSH_NOMARGIN = 0x10000000
+
+		callback :PROPSHEETCALLBACK, [:pointer, :uint, :long], :int
+
+		class  PROPSHEETHEADER < FFI::Struct
+			layout \
+				:dwSize, :ulong,
+				:dwFlags, :ulong,
+				:hwndParent, :pointer,
+				:hInstance, :pointer,
+				:icon, Class.new(FFI::Union) {
+					layout \
+						:hIcon, :pointer,
+						:pszIcon, :pointer
+				},
+				:pszCaption, :pointer,
+				:nPages, :uint,
+				:start, Class.new(FFI::Union) {
+					layout \
+						:nStartPage, :uint,
+						:pStartPage, :pointer
+				},
+				:pages, Class.new(FFI::Union) {
+					layout \
+						:ppsp, :pointer,
+						:phpage, :pointer
+				},
+				:pfnCallback, :PROPSHEETCALLBACK,
+				:watermark, Class.new(FFI::Union) {
+					layout \
+						:hbmWatermark, :pointer,
+						:pszbmWatermark, :pointer
+				},
+				:hplWatermark, :pointer,
+				:header, Class.new(FFI::Union) {
+					layout \
+						:hbmHeader, :pointer,
+						:pszbmHeader, :pointer
+				}
+		end
+
+		attach_function :PropertySheet, :PropertySheetA, [:pointer], :int
+
+		PSM_SETCURSEL = WM_USER + 101
+		PSM_REMOVEPAGE = WM_USER + 102
+		PSM_ADDPAGE = WM_USER + 103
+		PSM_CHANGED = WM_USER + 104
+		PSM_RESTARTWINDOWS = WM_USER + 105
+		PSM_REBOOTSYSTEM = WM_USER + 106
+		PSM_CANCELTOCLOSE = WM_USER + 107
+		PSM_QUERYSIBLINGS = WM_USER + 108
+		PSM_UNCHANGED = WM_USER + 109
+		PSM_APPLY = WM_USER + 110
+		PSM_SETTITLE = WM_USER + 111
+		PSM_SETWIZBUTTONS = WM_USER + 112
+		PSM_PRESSBUTTON = WM_USER + 113
+		PSM_SETCURSELID = WM_USER + 114
+		PSM_SETFINISHTEXT = WM_USER + 115
+		PSM_GETTABCONTROL = WM_USER + 116
+		PSM_ISDIALOGMESSAGE = WM_USER + 117
+		PSM_GETCURRENTPAGEHWND = WM_USER + 118
+		PSM_INSERTPAGE = WM_USER + 119
+		PSM_SETHEADERTITLE = WM_USER + 125
+		PSM_SETHEADERSUBTITLE = WM_USER + 127
+		PSM_HWNDTOINDEX = WM_USER + 129
+		PSM_INDEXTOHWND = WM_USER + 130
+		PSM_PAGETOINDEX = WM_USER + 131
+		PSM_INDEXTOPAGE = WM_USER + 132
+		PSM_IDTOINDEX = WM_USER + 133
+		PSM_INDEXTOID = WM_USER + 134
+		PSM_GETRESULT = WM_USER + 135
+		PSM_RECALCPAGESIZES = WM_USER + 136
+		PSM_SETNEXTTEXT = WM_USER + 137
+		PSM_SHOWWIZBUTTONS = WM_USER + 138
+		PSM_ENABLEWIZBUTTONS = WM_USER + 139
+		PSM_SETBUTTONTEXT = WM_USER + 140
+
+		PSWIZF_SETCOLOR = 0xffffffff
+
+		PSWIZB_BACK = 0x00000001
+		PSWIZB_NEXT = 0x00000002
+		PSWIZB_FINISH = 0x00000004
+		PSWIZB_DISABLEDFINISH = 0x00000008
+		PSWIZB_CANCEL = 0x00000010
+		PSWIZB_SHOW = 0
+		PSWIZB_RESTORE = 1
+
+		PSWIZBF_ELEVATIONREQUIRED = 0x00000001
+
+		PSBTN_BACK = 0
+		PSBTN_NEXT = 1
+		PSBTN_FINISH = 2
+		PSBTN_OK = 3
+		PSBTN_APPLYNOW = 4
+		PSBTN_CANCEL = 5
+		PSBTN_HELP = 6
+		PSBTN_MAX = 6
+
+		PSN_FIRST = 0x1_0000_0000 - 200
+		PSN_LAST = 0x1_0000_0000 - 299
+		PSN_SETACTIVE = PSN_FIRST - 0
+		PSN_KILLACTIVE = PSN_FIRST - 1
+		PSN_APPLY = PSN_FIRST - 2
+		PSN_RESET = PSN_FIRST - 3
+		PSN_HELP = PSN_FIRST - 5
+		PSN_WIZBACK = PSN_FIRST - 6
+		PSN_WIZNEXT = PSN_FIRST - 7
+		PSN_WIZFINISH = PSN_FIRST - 8
+		PSN_QUERYCANCEL = PSN_FIRST - 9
+		PSN_GETOBJECT = PSN_FIRST - 10
+		PSN_TRANSLATEACCELERATOR = PSN_FIRST - 12
+		PSN_QUERYINITIALFOCUS = PSN_FIRST - 13
+
+		PSNRET_NOERROR = 0
+		PSNRET_INVALID = 1
+		PSNRET_INVALID_NOCHANGEPAGE = 2
+		PSNRET_MESSAGEHANDLED = 3
+	end
+end

data/lib/fzeet/windows/comctl/SysLink.rb

@@ -0,0 +1,34 @@
+require_relative 'Common'
+
+module Fzeet
+	module Windows
+		LWS_TRANSPARENT = 0x0001
+		LWS_IGNORERETURN = 0x0002
+		LWS_NOPREFIX = 0x0004
+		LWS_USEVISUALSTYLE = 0x0008
+		LWS_USECUSTOMTEXT = 0x0010
+		LWS_RIGHT = 0x0020
+
+		LM_HITTEST = WM_USER + 0x300
+		LM_GETIDEALHEIGHT = WM_USER + 0x301
+		LM_SETITEM = WM_USER + 0x302
+		LM_GETITEM = WM_USER + 0x303
+		LM_GETIDEALSIZE = LM_GETIDEALHEIGHT
+
+		class LITEM < FFI::Struct
+			layout \
+				:mask, :uint,
+				:iLink, :int,
+				:state, :uint,
+				:stateMask, :uint,
+				:szID, [:ushort, 48],
+				:szUrl, [:ushort, 2048 + 32 + 4]
+		end
+
+		class NMLINK < FFI::Struct
+			layout \
+				:hdr, NMHDR,
+				:item, LITEM
+		end
+	end
+end

data/lib/fzeet/windows/comctl/TreeView.rb

@@ -0,0 +1,198 @@
+require_relative 'Common'
+
+module Fzeet
+	module Windows
+		TVS_HASBUTTONS = 0x0001
+		TVS_HASLINES = 0x0002
+		TVS_LINESATROOT = 0x0004
+		TVS_EDITLABELS = 0x0008
+		TVS_DISABLEDRAGDROP = 0x0010
+		TVS_SHOWSELALWAYS = 0x0020
+		TVS_RTLREADING = 0x0040
+		TVS_NOTOOLTIPS = 0x0080
+		TVS_CHECKBOXES = 0x0100
+		TVS_TRACKSELECT = 0x0200
+		TVS_SINGLEEXPAND = 0x0400
+		TVS_INFOTIP = 0x0800
+		TVS_FULLROWSELECT = 0x1000
+		TVS_NOSCROLL = 0x2000
+		TVS_NONEVENHEIGHT = 0x4000
+		TVS_NOHSCROLL = 0x8000
+
+		TVS_EX_MULTISELECT = 0x0002
+		TVS_EX_DOUBLEBUFFER = 0x0004
+		TVS_EX_NOINDENTSTATE = 0x0008
+		TVS_EX_RICHTOOLTIP = 0x0010
+		TVS_EX_AUTOHSCROLL = 0x0020
+		TVS_EX_FADEINOUTEXPANDOS = 0x0040
+		TVS_EX_PARTIALCHECKBOXES = 0x0080
+		TVS_EX_EXCLUSIONCHECKBOXES = 0x0100
+		TVS_EX_DIMMEDCHECKBOXES = 0x0200
+		TVS_EX_DRAWIMAGEASYNC = 0x0400
+
+		TV_FIRST = 0x1100
+
+		TVM_INSERTITEM = TV_FIRST + 0
+		TVM_DELETEITEM = TV_FIRST + 1
+		TVM_EXPAND = TV_FIRST + 2
+		TVM_GETITEMRECT = TV_FIRST + 4
+		TVM_GETCOUNT = TV_FIRST + 5
+		TVM_GETINDENT = TV_FIRST + 6
+		TVM_SETINDENT = TV_FIRST + 7
+		TVM_GETIMAGELIST = TV_FIRST + 8
+		TVM_SETIMAGELIST = TV_FIRST + 9
+		TVM_GETNEXTITEM = TV_FIRST + 10
+		TVM_SELECTITEM = TV_FIRST + 11
+		TVM_GETITEM = TV_FIRST + 12
+		TVM_SETITEM = TV_FIRST + 13
+		TVM_EDITLABEL = TV_FIRST + 14
+		TVM_GETEDITCONTROL = TV_FIRST + 15
+		TVM_GETVISIBLECOUNT = TV_FIRST + 16
+		TVM_HITTEST = TV_FIRST + 17
+		TVM_CREATEDRAGIMAGE = TV_FIRST + 18
+		TVM_SORTCHILDREN = TV_FIRST + 19
+		TVM_ENSUREVISIBLE = TV_FIRST + 20
+		TVM_SORTCHILDRENCB = TV_FIRST + 21
+		TVM_ENDEDITLABELNOW = TV_FIRST + 22
+		TVM_GETISEARCHSTRING = TV_FIRST + 23
+		TVM_SETTOOLTIPS = TV_FIRST + 24
+		TVM_GETTOOLTIPS = TV_FIRST + 25
+		TVM_SETINSERTMARK = TV_FIRST + 26
+		TVM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT
+		TVM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT
+		TVM_SETITEMHEIGHT = TV_FIRST + 27
+		TVM_GETITEMHEIGHT = TV_FIRST + 28
+		TVM_SETBKCOLOR = TV_FIRST + 29
+		TVM_SETTEXTCOLOR = TV_FIRST + 30
+		TVM_GETBKCOLOR = TV_FIRST + 31
+		TVM_GETTEXTCOLOR = TV_FIRST + 32
+		TVM_SETSCROLLTIME = TV_FIRST + 33
+		TVM_GETSCROLLTIME = TV_FIRST + 34
+		TVM_SETINSERTMARKCOLOR = TV_FIRST + 37
+		TVM_GETINSERTMARKCOLOR = TV_FIRST + 38
+		TVM_GETITEMSTATE = TV_FIRST + 39
+		TVM_SETLINECOLOR = TV_FIRST + 40
+		TVM_GETLINECOLOR = TV_FIRST + 41
+		TVM_MAPACCIDTOHTREEITEM = TV_FIRST + 42
+		TVM_MAPHTREEITEMTOACCID = TV_FIRST + 43
+		TVM_SETEXTENDEDSTYLE = TV_FIRST + 44
+		TVM_GETEXTENDEDSTYLE = TV_FIRST + 45
+		TVM_SETAUTOSCROLLINFO = TV_FIRST + 59
+		TVM_GETSELECTEDCOUNT = TV_FIRST + 70
+		TVM_SHOWINFOTIP = TV_FIRST + 71
+		TVM_GETITEMPARTRECT = TV_FIRST + 72
+
+		TVN_FIRST = 0x1_0000_0000 - 400
+		TVN_LAST = 0x1_0000_0000 - 499
+		TVN_SELCHANGING = TVN_FIRST - 1
+		TVN_SELCHANGED = TVN_FIRST - 2
+		TVN_GETDISPINFO = TVN_FIRST - 3
+		TVN_SETDISPINFO = TVN_FIRST - 4
+		TVN_ITEMEXPANDING = TVN_FIRST - 5
+		TVN_ITEMEXPANDED = TVN_FIRST - 6
+		TVN_BEGINDRAG = TVN_FIRST - 7
+		TVN_BEGINRDRAG = TVN_FIRST - 8
+		TVN_DELETEITEM = TVN_FIRST - 9
+		TVN_BEGINLABELEDIT = TVN_FIRST - 10
+		TVN_ENDLABELEDIT = TVN_FIRST - 11
+		TVN_KEYDOWN = TVN_FIRST - 12
+		TVN_GETINFOTIP = TVN_FIRST - 13
+		TVN_SINGLEEXPAND = TVN_FIRST - 15
+		TVN_ITEMCHANGING = TVN_FIRST - 16
+		TVN_ITEMCHANGED = TVN_FIRST - 18
+		TVN_ASYNCDRAW = TVN_FIRST - 20
+
+		TVIF_TEXT = 0x0001
+		TVIF_IMAGE = 0x0002
+		TVIF_PARAM = 0x0004
+		TVIF_STATE = 0x0008
+		TVIF_HANDLE = 0x0010
+		TVIF_SELECTEDIMAGE = 0x0020
+		TVIF_CHILDREN = 0x0040
+		TVIF_INTEGRAL = 0x0080
+		TVIF_STATEEX = 0x0100
+		TVIF_EXPANDEDIMAGE = 0x0200
+
+		TVIS_SELECTED = 0x0002
+		TVIS_CUT = 0x0004
+		TVIS_DROPHILITED = 0x0008
+		TVIS_BOLD = 0x0010
+		TVIS_EXPANDED = 0x0020
+		TVIS_EXPANDEDONCE = 0x0040
+		TVIS_EXPANDPARTIAL = 0x0080
+		TVIS_OVERLAYMASK = 0x0F00
+		TVIS_STATEIMAGEMASK = 0xF000
+		TVIS_USERMASK = 0xF000
+
+		TVIS_EX_FLAT = 0x0001
+		TVIS_EX_DISABLED = 0x0002
+		TVIS_EX_ALL = 0x0002
+
+		I_CHILDRENCALLBACK = -1
+
+		class TVITEM < FFI::Struct
+			layout \
+				:mask, :uint,
+				:hItem, :pointer,
+				:state, :uint,
+				:stateMask, :uint,
+				:pszText, :pointer,
+				:cchTextMax, :int,
+				:iImage, :int,
+				:iSelectedImage, :int,
+				:cChildren, :int,
+				:lParam, :long,
+		end
+
+		class TVITEMEX < FFI::Struct
+			layout *[
+				:mask, :uint,
+				:hItem, :pointer,
+				:state, :uint,
+				:stateMask, :uint,
+				:pszText, :pointer,
+				:cchTextMax, :int,
+				:iImage, :int,
+				:iSelectedImage, :int,
+				:cChildren, :int,
+				:lParam, :long,
+				:iIntegral, :int,
+				(WINVER.AtLeastWindowsVista?) ? [
+					:uStateEx, :uint,
+					:hwnd, :pointer,
+					:iExpandedImage, :int
+				] : nil,
+				(WINVER.AtLeastWindows7?) ? [
+					:iReserved, :int
+				] : nil
+			].flatten.compact
+		end
+
+		TVI_ROOT = FFI::Pointer.new(-0x10000)
+		TVI_FIRST = FFI::Pointer.new(-0x0FFFF)
+		TVI_LAST = FFI::Pointer.new(-0x0FFFE)
+		TVI_SORT = FFI::Pointer.new(-0x0FFFD)
+
+		class TVINSERTSTRUCT < FFI::Struct
+			include AnonymousSupport
+
+			layout \
+				:hParent, :pointer,
+				:hInsertAfter, :pointer,
+				:_, Class.new(FFI::Union) {
+					layout \
+						:itemex, TVITEMEX,
+						:item, TVITEM
+				}
+		end
+
+		class NMTREEVIEW < FFI::Struct
+			layout \
+				:hdr, NMHDR,
+				:action, :uint,
+				:itemOld, TVITEM,
+				:itemNew, TVITEM,
+				:ptDrag, POINT
+		end
+	end
+end

data/lib/fzeet/windows/comctl/UpDown.rb

@@ -0,0 +1,43 @@
+require_relative 'Common'
+
+module Fzeet
+	module Windows
+		UDS_WRAP = 0x0001
+		UDS_SETBUDDYINT = 0x0002
+		UDS_ALIGNRIGHT = 0x0004
+		UDS_ALIGNLEFT = 0x0008
+		UDS_AUTOBUDDY = 0x0010
+		UDS_ARROWKEYS = 0x0020
+		UDS_HORZ = 0x0040
+		UDS_NOTHOUSANDS = 0x0080
+		UDS_HOTTRACK = 0x0100
+
+		UDM_SETRANGE = WM_USER + 101
+		UDM_GETRANGE = WM_USER + 102
+		UDM_SETPOS = WM_USER + 103
+		UDM_GETPOS = WM_USER + 104
+		UDM_SETBUDDY = WM_USER + 105
+		UDM_GETBUDDY = WM_USER + 106
+		UDM_SETACCEL = WM_USER + 107
+		UDM_GETACCEL = WM_USER + 108
+		UDM_SETBASE = WM_USER + 109
+		UDM_GETBASE = WM_USER + 110
+		UDM_SETRANGE32 = WM_USER + 111
+		UDM_GETRANGE32 = WM_USER + 112
+		UDM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT
+		UDM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT
+		UDM_SETPOS32 = WM_USER + 113
+		UDM_GETPOS32 = WM_USER + 114
+
+		UDN_FIRST = 0x1_0000_0000 - 721
+		UDN_LAST = 0x1_0000_0000 - 729
+		UDN_DELTAPOS = UDN_FIRST - 1
+
+		class NMUPDOWN < FFI::Struct
+			layout \
+				:hdr, NMHDR,
+				:iPos, :int,
+				:iDelta, :int
+		end
+	end
+end

data/lib/fzeet/windows/comctl.rb

@@ -1 +1,13 @@
 require_relative 'comctl/Button'
+require_relative 'comctl/SysLink' if Fzeet::Windows::WINVER.AtLeastWindowsXP?
+require_relative 'comctl/Edit'
+require_relative 'comctl/UpDown'
+require_relative 'comctl/MonthCalendar'
+require_relative 'comctl/DateTimePicker'
+require_relative 'comctl/ComboBox'
+require_relative 'comctl/ComboBoxEx'
+require_relative 'comctl/Header'
+require_relative 'comctl/ListView'
+require_relative 'comctl/TreeView'
+require_relative 'comctl/ProgressBar'
+require_relative 'comctl/PropertySheet'

data/lib/fzeet/windows/common.rb

@@ -15,7 +15,6 @@ module Fzeet
 
 		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)))
@@ -79,16 +78,63 @@ module Fzeet
 		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 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
 
+		def LPWSTR(s)
+			FFI::MemoryPointer.new(:uchar, (s.length + 2) * 2) { |p|
+				"#{s}\0".encode('utf-16le').each_byte.with_index { |b, i|
+					p.put_char(i, b)
+
+					yield p
+				}
+			}
+		end
+
+		def WCSTOMBS(p)
+			result = ''
+
+			FFI::MemoryPointer.new(:uchar, len = wcslen(p) + 1) { |buf|
+				raise 'wcstombs failed.' if wcstombs(buf, p, len) == 0xffffffff
+
+				result << buf.read_string
+			}
+
+			result
+		end
+
 		module_function \
 			:LOBYTE, :HIBYTE, :MAKEWORD,
 			:LOWORD, :HIWORD, :MAKELONG,
-			:GET_X_LPARAM, :GET_Y_LPARAM
+			:GET_X_LPARAM, :GET_Y_LPARAM,
+			:LPWSTR, :WCSTOMBS
+
+		module AnonymousSupport
+			def [](k)
+				if members.include?(k)
+					super
+				elsif self[:_].members.include?(k)
+					self[:_][k]
+				else
+					self[:_][:_][k]
+				end
+			end
+
+			def []=(k, v)
+				if members.include?(k)
+					super
+				elsif self[:_].members.include?(k)
+					self[:_][k] = v
+				else
+					self[:_][:_][k] = v
+				end
+			end
+		end
 
 		class POINT < FFI::Struct
 			layout \
@@ -127,5 +173,31 @@ module Fzeet
 				:lfPitchAndFamily, :uchar,
 				:lfFaceName, [:char, 32]
 		end
+
+		class SYSTEMTIME < FFI::Struct
+			layout \
+				:wYear, :ushort,
+				:wMonth, :ushort,
+				:wDayOfWeek, :ushort,
+				:wDay, :ushort,
+				:wHour, :ushort,
+				:wMinute, :ushort,
+				:wSecond, :ushort,
+				:wMilliseconds, :ushort
+
+			def to_local
+				Time.local(
+					self[:wYear], self[:wMonth], self[:wDay],
+					self[:wHour], self[:wMinute], self[:wSecond], self[:wMilliseconds]
+				)
+			end
+
+			def to_utc
+				Time.utc(
+					self[:wYear], self[:wMonth], self[:wDay],
+					self[:wHour], self[:wMinute], self[:wSecond], self[:wMilliseconds]
+				)
+			end
+		end
 	end
 end

data/lib/fzeet/windows/gdi.rb

@@ -41,6 +41,8 @@ module Fzeet
 
 		attach_function :DeleteObject, [:pointer], :int
 
+		attach_function :SelectObject, [:pointer, :pointer], :pointer
+
 		attach_function :MoveToEx, [:pointer, :int, :int, :pointer], :int
 		attach_function :LineTo, [:pointer, :int, :int], :int
 	end

data/lib/fzeet/windows/libc.rb

@@ -6,5 +6,9 @@ module Fzeet
 		ffi_convention :cdecl
 
 		attach_function :memcmp, [:pointer, :pointer, :uint], :int
+
+		attach_function :wcslen, [:buffer_in], :uint
+		attach_function :mbstowcs, [:pointer, :string, :uint], :uint
+		attach_function :wcstombs, [:pointer, :buffer_in, :uint], :uint
 	end
 end