fzeet 0.4.1 → 0.4.2

data/lib/fzeet/windows/common.rb

@@ -6,9 +6,33 @@ module Fzeet
 
 		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
 
-		module_function :LOWORD, :HIWORD
+		module_function \
+			:LOWORD, :HIWORD,
+			:GET_X_LPARAM, :GET_Y_LPARAM
 
 		INVALID_HANDLE_VALUE = FFI::Pointer.new(-1)
+
+		class POINT < FFI::Struct
+			layout \
+				:x, :long,
+				:y, :long
+		end
+
+		class SIZE < FFI::Struct
+			layout \
+				:cx, :long,
+				:cy, :long
+		end
+
+		class RECT < FFI::Struct
+			layout \
+				:left, :long,
+				:top, :long,
+				:right, :long,
+				:bottom, :long
+		end
 	end
 end

data/lib/fzeet/windows/gdi.rb

@@ -10,5 +10,8 @@ module Fzeet
 		attach_function :GetStockObject, [:int], :pointer
 		attach_function :CreateFontIndirect, :CreateFontIndirectA, [:pointer], :pointer
 		attach_function :DeleteObject, [:pointer], :int
+
+		attach_function :MoveToEx, [:pointer, :int, :int, :pointer], :int
+		attach_function :LineTo, [:pointer, :int, :int], :int
 	end
 end

data/lib/fzeet/windows/user.rb

@@ -5,23 +5,60 @@ module Fzeet
 		ffi_lib 'user32'
 		ffi_convention :stdcall
 
+		#{ MB_xxx
 		MB_OK = 0x00000000
 		MB_OKCANCEL = 0x00000001
+		MB_ABORTRETRYIGNORE = 0x00000002
 		MB_YESNOCANCEL = 0x00000003
 		MB_YESNO = 0x00000004
+		MB_RETRYCANCEL = 0x00000005
+		MB_CANCELTRYCONTINUE = 0x00000006
 		MB_ICONHAND = 0x00000010
 		MB_ICONQUESTION = 0x00000020
 		MB_ICONEXCLAMATION = 0x00000030
 		MB_ICONASTERISK = 0x00000040
+		MB_USERICON = 0x00000080
+		MB_ICONWARNING = MB_ICONEXCLAMATION
 		MB_ICONERROR = MB_ICONHAND
 		MB_ICONINFORMATION = MB_ICONASTERISK
+		MB_ICONSTOP = MB_ICONHAND
+		MB_DEFBUTTON1 = 0x00000000
 		MB_DEFBUTTON2 = 0x00000100
 		MB_DEFBUTTON3 = 0x00000200
-
+		MB_DEFBUTTON4 = 0x00000300
+		MB_APPLMODAL = 0x00000000
+		MB_SYSTEMMODAL = 0x00001000
+		MB_TASKMODAL = 0x00002000
+		MB_HELP = 0x00004000
+		MB_NOFOCUS = 0x00008000
+		MB_SETFOREGROUND = 0x00010000
+		MB_DEFAULT_DESKTOP_ONLY = 0x00020000
+		MB_TOPMOST = 0x00040000
+		MB_RIGHT = 0x00080000
+		MB_RTLREADING = 0x00100000
+		MB_SERVICE_NOTIFICATION = 0x00200000
+		MB_SERVICE_NOTIFICATION_NT3X = 0x00040000
+		MB_TYPEMASK = 0x0000000F
+		MB_ICONMASK = 0x000000F0
+		MB_DEFMASK = 0x00000F00
+		MB_MODEMASK = 0x00003000
+		MB_MISCMASK = 0x0000C000
+		#}
+
+		#{ IDxxx
 		IDOK = 1
 		IDCANCEL = 2
+		IDABORT = 3
+		IDRETRY = 4
+		IDIGNORE = 5
 		IDYES = 6
 		IDNO = 7
+		IDCLOSE = 8
+		IDHELP = 9
+		IDTRYAGAIN = 10
+		IDCONTINUE = 11
+		IDTIMEOUT = 32000
+		#}
 
 		attach_function :MessageBox, :MessageBoxA, [:pointer, :string, :string, :uint], :int
 
@@ -29,15 +66,102 @@ module Fzeet
 
 		attach_function :DefWindowProc, :DefWindowProcA, [:pointer, :uint, :uint, :long], :long
 
+		callback :DLGPROC, [:pointer, :uint, :uint, :long], :int
+
+		attach_function :DefDlgProc, :DefDlgProcA, [:pointer, :uint, :uint, :long], :long
+
+		#{ IDI_xxx
 		IDI_APPLICATION = FFI::Pointer.new(32512)
+		IDI_HAND = FFI::Pointer.new(32513)
+		IDI_QUESTION = FFI::Pointer.new(32514)
+		IDI_EXCLAMATION = FFI::Pointer.new(32515)
+		IDI_ASTERISK = FFI::Pointer.new(32516)
+		IDI_WINLOGO = FFI::Pointer.new(32517)
+		IDI_SHIELD = FFI::Pointer.new(32518)
+		IDI_WARNING = IDI_EXCLAMATION
+		IDI_ERROR = IDI_HAND
+		IDI_INFORMATION = IDI_ASTERISK
+		#}
 
 		attach_function :LoadIcon, :LoadIconA, [:pointer, :pointer], :pointer
 
+		#{ IDC_xxx
 		IDC_ARROW = FFI::Pointer.new(32512)
+		IDC_IBEAM = FFI::Pointer.new(32513)
+		IDC_WAIT = FFI::Pointer.new(32514)
+		IDC_CROSS = FFI::Pointer.new(32515)
+		IDC_UPARROW = FFI::Pointer.new(32516)
+		IDC_SIZE = FFI::Pointer.new(32640)
+		IDC_ICON = FFI::Pointer.new(32641)
+		IDC_SIZENWSE = FFI::Pointer.new(32642)
+		IDC_SIZENESW = FFI::Pointer.new(32643)
+		IDC_SIZEWE = FFI::Pointer.new(32644)
+		IDC_SIZENS = FFI::Pointer.new(32645)
+		IDC_SIZEALL = FFI::Pointer.new(32646)
+		IDC_NO = FFI::Pointer.new(32648)
+		IDC_HAND = FFI::Pointer.new(32649)
+		IDC_APPSTARTING = FFI::Pointer.new(32650)
+		IDC_HELP = FFI::Pointer.new(32651)
+		#}
 
 		attach_function :LoadCursor, :LoadCursorA, [:pointer, :pointer], :pointer
 
+		IMAGE_BITMAP = 0
+
+		LR_LOADFROMFILE = 0x00000010
+		LR_CREATEDIBSECTION = 0x00002000
+
+		attach_function :LoadImage, :LoadImageA, [:pointer, :string, :uint, :int, :int, :uint], :pointer
+
+		#{ COLOR_xxx
+		COLOR_SCROLLBAR = 0
+		COLOR_BACKGROUND = 1
+		COLOR_ACTIVECAPTION = 2
+		COLOR_INACTIVECAPTION = 3
+		COLOR_MENU = 4
 		COLOR_WINDOW = 5
+		COLOR_WINDOWFRAME = 6
+		COLOR_MENUTEXT = 7
+		COLOR_WINDOWTEXT = 8
+		COLOR_CAPTIONTEXT = 9
+		COLOR_ACTIVEBORDER = 10
+		COLOR_INACTIVEBORDER = 11
+		COLOR_APPWORKSPACE = 12
+		COLOR_HIGHLIGHT = 13
+		COLOR_HIGHLIGHTTEXT = 14
+		COLOR_BTNFACE = 15
+		COLOR_BTNSHADOW = 16
+		COLOR_GRAYTEXT = 17
+		COLOR_BTNTEXT = 18
+		COLOR_INACTIVECAPTIONTEXT = 19
+		COLOR_BTNHIGHLIGHT = 20
+		COLOR_3DDKSHADOW = 21
+		COLOR_3DLIGHT = 22
+		COLOR_INFOTEXT = 23
+		COLOR_INFOBK = 24
+		COLOR_HOTLIGHT = 26
+		COLOR_GRADIENTACTIVECAPTION = 27
+		COLOR_GRADIENTINACTIVECAPTION = 28
+		COLOR_MENUHILIGHT = 29
+		COLOR_MENUBAR = 30
+		COLOR_DESKTOP = COLOR_BACKGROUND
+		COLOR_3DFACE = COLOR_BTNFACE
+		COLOR_3DSHADOW = COLOR_BTNSHADOW
+		COLOR_3DHIGHLIGHT = COLOR_BTNHIGHLIGHT
+		COLOR_3DHILIGHT = COLOR_BTNHIGHLIGHT
+		COLOR_BTNHILIGHT = COLOR_BTNHIGHLIGHT
+		#}
+
+		#{ CTLCOLOR_xxx
+		CTLCOLOR_MSGBOX = 0
+		CTLCOLOR_EDIT = 1
+		CTLCOLOR_LISTBOX = 2
+		CTLCOLOR_BTN = 3
+		CTLCOLOR_DLG = 4
+		CTLCOLOR_SCROLLBAR = 5
+		CTLCOLOR_STATIC = 6
+		CTLCOLOR_MAX = 7
+		#}
 
 		class WNDCLASSEX < FFI::Struct
 			layout \
@@ -57,16 +181,65 @@ module Fzeet
 
 		attach_function :RegisterClassEx, :RegisterClassExA, [:pointer], :ushort
 
+		#{ WS_xxx
 		WS_OVERLAPPED = 0x00000000
+		WS_POPUP = 0x80000000
 		WS_CHILD = 0x40000000
+		WS_MINIMIZE = 0x20000000
 		WS_VISIBLE = 0x10000000
+		WS_DISABLED = 0x08000000
+		WS_CLIPSIBLINGS = 0x04000000
 		WS_CLIPCHILDREN = 0x02000000
+		WS_MAXIMIZE = 0x01000000
 		WS_CAPTION = 0x00C00000
+		WS_BORDER = 0x00800000
+		WS_DLGFRAME = 0x00400000
+		WS_VSCROLL = 0x00200000
+		WS_HSCROLL = 0x00100000
 		WS_SYSMENU = 0x00080000
 		WS_THICKFRAME = 0x00040000
+		WS_GROUP = 0x00020000
+		WS_TABSTOP = 0x00010000
 		WS_MINIMIZEBOX = 0x00020000
 		WS_MAXIMIZEBOX = 0x00010000
+		WS_TILED = WS_OVERLAPPED
+		WS_ICONIC = WS_MINIMIZE
+		WS_SIZEBOX = WS_THICKFRAME
 		WS_OVERLAPPEDWINDOW = WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX
+		WS_TILEDWINDOW = WS_OVERLAPPEDWINDOW
+		WS_POPUPWINDOW = WS_POPUP | WS_BORDER | WS_SYSMENU
+		WS_CHILDWINDOW = WS_CHILD
+		WS_ACTIVECAPTION = 0x0001
+		#}
+
+		#{ WS_EX_xxx
+		WS_EX_DLGMODALFRAME = 0x00000001
+		WS_EX_NOPARENTNOTIFY = 0x00000004
+		WS_EX_TOPMOST = 0x00000008
+		WS_EX_ACCEPTFILES = 0x00000010
+		WS_EX_TRANSPARENT = 0x00000020
+		WS_EX_MDICHILD = 0x00000040
+		WS_EX_TOOLWINDOW = 0x00000080
+		WS_EX_WINDOWEDGE = 0x00000100
+		WS_EX_CLIENTEDGE = 0x00000200
+		WS_EX_CONTEXTHELP = 0x00000400
+		WS_EX_RIGHT = 0x00001000
+		WS_EX_LEFT = 0x00000000
+		WS_EX_RTLREADING = 0x00002000
+		WS_EX_LTRREADING = 0x00000000
+		WS_EX_LEFTSCROLLBAR = 0x00004000
+		WS_EX_RIGHTSCROLLBAR = 0x00000000
+		WS_EX_CONTROLPARENT = 0x00010000
+		WS_EX_STATICEDGE = 0x00020000
+		WS_EX_APPWINDOW = 0x00040000
+		WS_EX_OVERLAPPEDWINDOW = WS_EX_WINDOWEDGE | WS_EX_CLIENTEDGE
+		WS_EX_PALETTEWINDOW = WS_EX_WINDOWEDGE | WS_EX_TOOLWINDOW | WS_EX_TOPMOST
+		WS_EX_LAYERED = 0x00080000
+		WS_EX_NOINHERITLAYOUT = 0x00100000
+		WS_EX_LAYOUTRTL = 0x00400000
+		WS_EX_COMPOSITED = 0x02000000
+		WS_EX_NOACTIVATE = 0x08000000
+		#}
 
 		CW_USEDEFAULT = -0x80000000
 
@@ -87,17 +260,70 @@ module Fzeet
 		end
 
 		attach_function :CreateWindowEx, :CreateWindowExA, [:ulong, :string, :string, :ulong, :int, :int, :int, :int, :pointer, :pointer, :pointer, :pointer], :pointer
+		attach_function :CreateDialogIndirectParam, :CreateDialogIndirectParamA, [:pointer, :pointer, :pointer, :DLGPROC, :long], :pointer
 		attach_function :DestroyWindow, [:pointer], :int
 
+		#{ DS_xxx
+		DS_ABSALIGN = 0x01
+		DS_SYSMODAL = 0x02
+		DS_LOCALEDIT = 0x20
+		DS_SETFONT = 0x40
+		DS_MODALFRAME = 0x80
+		DS_NOIDLEMSG = 0x100
+		DS_SETFOREGROUND = 0x200
+		DS_3DLOOK = 0x0004
+		DS_FIXEDSYS = 0x0008
+		DS_NOFAILCREATE = 0x0010
+		DS_CONTROL = 0x0400
+		DS_CENTER = 0x0800
+		DS_CENTERMOUSE = 0x1000
+		DS_CONTEXTHELP = 0x2000
+		DS_SHELLFONT = DS_SETFONT | DS_FIXEDSYS
+		DS_USEPIXELS = 0x8000
+		#}
+
+		class DLGTEMPLATE < FFI::Struct
+			layout \
+				:style, :ulong,
+				:dwExtendedStyle, :ulong,
+				:cdit, :ushort,
+				:x, :short,
+				:y, :short,
+				:cx, :short,
+				:cy, :short,
+				:menu, :ushort,
+				:windowClass, :ushort,
+				:title, :ushort
+		end
+
+		attach_function :DialogBoxIndirectParam, :DialogBoxIndirectParamA, [:pointer, :pointer, :pointer, :DLGPROC, :long], :int
+		attach_function :EndDialog, [:pointer, :int], :int
+
 		SW_SHOWNORMAL = 1
 
 		attach_function :ShowWindow, [:pointer, :int], :int
 
 		attach_function :UpdateWindow, [:pointer], :int
 
+		attach_function :GetWindowTextLength, :GetWindowTextLengthA, [:pointer], :int
+		attach_function :GetWindowText, :GetWindowTextA, [:pointer, :pointer, :int], :int
+		attach_function :SetWindowText, :SetWindowTextA, [:pointer, :string], :int
+
 		attach_function :IsWindowEnabled, [:pointer], :int
 		attach_function :EnableWindow, [:pointer, :int], :int
 
+		attach_function :GetCursorPos, [:pointer], :int
+
+		attach_function :ScreenToClient, [:pointer, :pointer], :int
+		attach_function :ClientToScreen, [:pointer, :pointer], :int
+
+		attach_function :GetCapture, [], :pointer
+		attach_function :SetCapture, [:pointer], :pointer
+		attach_function :ReleaseCapture, [], :int
+
+		attach_function :GetDC, [:pointer], :pointer
+		attach_function :ReleaseDC, [:pointer, :pointer], :int
+
 		attach_function :GetDlgItem, [:pointer, :int], :pointer
 
 		callback :WNDENUMPROC, [:pointer, :long], :int
@@ -121,12 +347,37 @@ module Fzeet
 		MF_POPUP = 0x00000010
 		MF_RIGHTJUSTIFY = 0x00004000
 
+		MFT_RADIOCHECK = 0x00000200
+
 		attach_function :AppendMenu, :AppendMenuA, [:pointer, :uint, :uint, :string], :int
 		attach_function :GetMenuState, [:pointer, :uint, :uint], :uint
 		attach_function :EnableMenuItem, [:pointer, :uint, :uint], :int
 		attach_function :CheckMenuItem, [:pointer, :uint, :uint], :ulong
 		attach_function :CheckMenuRadioItem, [:pointer, :uint, :uint, :uint, :uint], :int
 
+		MIIM_BITMAP = 0x00000080
+
+		class MENUITEMINFO < FFI::Struct
+			layout \
+				:cbSize, :uint,
+				:fMask, :uint,
+				:fType, :uint,
+				:fState, :uint,
+				:wID, :uint,
+				:hSubMenu, :pointer,
+				:hbmpChecked, :pointer,
+				:hbmpUnchecked, :pointer,
+				:dwItemData, :ulong,
+				:dwTypeData, :pointer,
+				:cch, :uint,
+				:hbmpItem, :pointer
+		end
+
+		attach_function :GetMenuItemInfo, :GetMenuItemInfoA, [:pointer, :uint, :int, :pointer], :int
+		attach_function :SetMenuItemInfo, :SetMenuItemInfoA, [:pointer, :uint, :int, :pointer], :int
+
+		attach_function :TrackPopupMenu, [:pointer, :uint, :int, :int, :int, :pointer, :pointer], :int
+
 		FVIRTKEY = 1
 		FSHIFT = 0x04
 		FCONTROL = 0x08
@@ -142,39 +393,6 @@ module Fzeet
 		attach_function :CreateAcceleratorTable, :CreateAcceleratorTableA, [:pointer, :int], :pointer
 		attach_function :DestroyAcceleratorTable, [:pointer], :int
 
-		WM_CREATE = 0x0001
-		WM_DESTROY = 0x0002
-		WM_CLOSE = 0x0010
-		WM_SETFONT = 0x0030
-		WM_NCCREATE = 0x0081
-		WM_NCDESTROY = 0x0082
-		WM_COMMAND = 0x0111
-		WM_APP = 0x8000
-
-		class POINT < FFI::Struct
-			layout \
-				:x, :long,
-				:y, :long
-		end
-
-		class MSG < FFI::Struct
-			layout \
-				:hwnd, :pointer,
-				:message, :uint,
-				:wParam, :uint,
-				:lParam, :long,
-				:time, :ulong,
-				:pt, POINT
-		end
-
-		attach_function :GetMessage, :GetMessageA, [:pointer, :pointer, :uint, :uint], :int
-		attach_function :TranslateAccelerator, :TranslateAcceleratorA, [:pointer, :pointer, :pointer], :int
-		attach_function :TranslateMessage, [:pointer], :int
-		attach_function :DispatchMessage, :DispatchMessageA, [:pointer], :long
-		attach_function :SendMessage, :SendMessageA, [:pointer, :uint, :uint, :long], :long
-		attach_function :PostMessage, :PostMessageA, [:pointer, :uint, :uint, :long], :int
-		attach_function :PostQuitMessage, [:int], :void
-
 		SPI_GETNONCLIENTMETRICS = 0x0029
 
 		class LOGFONT < FFI::Struct

data/lib/fzeet/windows/userctl.rb

@@ -0,0 +1,68 @@
+require_relative 'common'
+
+module Fzeet
+	module Windows
+		if __FILE__ == $0
+			ffi_lib 'user32'
+			ffi_convention :stdcall
+		end
+
+		class NMHDR < FFI::Struct
+			layout \
+				:hwndFrom, :pointer,
+				:idFrom, :uint,
+				:code, :uint
+		end
+
+		BS_PUSHBUTTON = 0x00000000
+		BS_DEFPUSHBUTTON = 0x00000001
+		BS_CHECKBOX = 0x00000002
+		BS_AUTOCHECKBOX = 0x00000003
+		BS_RADIOBUTTON = 0x00000004
+		BS_3STATE = 0x00000005
+		BS_AUTO3STATE = 0x00000006
+		BS_GROUPBOX = 0x00000007
+		BS_USERBUTTON = 0x00000008
+		BS_AUTORADIOBUTTON = 0x00000009
+		BS_PUSHBOX = 0x0000000A
+		BS_OWNERDRAW = 0x0000000B
+		BS_TYPEMASK = 0x0000000F
+		BS_LEFTTEXT = 0x00000020
+		BS_TEXT = 0x00000000
+		BS_ICON = 0x00000040
+		BS_BITMAP = 0x00000080
+		BS_LEFT = 0x00000100
+		BS_RIGHT = 0x00000200
+		BS_CENTER = 0x00000300
+		BS_TOP = 0x00000400
+		BS_BOTTOM = 0x00000800
+		BS_VCENTER = 0x00000C00
+		BS_PUSHLIKE = 0x00001000
+		BS_MULTILINE = 0x00002000
+		BS_NOTIFY = 0x00004000
+		BS_FLAT = 0x00008000
+		BS_RIGHTBUTTON = BS_LEFTTEXT
+
+		BM_GETCHECK = 0x00F0
+		BM_SETCHECK = 0x00F1
+		BM_GETSTATE = 0x00F2
+		BM_SETSTATE = 0x00F3
+		BM_SETSTYLE = 0x00F4
+		BM_CLICK = 0x00F5
+		BM_GETIMAGE = 0x00F6
+		BM_SETIMAGE = 0x00F7
+		BM_SETDONTCLICK = 0x00F8
+
+		BN_CLICKED = 0
+		BN_PAINT = 1
+		BN_HILITE = 2
+		BN_UNHILITE = 3
+		BN_DISABLE = 4
+		BN_DOUBLECLICKED = 5
+		BN_PUSHED = BN_HILITE
+		BN_UNPUSHED = BN_UNHILITE
+		BN_DBLCLK = BN_DOUBLECLICKED
+		BN_SETFOCUS = 6
+		BN_KILLFOCUS = 7
+	end
+end