fzeet 0.6.2 → 0.6.3

data/lib/fzeet/Control/Tab.rb

@@ -0,0 +1,59 @@
+require_relative 'Common'
+
+module Fzeet
+	module TabMethods
+		class Item
+			def initialize(tab, i) @tab, @index = tab, i end
+
+			attr_reader :tab, :index
+		end
+
+		def [](i) Item.new(self, i) end
+
+		def count; sendmsg(:getitemcount) end
+		alias :size :count
+		alias :length :count
+
+		def insert(text, i = count)
+			tci = Windows::TCITEM.new
+
+			tci[:mask] = Fzeet.flags(:text, :tcif_)
+			tci[:pszText] = ptext = FFI::MemoryPointer.from_string(text)
+
+			sendmsg(:insertitem, i, tci.pointer)
+
+			self
+		ensure
+			ptext.free
+		end
+
+		def current; self[sendmsg(:getcursel)] end
+	end
+
+	class Tab < Control
+		include TabMethods
+
+		Prefix = {
+			xstyle: [:tcs_ex_, :ws_ex_],
+			style: [:tcs_, :ws_],
+			message: [:tcm_, :ccm_, :wm_],
+			notification: [:tcn_, :nm_]
+		}
+
+		def self.crackNotification(args) end
+
+		def initialize(parent, id, opts = {}, &block)
+			super('SysTabControl32', parent, id, opts)
+
+			style << :clipsiblings
+
+			@parent.on(:notify, @id, &block) if block
+		end
+
+		def on(notification, &block)
+			@parent.on(:notify, @id, Fzeet.constant(notification, *self.class::Prefix[:notification]), &block)
+
+			self
+		end
+	end
+end

data/lib/fzeet/Control/TreeView.rb

@@ -2,7 +2,57 @@ require_relative 'Common'
 
 module Fzeet
 	module TreeViewMethods
+		class Item
+			def initialize(text) @text = text end
 
+			attr_reader :text, :root, :parent, :handle
+
+			def root=(root) raise 'Can\'t change established @root.' if @root; @root = root end
+			def parent=(parent) raise 'Can\'t change established @parent.' if @parent; @parent = parent end
+			def handle=(handle) raise 'Can\'t change established @handle.' if @handle; @handle = handle end
+
+			def append(text)
+				item = Item.new(text)
+
+				tvis = Windows::TVINSERTSTRUCT.new
+
+				tvis[:hInsertAfter] = Windows::TVI_LAST
+				tvis[:hParent] = @handle
+
+				tvi = tvis[:item]
+
+				tvi[:mask] = Windows::TVIF_TEXT
+				tvi[:pszText] = ptext = FFI::MemoryPointer.from_string(item.text)
+
+				item.root, item.parent = @root, self
+				item.handle = @root.sendmsg(:insertitem, 0, tvis.pointer)
+
+				item
+			ensure
+				ptext.free
+			end
+		end
+
+		def append(text)
+			item = Item.new(text)
+
+			tvis = Windows::TVINSERTSTRUCT.new
+
+			tvis[:hInsertAfter] = Windows::TVI_LAST
+			tvis[:hParent] = Windows::TVI_ROOT
+
+			tvi = tvis[:item]
+
+			tvi[:mask] = Windows::TVIF_TEXT
+			tvi[:pszText] = ptext = FFI::MemoryPointer.from_string(item.text)
+
+			item.root, item.parent = self, self
+			item.handle = sendmsg(:insertitem, 0, tvis.pointer)
+
+			item
+		ensure
+			ptext.free
+		end
 	end
 
 	class TreeView < Control

data/lib/fzeet/Control.rb

@@ -2,6 +2,7 @@ require_relative 'Control/Button'
 require_relative 'Control/SysLink' if Fzeet::Windows::WINVER.AtLeastWindowsXP?
 require_relative 'Control/Static'
 require_relative 'Control/Edit'
+require_relative 'Control/Scintilla'
 require_relative 'Control/UpDown'
 require_relative 'Control/MonthCalendar'
 require_relative 'Control/DateTimePicker'
@@ -12,3 +13,5 @@ require_relative 'Control/Header'
 require_relative 'Control/ListView'
 require_relative 'Control/TreeView'
 require_relative 'Control/ProgressBar'
+require_relative 'Control/PropertySheet'
+require_relative 'Control/Tab'

data/lib/fzeet/Window/Common.rb

@@ -87,6 +87,80 @@ module Fzeet
 			result || Windows.DefWindowProc(hwnd, uMsg, wParam, lParam)
 		}
 
+		FrameProc = 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
+
+				if uMsg == Windows::WM_CREATE
+					@@instances[hwnd.to_i].menu = Menu.new.
+						append(:popup, '&Window', PopupMenu.new)
+
+					ccs = Windows::CLIENTCREATESTRUCT.new
+
+					ccs[:hWindowMenu] = @@instances[hwnd.to_i].menu.submenus[0].handle
+					ccs[:idFirstChild] = 50000
+
+					hwndClient = Windows.DetonateLastError(FFI::Pointer::NULL, :CreateWindowEx,
+						0, 'MDIClient', nil, Fzeet.flags([:child, :clipsiblings, :clipchildren, :visible], :ws_),
+						0, 0, 0, 0,
+						hwnd, nil, Windows.GetModuleHandle(nil), ccs
+					)
+
+					@@instances[hwnd.to_i].instance_variable_set(:@client, Handle.wrap(hwndClient, WindowMethods))
+				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
+
+			hwndClient = @@instances[hwnd.to_i] && @@instances[hwnd.to_i].client && @@instances[hwnd.to_i].client.handle
+
+			result || Windows.DefFrameProc(hwnd, hwndClient, uMsg, wParam, lParam)
+		}
+
+		MDIChildProc = 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::MDICREATESTRUCT.new(
+							Windows::CREATESTRUCT.new(FFI::Pointer.new(lParam))[:lpCreateParams]
+						)[: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 || Windows.DefMDIChildProc(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
@@ -173,9 +247,10 @@ module Fzeet
 				y: Windows::CW_USEDEFAULT,
 				width: Windows::CW_USEDEFAULT,
 				height: Windows::CW_USEDEFAULT,
-				position: [],
 				parent: nil,
-				menu: nil
+				menu: nil,
+				position: [],
+				anchor: nil
 			}
 			badopts = opts.keys - _opts.keys; raise "Bad option(s): #{badopts.join(', ')}." unless badopts.empty?
 			_opts.merge!(opts)
@@ -213,10 +288,17 @@ module Fzeet
 
 					eachChild(&:dispose)
 				}
+
+				case _opts[:anchor]
+				when :ltr; @parent.on(:size) { self.position = @parent.rect.tap { |r| r[:bottom] = _opts[:height] }.to_a }
+				when :lrb; @parent.on(:size) { self.position = @parent.rect.tap { |r| r[:top] = r[:bottom] - _opts[:height]; r[:bottom] = _opts[:height] }.to_a }
+				when :ltrb; @parent.on(:size) { self.position = @parent.rect.to_a }
+				else raise ArgumentError, "Bad anchor spec: #{_opts[:anchor]}."
+				end if _opts[:anchor] && @parent
 			end
 		end
 
-		attr_reader :parent, :ribbon
+		attr_reader :parent, :client, :ribbon
 
 		def dispose; Windows.DestroyWindow(@handle) end
 

data/lib/fzeet/Window/Container.rb

@@ -0,0 +1,29 @@
+require_relative 'Common'
+
+module Fzeet
+	Container = BasicWindow['Fzeet.Container']
+
+	class Container
+		def initialize(parent, opts = {})
+			opts[:parent] = parent
+			(opts[:style] ||= []) << :visible << :child << :clipsiblings << :clipchildren
+
+			super(opts)
+
+			style >> :caption >> :thickframe
+
+			on(:erasebkgnd) { |args|
+				Handle.wrap(FFI::Pointer.new(args[:wParam]), DCMethods).
+					fillRect(
+						rect,
+						case @parent
+						when Dialog; FFI::Pointer.new(Windows::CTLCOLOR_DLG + 1)
+						when BasicWindow; FFI::Pointer.new(Windows.DetonateLastError(-1, :GetClassLong, @parent.handle, Windows::GCL_HBRBACKGROUND))
+						end
+					)
+
+				args[:result] = 1
+			}
+		end
+	end
+end

data/lib/fzeet/Window/MDI.rb

@@ -0,0 +1,30 @@
+require_relative 'Common'
+
+module Fzeet
+	Frame = BasicWindow['Fzeet.Frame',
+		wndProc: BasicWindow::FrameProc,
+		background: SystemBrush.new(:appworkspace)
+	]
+
+	class Frame
+		def initialize(opts = {})
+			(opts[:style] ||= []) << :overlappedwindow << :clipsiblings << :clipchildren
+
+			super
+		end
+	end
+
+	MDIChild = BasicWindow['Fzeet.MDIChild',
+		wndProc: BasicWindow::MDIChildProc
+	]
+
+	class MDIChild
+		def initialize(parent, opts = {})
+			(opts[:xstyle] ||= []) << :mdichild
+			(opts[:style] ||= []) << :child << :overlappedwindow << :clipsiblings << :clipchildren << :visible
+			opts[:parent] = parent
+
+			super(opts)
+		end
+	end
+end

data/lib/fzeet/Window/View.rb

@@ -7,7 +7,7 @@ module Fzeet
 
 	class View
 		def initialize(opts = {})
-			(opts[:style] ||= []) << :overlappedwindow << :clipchildren
+			(opts[:style] ||= []) << :overlappedwindow << :clipsiblings << :clipchildren
 
 			super
 		end

data/lib/fzeet/Window/Window.rb

@@ -5,7 +5,7 @@ module Fzeet
 
 	class Window
 		def initialize(opts = {})
-			(opts[:style] ||= []) << :overlappedwindow << :clipchildren
+			(opts[:style] ||= []) << :overlappedwindow << :clipsiblings << :clipchildren
 
 			super
 		end

data/lib/fzeet/Window/WindowMethods.rb

@@ -4,8 +4,19 @@ module Fzeet
 	module WindowMethods
 		include Toggle
 
-		def message(message, opts = {window: self}) Fzeet.message(message, opts) end
-		def question(message, opts = {window: self}) Fzeet.question(message, opts) end
+		def message(message, opts = {})
+			opts[:window] ||= self
+			opts[:caption] ||= text
+
+			Fzeet.message(message, opts)
+		end
+
+		def question(message, opts = {})
+			opts[:window] ||= self
+			opts[:caption] ||= text
+
+			Fzeet.question(message, opts)
+		end
 
 		def sendmsg(msg, wParam = 0, lParam = 0)
 			Windows.SendMessage(

data/lib/fzeet/Window.rb

@@ -1,3 +1,5 @@
 require_relative 'Window/Window'
 require_relative 'Window/View'
+require_relative 'Window/Container'
+require_relative 'Window/MDI'
 require_relative 'Window/Dialog'

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

@@ -0,0 +1,88 @@
+require_relative 'Common'
+
+module Fzeet
+	module Windows
+		TCS_SCROLLOPPOSITE = 0x0001
+		TCS_BOTTOM = 0x0002
+		TCS_RIGHT = 0x0002
+		TCS_MULTISELECT = 0x0004
+		TCS_FLATBUTTONS = 0x0008
+		TCS_FORCEICONLEFT = 0x0010
+		TCS_FORCELABELLEFT = 0x0020
+		TCS_HOTTRACK = 0x0040
+		TCS_VERTICAL = 0x0080
+		TCS_TABS = 0x0000
+		TCS_BUTTONS = 0x0100
+		TCS_SINGLELINE = 0x0000
+		TCS_MULTILINE = 0x0200
+		TCS_RIGHTJUSTIFY = 0x0000
+		TCS_FIXEDWIDTH = 0x0400
+		TCS_RAGGEDRIGHT = 0x0800
+		TCS_FOCUSONBUTTONDOWN = 0x1000
+		TCS_OWNERDRAWFIXED = 0x2000
+		TCS_TOOLTIPS = 0x4000
+		TCS_FOCUSNEVER = 0x8000
+
+		TCS_EX_FLATSEPARATORS = 0x00000001
+		TCS_EX_REGISTERDROP = 0x00000002
+
+		TCM_FIRST = 0x1300
+		TCM_GETIMAGELIST = TCM_FIRST + 2
+		TCM_SETIMAGELIST = TCM_FIRST + 3
+		TCM_GETITEMCOUNT = TCM_FIRST + 4
+		TCM_GETITEM = TCM_FIRST + 5
+		TCM_SETITEM = TCM_FIRST + 6
+		TCM_INSERTITEM = TCM_FIRST + 7
+		TCM_DELETEITEM = TCM_FIRST + 8
+		TCM_DELETEALLITEMS = TCM_FIRST + 9
+		TCM_GETITEMRECT = TCM_FIRST + 10
+		TCM_GETCURSEL = TCM_FIRST + 11
+		TCM_SETCURSEL = TCM_FIRST + 12
+		TCM_HITTEST = TCM_FIRST + 13
+		TCM_SETITEMEXTRA = TCM_FIRST + 14
+		TCM_ADJUSTRECT = TCM_FIRST + 40
+		TCM_SETITEMSIZE = TCM_FIRST + 41
+		TCM_REMOVEIMAGE = TCM_FIRST + 42
+		TCM_SETPADDING = TCM_FIRST + 43
+		TCM_GETROWCOUNT = TCM_FIRST + 44
+		TCM_GETTOOLTIPS = TCM_FIRST + 45
+		TCM_SETTOOLTIPS = TCM_FIRST + 46
+		TCM_GETCURFOCUS = TCM_FIRST + 47
+		TCM_SETCURFOCUS = TCM_FIRST + 48
+		TCM_SETMINTABWIDTH = TCM_FIRST + 49
+		TCM_DESELECTALL = TCM_FIRST + 50
+		TCM_HIGHLIGHTITEM = TCM_FIRST + 51
+		TCM_SETEXTENDEDSTYLE = TCM_FIRST + 52
+		TCM_GETEXTENDEDSTYLE = TCM_FIRST + 53
+		TCM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT
+		TCM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT
+
+		TCN_FIRST = 0x1_0000_0000 - 550
+		TCN_LAST = 0x1_0000_0000 - 580
+		TCN_KEYDOWN = TCN_FIRST - 0
+		TCN_SELCHANGE = TCN_FIRST - 1
+		TCN_SELCHANGING = TCN_FIRST - 2
+		TCN_GETOBJECT = TCN_FIRST - 3
+		TCN_FOCUSCHANGE = TCN_FIRST - 4
+
+		TCIF_TEXT = 0x0001
+		TCIF_IMAGE = 0x0002
+		TCIF_RTLREADING = 0x0004
+		TCIF_PARAM = 0x0008
+		TCIF_STATE = 0x0010
+
+		TCIS_BUTTONPRESSED = 0x0001
+		TCIS_HIGHLIGHTED = 0x0002
+
+		class TCITEM < FFI::Struct
+			layout \
+				:mask, :uint,
+				:dwState, :ulong,
+				:dwStateMask, :ulong,
+				:pszText, :pointer,
+				:cchTextMax, :int,
+				:iImage, :int,
+				:lParam, :long
+		end
+	end
+end

data/lib/fzeet/windows/comctl.rb

@@ -11,3 +11,4 @@ require_relative 'comctl/ListView'
 require_relative 'comctl/TreeView'
 require_relative 'comctl/ProgressBar'
 require_relative 'comctl/PropertySheet'
+require_relative 'comctl/Tab'

data/lib/fzeet/windows/gdi.rb

@@ -48,6 +48,8 @@ module Fzeet
 
 		attach_function :SelectObject, [:pointer, :pointer], :pointer
 
+		attach_function :GetTextExtentPoint, :GetTextExtentPointA, [:pointer, :string, :int, :pointer], :int
+
 		attach_function :GetTextColor, [:pointer], :ulong
 		attach_function :SetTextColor, [:pointer, :ulong], :ulong