fzeet 0.4.2 → 0.5.0

data/lib/fzeet/windows/usermenu.rb

@@ -0,0 +1,50 @@
+require_relative 'usercommon'
+
+module Fzeet
+	module Windows
+		attach_function :CreateMenu, [], :pointer
+		attach_function :CreatePopupMenu, [], :pointer
+		attach_function :DestroyMenu, [:pointer], :int
+
+		MF_SEPARATOR = 0x00000800
+		MF_ENABLED = 0x00000000
+		MF_GRAYED = 0x00000001
+		MF_UNCHECKED = 0x00000000
+		MF_CHECKED = 0x00000008
+		MF_USECHECKBITMAPS = 0x00000200
+		MF_STRING = 0x00000000
+		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
+	end
+end

data/lib/fzeet/windows/usermsg.rb

@@ -1,12 +1,7 @@
-require_relative 'common'
+require_relative 'usercommon'
 
 module Fzeet
 	module Windows
-		if __FILE__ == $0
-			ffi_lib 'user32'
-			ffi_convention :stdcall
-		end
-
 		#{ WM_xxx
 		WM_NULL = 0x0000
 		WM_CREATE = 0x0001

data/lib/fzeet/windows/userspi.rb

@@ -0,0 +1,29 @@
+require_relative 'usercommon'
+
+module Fzeet
+	module Windows
+		SPI_GETNONCLIENTMETRICS = 0x0029
+
+		class NONCLIENTMETRICS < FFI::Struct
+			layout \
+				:cbSize, :uint,
+				:iBorderWidth, :int,
+				:iScrollWidth, :int,
+				:iScrollHeight, :int,
+				:iCaptionWidth, :int,
+				:iCaptionHeight, :int,
+				:lfCaptionFont, LOGFONT,
+				:iSmCaptionWidth, :int,
+				:iSmCaptionHeight, :int,
+				:lfSmCaptionFont, LOGFONT,
+				:iMenuWidth, :int,
+				:iMenuHeight, :int,
+				:lfMenuFont, LOGFONT,
+				:lfStatusFont, LOGFONT,
+				:lfMessageFont, LOGFONT,
+				:iPaddedBorderWidth, :int
+		end
+
+		attach_function :SystemParametersInfo, :SystemParametersInfoA, [:uint, :uint, :pointer, :uint], :int
+	end
+end

data/lib/fzeet/windows/userwnd.rb

@@ -0,0 +1,276 @@
+require_relative 'usercommon'
+
+module Fzeet
+	module Windows
+		callback :WNDPROC, [:pointer, :uint, :uint, :long], :long
+
+		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 \
+				:cbSize, :uint,
+				:style, :uint,
+				:lpfnWndProc, :WNDPROC,
+				:cbClsExtra, :int,
+				:cbWndExtra, :int,
+				:hInstance, :pointer,
+				:hIcon, :pointer,
+				:hCursor, :pointer,
+				:hbrBackground, :pointer,
+				:lpszMenuName, :pointer,
+				:lpszClassName, :pointer,
+				:hIconSm, :pointer
+		end
+
+		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
+
+		class CREATESTRUCT < FFI::Struct
+			layout \
+				:lpCreateParams, :pointer,
+				:hInstance, :pointer,
+				:hMenu, :pointer,
+				:hwndParent, :pointer,
+				:cy, :int,
+				:cx, :int,
+				:y, :int,
+				:x, :int,
+				:style, :long,
+				:lpszName, :pointer,
+				:lpszClass, :pointer,
+				:dwExStyle, :ulong
+		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
+
+		attach_function :EnumChildWindows, [:pointer, :WNDENUMPROC, :long], :int
+
+		attach_function :GetMenu, [:pointer], :pointer
+		attach_function :SetMenu, [:pointer, :pointer], :int
+	end
+end

data/lib/fzeet/windows.rb

@@ -2,11 +2,17 @@ require_relative 'windows/libc'
 
 require_relative 'windows/kernel'
 require_relative 'windows/user'
-require_relative 'windows/usermsg'
-require_relative 'windows/userctl'
 require_relative 'windows/gdi'
 
 require_relative 'windows/comctl'
+require_relative 'windows/comdlg'
+
+require_relative 'windows/com'
+
+require_relative 'windows/ole'
+require_relative 'windows/shell'
+
+require_relative 'windows/uiribbon'
 
 module Fzeet
 	module Windows
@@ -18,7 +24,15 @@ module Fzeet
 			yield failed if block_given?
 		end
 
-		module_function :DetonateLastError
+		def DetonateHresult(name, *args)
+			failed = FAILED(result = send(name, *args)) and raise "#{name} failed (hresult #{format('%#08x', result)})."
+
+			result
+		ensure
+			yield failed if block_given?
+		end
+
+		module_function :DetonateLastError, :DetonateHresult
 
 		COMMON_CONTROLS_ACTCTX = {handle: INVALID_HANDLE_VALUE, cookie: FFI::MemoryPointer.new(:ulong), activated: false}
 
@@ -62,6 +76,12 @@ module Fzeet
 			COMMON_CONTROLS_ACTCTX[:activated] = true
 		end
 
-		module_function :EnableVisualStyles
+		def InitializeOle
+			DetonateHresult(:OleInitialize, nil)
+
+			at_exit { OleUninitialize() }
+		end
+
+		module_function :EnableVisualStyles, :InitializeOle
 	end
 end

data/lib/fzeet.rb

@@ -3,3 +3,5 @@ require_relative 'fzeet/Application'
 require_relative 'fzeet/Menu'
 require_relative 'fzeet/Accelerator'
 require_relative 'fzeet/Control'
+require_relative 'fzeet/Dialog'
+require_relative 'fzeet/UIRibbon'

metadata

@@ -5,9 +5,9 @@ version: !ruby/object:Gem::Version
   prerelease: false
   segments: 
   - 0
-  - 4
-  - 2
-  version: 0.4.2
+  - 5
+  - 0
+  version: 0.5.0
 platform: ruby
 authors: 
 - Radoslav Peev
@@ -15,7 +15,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-08-17 00:00:00 +03:00
+date: 2010-08-21 00:00:00 +03:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
@@ -43,33 +43,69 @@ extensions: []
 extra_rdoc_files: []
 
 files: 
+- lib/fzeet/windows/com.rb
 - lib/fzeet/windows/comctl.rb
+- lib/fzeet/windows/comctlbutton.rb
+- lib/fzeet/windows/comctlcommon.rb
+- lib/fzeet/windows/comdlg.rb
+- lib/fzeet/windows/comdlgcommon.rb
+- lib/fzeet/windows/comdlgofn.rb
 - lib/fzeet/windows/common.rb
 - lib/fzeet/windows/gdi.rb
 - lib/fzeet/windows/kernel.rb
 - lib/fzeet/windows/libc.rb
+- lib/fzeet/windows/ole.rb
+- lib/fzeet/windows/shell.rb
+- lib/fzeet/windows/uiribbon.rb
 - lib/fzeet/windows/user.rb
+- lib/fzeet/windows/usercommon.rb
 - lib/fzeet/windows/userctl.rb
+- lib/fzeet/windows/userctlbutton.rb
+- lib/fzeet/windows/userctlcommon.rb
+- lib/fzeet/windows/userkbd.rb
+- lib/fzeet/windows/usermbox.rb
+- lib/fzeet/windows/usermenu.rb
 - lib/fzeet/windows/usermsg.rb
+- lib/fzeet/windows/userspi.rb
+- lib/fzeet/windows/userwnd.rb
 - lib/fzeet/Accelerator.rb
 - lib/fzeet/Application.rb
 - lib/fzeet/common.rb
 - lib/fzeet/Control.rb
+- lib/fzeet/ControlButton.rb
+- lib/fzeet/ControlCommon.rb
+- lib/fzeet/Dialog.rb
+- lib/fzeet/DialogCommon.rb
+- lib/fzeet/DialogFileDialog.rb
 - lib/fzeet/Menu.rb
+- lib/fzeet/UIRibbon.rb
 - lib/fzeet/Window.rb
+- lib/fzeet/WindowCommon.rb
+- lib/fzeet/WindowDialog.rb
 - lib/fzeet/WindowMethods.rb
 - lib/fzeet/windows.rb
+- lib/fzeet/WindowWindow.rb
 - lib/fzeet.rb
 - examples/res/edit-copy.bmp
 - examples/res/edit-cut.bmp
 - examples/res/edit-paste.bmp
+- examples/res/go-next-small.bmp
+- examples/res/go-next.bmp
+- examples/res/go-previous-small.bmp
+- examples/res/go-previous.bmp
 - examples/Raw/Command.rbw
 - examples/Raw/Hello.rbw
 - examples/Raw/LifeCycle.rbw
 - examples/Raw/Minimal.rbw
+- examples/Raw/UIRibbon/Command.rbw
+- examples/Raw/UIRibbon/Minimal.rbw
+- examples/Raw/UIRibbon/Command.xml
+- examples/Raw/UIRibbon/Minimal.xml
+- examples/Raw/UIRibbon/Command.rb
+- examples/Raw/UIRibbon/Minimal.rb
+- examples/Raw/UIRibbon/Command.dll
+- examples/Raw/UIRibbon/Minimal.dll
 - examples/Command.rbw
-- examples/Dialog.rbw
-- examples/DialogApplication.rbw
 - examples/Hello.rbw
 - examples/Inheritance.rbw
 - examples/Inheritance1.rbw
@@ -85,6 +121,18 @@ files:
 - examples/Menu/Menu.rbw
 - examples/Menu/MenuPARGB32.rbw
 - examples/Control/Button.rbw
+- examples/Dialog/Dialog.rbw
+- examples/Dialog/DialogApplication.rbw
+- examples/Dialog/FileDialog.rbw
+- examples/UIRibbon/Command.rbw
+- examples/UIRibbon/Minimal.rbw
+- examples/UIRibbon/Viewer.rbw
+- examples/UIRibbon/Command.xml
+- examples/UIRibbon/Minimal.xml
+- examples/UIRibbon/Command.rb
+- examples/UIRibbon/Minimal.rb
+- examples/UIRibbon/Command.dll
+- examples/UIRibbon/Minimal.dll
 - LICENSE
 has_rdoc: true
 homepage: