fzeet 0.6.5 → 0.6.6

data/lib/fzeet/windows/urlmon.rb

@@ -1,4 +1,4 @@
-require_relative 'common'
+require_relative 'core'
 
 module Fzeet
 	module Windows
@@ -53,7 +53,7 @@ module Fzeet
 		GET_FEATURE_FROM_THREAD_INTERNET = 0x00000040
 		GET_FEATURE_FROM_THREAD_RESTRICTED = 0x00000080
 
-		if WINVER.AtLeastWindowsXP?
+		if Version >= :xp && Version.sp >= 2
 			attach_function :CoInternetSetFeatureEnabled, [:int, :ulong, :int], :long
 			attach_function :CoInternetIsFeatureEnabled, [:int, :ulong], :long
 		end

data/lib/fzeet/windows/user.rb

@@ -5,3 +5,23 @@ require_relative 'user/Menu'
 require_relative 'user/Accelerator'
 require_relative 'user/Control'
 require_relative 'user/SystemParametersInfo'
+
+module Fzeet
+	class Command
+		@ids = {
+			OK: Windows::IDOK,
+			CANCEL: Windows::IDCANCEL,
+		}
+		@nextId = Windows::WM_APP + 1
+
+		def self.[](id)
+			return id if id.kind_of?(Integer)
+
+			id = id.upcase
+
+			@ids[id], @nextId = @nextId, @nextId + 1 unless @ids.include?(id)
+
+			@ids[id]
+		end
+	end
+end

data/lib/fzeet/windows/user/Accelerator.rb

@@ -178,5 +178,50 @@ module Fzeet
 
 		attach_function :CreateAcceleratorTable, :CreateAcceleratorTableA, [:pointer, :int], :pointer
 		attach_function :DestroyAcceleratorTable, [:pointer], :int
+
+		module AcceleratorTableMethods
+			def translate?(msg, window) Windows.TranslateAccelerator(window.handle, @handle, msg) != 0 end
+		end
+	end
+
+	class AcceleratorTable < Handle
+		include Windows::AcceleratorTableMethods
+
+		def initialize(*args)
+			FFI::MemoryPointer.new(Windows::ACCEL, args.size) { |paccels|
+				args.each_with_index { |data, i|
+					accel = Windows::ACCEL.new(paccels + i * Windows::ACCEL.size)
+
+					data.unshift(0) if data.size == 2
+
+					accel[:fVirt] = Fzeet.flags(data[0], :f)
+
+					accel[:key] = case key = data[1]
+					when Integer
+						accel[:fVirt] |= Windows::FVIRTKEY
+
+						key
+					when Symbol
+						accel[:fVirt] |= Windows::FVIRTKEY
+
+						((key = key.to_s).length == 1) ? key.upcase.ord : Fzeet.constant(key, :vk_)
+					when String
+						if key.length == 1
+							key.ord
+						else
+							accel[:fVirt] |= Windows::FVIRTKEY
+
+							Fzeet.constant(key, :vk_)
+						end
+					end
+
+					accel[:cmd] = Command[data[2]]
+				}
+
+				@handle = Windows.DetonateLastError(FFI::Pointer::NULL, :CreateAcceleratorTable, paccels, args.size); attach
+			}
+		end
+
+		def dispose; Windows.DestroyAcceleratorTable(@handle); detach end
 	end
 end

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

@@ -1,11 +1,12 @@
-require_relative '../common'
+require_relative '../kernel'
+require_relative '../gdi'
 
 module Fzeet
 	module Windows
 		ffi_lib 'user32'
 		ffi_convention :stdcall
 
-		if WINVER.AtLeastWindowsVista?
+		if Version >= :vista
 			attach_function :SetProcessDPIAware, [], :int
 		end
 

data/lib/fzeet/windows/user/Control/Button.rb

@@ -59,4 +59,58 @@ module Fzeet
 		BN_SETFOCUS = 6
 		BN_KILLFOCUS = 7
 	end
+
+	module ButtonMethods
+		def image=(image) sendmsg(:setimage, Windows::IMAGE_BITMAP, image.handle) end
+
+		def note=(text) Windows.LPWSTR(text) { |p| sendmsg(:setnote, 0, p) } end
+
+		def checked?; sendmsg(:getcheck) == Windows::BST_CHECKED end
+		def checked=(checked) sendmsg(:setcheck, (checked) ? Windows::BST_CHECKED : Windows::BST_UNCHECKED) end
+
+		def indeterminate?; sendmsg(:getcheck) == Windows::BST_INDETERMINATE end
+		def indeterminate=(indeterminate) sendmsg(:setcheck, (indeterminate) ? Windows::BST_INDETERMINATE : Windows::BST_UNCHECKED) end
+
+		def pushed?; (sendmsg(:getstate) & Windows::BST_PUSHED) == Windows::BST_PUSHED end
+		def pushed=(pushed) sendmsg(:setstate, (pushed) ? 1 : 0) end
+	end
+
+	class Button < Control
+		include ButtonMethods
+
+		Prefix = {
+			xstyle: [:ws_ex_],
+			style: [:bs_, :ws_],
+			message: [:bm_, :bcm_, :ccm_, :wm_],
+			notification: [:bn_, :bcn_, :nm_]
+		}
+
+		def initialize(parent, id, opts = {}, &block)
+			super('Button', parent, id, opts)
+
+			width, height = 0, 0
+
+			using(ScreenDC.new) { |dc| dc.select(Font) {
+				minw = dc.textExtent('W' * 8).to_a[0]
+				width, height = dc.textExtent("W#{text}W").to_a
+
+				width = minw if width < minw; height = (height * 1.8).ceil
+			}}
+
+			self.location = 10, 10 if location.client!(parent).to_a == [0, 0]
+			self.size = width, height if size.to_a == [0, 0]
+
+			@parent.on(:command, @id, &block) if block
+		end
+
+		def on(notification, &block)
+			if (notification = Fzeet.constant(notification, *self.class::Prefix[:notification])) < Windows::BCN_LAST
+				@parent.on(:command, @id, notification, &block)
+			else
+				@parent.on(:notify, @id, notification, &block)
+			end
+
+			self
+		end
+	end
 end

data/lib/fzeet/windows/user/Control/ComboBox.rb

@@ -1,4 +1,4 @@
-require_relative 'Common'
+require_relative 'ListBox'
 
 module Fzeet
 	module Windows
@@ -69,4 +69,47 @@ module Fzeet
 		CBN_SELENDOK = 9
 		CBN_SELENDCANCEL = 10
 	end
+
+	module ComboBoxMethods
+		include ListBoxMethods
+
+		def textlen(i) raise "GETLBTEXTLEN failed." if (len = sendmsg(:getlbtextlen, i)) == -1; len end
+
+		def [](i)
+			i = sendmsg(:getcursel) if i == :selected
+
+			return '' if i == -1 || (len = textlen(i) + 1) == 1
+
+			''.tap { |item|
+				FFI::MemoryPointer.new(:char, len) { |buf|
+					raise "GETLBTEXT failed." if sendmsg(:getlbtext, i, buf) == -1
+
+					item << buf.read_string
+				}
+			}
+		end
+	end
+
+	class ComboBox < Control
+		include ComboBoxMethods
+
+		Prefix = {
+			xstyle: [:ws_ex_],
+			style: [:cbs_, :ws_],
+			message: [:cb_, :wm_],
+			notification: [:cbn_]
+		}
+
+		def initialize(parent, id, opts = {}, &block)
+			super('ComboBox', parent, id, opts)
+
+			@parent.on(:command, @id, &block) if block
+		end
+
+		def on(notification, &block)
+			@parent.on(:command, @id, Fzeet.constant(notification, *self.class::Prefix[:notification]), &block)
+
+			self
+		end
+	end
 end

data/lib/fzeet/windows/user/Control/Common.rb

@@ -1,4 +1,5 @@
-require_relative '../Window'
+require_relative '../SystemParametersInfo'
+require_relative '../Window/WindowMethods'
 
 module Fzeet
 	module Windows
@@ -9,4 +10,90 @@ module Fzeet
 				:code, :uint
 		end
 	end
+
+	class Control < Handle
+		include WindowMethods
+
+		Windows::NONCLIENTMETRICS.new.tap { |ncm|
+			ncm[:cbSize] = ncm.size
+
+			Windows.DetonateLastError(0, :SystemParametersInfo, Windows::SPI_GETNONCLIENTMETRICS, ncm.size, ncm, 0)
+
+			Font = IndirectFont.new(ncm[:lfMenuFont])
+
+			at_exit { Font.dispose }
+		}
+
+		def self.crackNotification(args) end
+
+		def initialize(className, parent, id, opts = {})
+			@parent = parent
+			@id = Command[id]
+
+			handlers = {}
+
+			opts.delete_if { |k, v|
+				next false unless v.kind_of?(Proc)
+
+				handlers[k] = v; true
+			}
+
+			_opts = {
+				xstyle: [],
+				caption: id.capitalize,
+				style: [],
+				x: 0,
+				y: 0,
+				width: 0,
+				height: 0,
+				position: [],
+				anchor: nil
+			}
+			badopts = opts.keys - _opts.keys; raise "Bad option(s): #{badopts.join(', ')}." unless badopts.empty?
+			_opts.merge!(opts)
+
+			_opts[:xstyle] = Fzeet.flags(_opts[:xstyle], *self.class::Prefix[:xstyle])
+			_opts[:caption] = _opts[:caption].to_s
+			_opts[:style] = Fzeet.flags([:child, :visible, :tabstop], :ws_) | Fzeet.flags(_opts[:style], *self.class::Prefix[:style])
+			_opts[:x], _opts[:y], _opts[:width], _opts[:height] = _opts[:position] unless _opts[:position].empty?
+
+			@handle = Windows.DetonateLastError(FFI::Pointer::NULL, :CreateWindowEx,
+				_opts[:xstyle], className, _opts[:caption], _opts[:style],
+				_opts[:x], _opts[:y], _opts[:width], _opts[:height],
+				@parent.handle, FFI::Pointer.new(@id), Windows.GetModuleHandle(nil), nil
+			)
+
+			attach
+
+			sendmsg(:setfont, Font.handle, 1)
+
+			handlers.each { |k, v| on(k, &v) }
+
+			case _opts[:anchor]
+			when :ltr
+				@parent.on(:size) { |args|
+					self.position = @parent.rect.tap { |r| r[:bottom] = _opts[:height] }.to_a
+
+					args[:result] = nil if @parent.class == MDIChild
+				}
+			when :lrb
+				@parent.on(:size) { |args|
+					self.position = @parent.rect.tap { |r| r[:top] = r[:bottom] - _opts[:height]; r[:bottom] = _opts[:height] }.to_a
+
+					args[:result] = nil if @parent.class == MDIChild
+				}
+			when :ltrb
+				@parent.on(:size) { |args|
+					self.position = @parent.rect.to_a
+
+					args[:result] = nil if @parent.class == MDIChild
+				}
+			else raise ArgumentError, "Bad anchor spec: #{_opts[:anchor]}."
+			end if _opts[:anchor]
+		end
+
+		attr_reader :parent, :id
+
+		def dispose; detach end
+	end
 end

data/lib/fzeet/windows/user/Control/Edit.rb

@@ -68,4 +68,54 @@ module Fzeet
 		EN_ALIGN_LTR_EC = 0x0700
 		EN_ALIGN_RTL_EC = 0x0701
 	end
+
+	module EditMethods
+		def clear; self.text = ''; self end
+
+		def select(s = 0, e = -1) sendmsg(:setsel, s, e); self end
+
+		def cuebanner=(text) Windows.LPWSTR(text) { |p| sendmsg(:setcuebanner, 1, p) } end
+
+		def showBalloontip(text, title = '', icon = 1)
+			Windows.LPWSTR(text) { |ptext| Windows.LPWSTR(title) { |ptitle|
+				ebt = Windows::EDITBALLOONTIP.new
+
+				ebt[:cbStruct] = ebt.size
+				ebt[:pszTitle] = ptitle
+				ebt[:pszText] = ptext
+				ebt[:ttiIcon] = Fzeet.constant(icon, :tti_)
+
+				sendmsg(:showBalloontip, 0, ebt.pointer)
+			}}
+
+			self
+		end
+
+		def hideBalloontip; sendmsg(:hideBalloontip); self end
+	end
+
+	class Edit < Control
+		include EditMethods
+
+		Prefix = {
+			xstyle: [:ws_ex_],
+			style: [:es_, :ws_],
+			message: [:em_, :wm_],
+			notification: [:en_]
+		}
+
+		def initialize(parent, id, opts = {}, &block)
+			super('Edit', parent, id, opts)
+
+			style << :border; reframe
+
+			@parent.on(:command, @id, &block) if block
+		end
+
+		def on(notification, &block)
+			@parent.on(:command, @id, Fzeet.constant(notification, *self.class::Prefix[:notification]), &block)
+
+			self
+		end
+	end
 end

data/lib/fzeet/windows/user/Control/ListBox.rb

@@ -75,4 +75,73 @@ module Fzeet
 		LBN_SETFOCUS = 4
 		LBN_KILLFOCUS = 5
 	end
+
+	module ListBoxMethods
+		def textlen(i) raise "GETTEXTLEN failed." if (len = sendmsg(:gettextlen, i)) == -1; len end
+
+		def [](i)
+			i = sendmsg(:getcursel) if i == :selected
+
+			return '' if i == -1 || (len = textlen(i) + 1) == 1
+
+			''.tap { |item|
+				FFI::MemoryPointer.new(:char, len) { |buf|
+					raise "GETTEXT failed." if sendmsg(:gettext, i, buf) == -1
+
+					item << buf.read_string
+				}
+			}
+		end
+
+		def clear; sendmsg(:resetcontent); self end
+
+		def append(item)
+			[*item].each { |item|
+				p = FFI::MemoryPointer.from_string(item.to_s)
+
+				raise 'ADDSTRING failed.' if [-1, -2].include?(sendmsg(:addstring, 0, p).tap { p.free })
+			}
+
+			self
+		end
+
+		def selected=(i)
+			i = case i
+			when -1;     0xffffffff
+			when :first; 0
+			when :last;  length - 1
+			else         i
+			end
+
+			raise 'SETCURSEL failed.' if sendmsg(:setcursel, i) == -1 && i != 0xffffffff
+
+			self
+		end
+
+		def length; raise 'GETCOUNT failed.' if (len = sendmsg(:getcount)) == -1; len end
+		def each; length.times { |i| yield self[i] }; self end
+	end
+
+	class ListBox < Control
+		include ListBoxMethods
+
+		Prefix = {
+			xstyle: [:ws_ex_],
+			style: [:lbs_, :ws_],
+			message: [:lb_, :wm_],
+			notification: [:lbn_]
+		}
+
+		def initialize(parent, id, opts = {}, &block)
+			super('ListBox', parent, id, opts)
+
+			@parent.on(:command, @id, &block) if block
+		end
+
+		def on(notification, &block)
+			@parent.on(:command, @id, Fzeet.constant(notification, *self.class::Prefix[:notification]), &block)
+
+			self
+		end
+	end
 end