fzeet 0.5.3 → 0.6.0

data/lib/fzeet/Control/ListBox.rb

@@ -0,0 +1,72 @@
+require_relative 'Common'
+
+module Fzeet
+	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

data/lib/fzeet/Control/ListView.rb

@@ -0,0 +1,90 @@
+require_relative 'Common'
+
+module Fzeet
+	module ListViewMethods
+		class ExStyle
+			def initialize(listview) @listview = listview end
+
+			def <<(xstyle)
+				@listview.sendmsg(:setextendedlistviewstyle, 0,
+					@listview.sendmsg(:getextendedlistviewstyle) | Fzeet.constant(xstyle, *@listview.class::Prefix[:xstyle])
+				)
+
+				self
+			end
+
+			def >>(xstyle)
+				@listview.sendmsg(:setextendedlistviewstyle, 0,
+					@listview.sendmsg(:getextendedlistviewstyle) & ~Fzeet.constant(xstyle, *@listview.class::Prefix[:xstyle])
+				)
+
+				self
+			end
+
+			def toggle(what) send((@listview.xstyle?(what)) ? :>> : :<<, what); self end
+		end
+
+		def xstyle?(xstyle) (sendmsg(:getextendedlistviewstyle) & (xstyle = Fzeet.constant(xstyle, *self.class::Prefix[:xstyle]))) == xstyle end
+		def xstyle; ExStyle.new(self) end
+
+		def insertColumn(i, text, width)
+			lvc = Windows::LVCOLUMN.new
+
+			lvc[:mask] = Fzeet.flags([:fmt, :width, :text, :subitem], :lvcf_)
+			lvc[:fmt] = Fzeet.flags(:left, :lvcfmt_)
+			lvc[:cx] = width
+			lvc[:pszText] = ptext = FFI::MemoryPointer.from_string(text)
+			lvc[:iSubItem] = i
+
+			sendmsg(:insertcolumn, 0, lvc.pointer)
+
+			self
+		ensure
+			ptext.free if ptext
+		end
+
+		def insertItem(i, j, text)
+			lvi = Windows::LVITEM.new
+
+			lvi[:mask] = Fzeet.flags(:text, :lvif_)
+			lvi[:iItem] = i
+			lvi[:iSubItem] = j
+			lvi[:pszText] = ptext = FFI::MemoryPointer.from_string(text)
+
+			if j > 0
+				sendmsg(:setitem, 0, lvi.pointer)
+			else
+				sendmsg(:insertitem, 0, lvi.pointer)
+			end
+
+			self
+		ensure
+			ptext.free if ptext
+		end
+	end
+
+	class ListView < Control
+		include ListViewMethods
+
+		Prefix = {
+			xstyle: [:lvs_ex_, :ws_ex_],
+			style: [:lvs_, :ws_],
+			message: [:lvm_, :ccm_, :wm_],
+			notification: [:lvn_, :nm_]
+		}
+
+		def self.crackNotification(args) end
+
+		def initialize(parent, id, opts = {}, &block)
+			super('SysListView32', parent, id, opts)
+
+			@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/MonthCalendar.rb

@@ -0,0 +1,38 @@
+require_relative 'Common'
+
+module Fzeet
+	module MonthCalendarMethods
+
+	end
+
+	class MonthCalendar < Control
+		include MonthCalendarMethods
+
+		Prefix = {
+			xstyle: [:ws_ex_],
+			style: [:mcs_, :ws_],
+			message: [:mcm_, :ccm_, :wm_],
+			notification: [:mcn_, :nm_]
+		}
+
+		def self.crackNotification(args)
+			case args[:notification]
+			when Windows::MCN_SELCHANGE
+				args[:sc] = Windows::NMSELCHANGE.new(FFI::Pointer.new(args[:lParam]))
+				args[:st1], args[:st2] = args[:sc][:stSelStart], args[:sc][:stSelEnd]
+			end
+		end
+
+		def initialize(parent, id, opts = {}, &block)
+			super('SysMonthCal32', parent, id, opts)
+
+			@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/ProgressBar.rb

@@ -0,0 +1,40 @@
+require_relative 'Common'
+
+module Fzeet
+	module ProgressBarMethods
+		def step=(step) sendmsg(:setstep, step) end
+		def step!; sendmsg(:stepit) end
+
+		def position=(position) sendmsg(:setpos, position) end
+
+		def marquee?; @marquee end
+		def marquee=(marquee) sendmsg(:setmarquee, (@marquee = marquee) ? 1 : 0) end
+	end
+
+	class ProgressBar < Control
+		include ProgressBarMethods
+
+		Prefix = {
+			xstyle: [:ws_ex_],
+			style: [:pbs_, :ws_],
+			message: [:pbm_, :ccm_, :wm_],
+			notification: [:nm_]
+		}
+
+		def self.crackNotification(args) end
+
+		def initialize(parent, id, opts = {}, &block)
+			super('msctls_progress32', parent, id, opts)
+
+			@marquee = false
+
+			@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/Static.rb

@@ -0,0 +1,34 @@
+require_relative 'Common'
+
+module Fzeet
+	module StaticMethods
+		def clear; self.text = ''; self end
+
+		def image=(image) sendmsg(:setimage, Windows::IMAGE_BITMAP, image.handle) end
+	end
+
+	class Static < Control
+		include StaticMethods
+
+		Prefix = {
+			xstyle: [:ws_ex_],
+			style: [:ss_, :ws_],
+			message: [:stm_, :wm_],
+			notification: [:stn_]
+		}
+
+		def initialize(parent, id, opts = {}, &block)
+			super('Static', parent, id, opts)
+
+			style >> :tabstop
+
+			@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/Control/SysLink.rb

@@ -0,0 +1,40 @@
+require_relative 'Common'
+
+module Fzeet
+	module SysLinkMethods
+
+	end
+
+	class SysLink < Control
+		include SysLinkMethods
+
+		Prefix = {
+			xstyle: [:ws_ex_],
+			style: [:lws_, :ws_],
+			message: [:lm_, :ccm_, :wm_],
+			notification: [:nm_]
+		}
+
+		def self.crackNotification(args)
+			case args[:notification]
+			when Windows::NM_CLICK
+				args[:link] = Windows::NMLINK.new(FFI::Pointer.new(args[:lParam]))
+
+				args[:id] = Windows.WCSTOMBS(args[:link][:item][:szID])
+				args[:url] = Windows.WCSTOMBS(args[:link][:item][:szUrl])
+			end
+		end
+
+		def initialize(parent, id, opts = {}, &block)
+			super('SysLink', parent, id, opts)
+
+			@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

@@ -0,0 +1,32 @@
+require_relative 'Common'
+
+module Fzeet
+	module TreeViewMethods
+
+	end
+
+	class TreeView < Control
+		include TreeViewMethods
+
+		Prefix = {
+			xstyle: [:tvs_ex, :ws_ex_],
+			style: [:tvs_, :ws_],
+			message: [:tvm_, :ccm_, :wm_],
+			notification: [:tvn_, :nm_]
+		}
+
+		def self.crackNotification(args) end
+
+		def initialize(parent, id, opts = {}, &block)
+			super('SysTreeView32', parent, id, opts)
+
+			@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/UpDown.rb

@@ -0,0 +1,36 @@
+require_relative 'Common'
+
+module Fzeet
+	module UpDownMethods
+		def buddy=(buddy) sendmsg(:setbuddy, buddy.handle) end
+
+		def range=(range) sendmsg(:setrange, 0, Windows.MAKELONG(*range.reverse)) end
+
+		def position=(position) sendmsg(:setpos32, 0, position) end
+	end
+
+	class UpDown < Control
+		include UpDownMethods
+
+		Prefix = {
+			xstyle: [:ws_ex_],
+			style: [:uds_, :ws_],
+			message: [:udm_, :ccm_, :wm_],
+			notification: [:udn_, :nm_]
+		}
+
+		def self.crackNotification(args) end
+
+		def initialize(parent, id, opts = {}, &block)
+			super('msctls_updown32', parent, id, opts)
+
+			@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.rb

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

data/lib/fzeet/UIRibbon.rb

@@ -24,6 +24,9 @@ module Fzeet
 
 			def enabled?; self[Windows::UI_PKEY_Enabled].bool end
 			def enabled=(enabled) self[Windows::UI_PKEY_Enabled] = Windows::PROPVARIANT[:bool, enabled] end
+
+			def checked?; self[Windows::UI_PKEY_BooleanValue].bool end
+			def checked=(checked) self[Windows::UI_PKEY_BooleanValue] = Windows::PROPVARIANT[:bool, checked] end
 		end
 
 		def [](id) Command.new(self, id) end
@@ -99,79 +102,134 @@ module Fzeet
 			}
 		end
 
-		def initialize(window, name = Application.name, resname = 'APPLICATION_RIBBON')
+		def initialize(_window, name = Application.name, resname = 'APPLICATION_RIBBON')
+			@creates = []
+			@destroys = []
+			@sizes = []
 			@executesAllVerbs = {}
 
-			@window = window
+			@window = _window
 
-			@window.instance_variable_set(:@ribbon, self)
+			window.instance_variable_set(:@ribbon, self)
 
-			class << @window
+			class << window
 				attr_reader :ribbon
 			end
 
 			@uich = Windows::UICommandHandler.new
 
-			@uich.instance_variable_set(:@ribbon, self)
+			uich.instance_variable_set(:@ribbon, self)
 
-			class << @uich
+			class << uich
 				attr_reader :ribbon
 
-				def Execute(*args) @ribbon.execute(*args) end
+				def Execute(*args) ribbon.execute(*args); Windows::S_OK end
 			end
 
 			@uia = Windows::UIApplication.new
 
-			@uia.instance_variable_set(:@uich, @uich)
+			uia.instance_variable_set(:@uich, @uich)
+
+			class << uia
+				attr_reader :uich, :uir
+
+				def OnViewChanged(viewId, typeId, view, verb, reason)
+					return Windows::S_OK unless typeId == Windows::UI_VIEWTYPE_RIBBON
+
+					args = {
+						viewId: viewId,
+						typeId: typeId,
+						view: view,
+						verb: verb,
+						reason: reason,
+						ribbon: self,
+						sender: self
+					}
+
+					case verb
+					when Windows::UI_VIEWVERB_CREATE
+						@uir = Windows::Unknown.new(view).QueryInstance(Windows::UIRibbon)
 
-			class << @uia
-				attr_reader :uich
+						uir.instance_variable_set(:@height, 0)
 
-				def OnCreateUICommand(*args) @uich.QueryInterface(@uich.class::IID, args[-1]); Windows::S_OK end
+						class << uir
+							attr_accessor :height
+						end
+
+						uich.ribbon.instance_variable_get(:@creates).each { |handler|
+							(handler.arity == 0) ? handler.call : handler.call(args)
+						}
+					when Windows::UI_VIEWVERB_DESTROY
+						uich.ribbon.instance_variable_get(:@destroys).each { |handler|
+							(handler.arity == 0) ? handler.call : handler.call(args)
+						}
+
+						uir.Release
+					when Windows::UI_VIEWVERB_SIZE
+						FFI::MemoryPointer.new(:uint) { |p| uir.GetHeight(p); uir.height = p.read_int }
+
+						uich.ribbon.instance_variable_get(:@sizes).each { |handler|
+							(handler.arity == 0) ? handler.call : handler.call(args)
+						}
+					end
+
+					Windows::S_OK
+				rescue
+					Fzeet.message %Q{#{$!}\n\n#{$!.backtrace.join("\n")}}, icon: :error
+
+					Windows::S_OK
+				end
+
+				def OnCreateUICommand(*args) uich.QueryInterface(uich.class::IID, args[-1]); Windows::S_OK end
 			end
 
 			@uif = Windows::UIFramework.new
 
-			@uif.Initialize(@window.handle, @uia)
-			@uif.LoadUI(@hdll = Windows.LoadRibbonDll(name), "#{resname}\0".encode('utf-16le'))
+			uif.Initialize(window.handle, uia)
+			uif.LoadUI(@hdll = Windows.LoadRibbonDll(name), "#{resname}\0".encode('utf-16le'))
 
-			@window.on(:destroy) {
-				@uich.Release
-				@uia.Release
-				@uif.Destroy; @uif.Release
+			window.on(:destroy) {
+				uich.Release
+				uia.Release
+				uif.Destroy; uif.Release
 			}
 		end
 
-		attr_reader :window, :uich, :uia, :uif
+		attr_reader :hdll, :window, :uich, :uia, :uif
+
+		def height; uia.uir.height end
 
 		def execute(commandId, verb, key, value, props)
 			args = {
 				commandId: commandId,
+				verb: verb,
+				key: key,
+				value: value,
+				props: props,
 				ribbon: self,
 				sender: Command.new(self, commandId)
 			}
 
-			result = Windows::E_NOTIMPL
-
-			begin
-				if @executesAllVerbs.include?(commandId)
-					@executesAllVerbs[commandId].each { |handler|
-						(handler.arity == 0) ? handler.call : handler.call(args)
-					}
-
-					result = Windows::S_OK
-				end
-			rescue
-				Fzeet.message %Q{#{$!}\n\n#{$!.backtrace.join("\n")}}, icon: :error
+			if @executesAllVerbs.include?(commandId)
+				@executesAllVerbs[commandId].each { |handler|
+					(handler.arity == 0) ? handler.call : handler.call(args)
+				}
 			end
 
-			result
+			self
+		rescue
+			Fzeet.message %Q{#{$!}\n\n#{$!.backtrace.join("\n")}}, icon: :error
+
+			self
 		end
 
 		def on(*args, &block)
 			case args.size
 			when 1
 				case args[0]
+				when /^create$/i; @creates << block
+				when /^destroy$/i; @destroys << block
+				when /^size$/i; @sizes << block
 				when Integer; (@executesAllVerbs[args[0]] ||= []) << block
 				else raise ArgumentError
 				end
@@ -185,6 +243,8 @@ module Fzeet
 			uif.UseInstance(Windows::UIContextualUI, :GetView, id) { |view|
 				view.ShowAtLocation(x, y)
 			}
+
+			self
 		end
 	end
 end

data/lib/fzeet/Window/Common.rb

@@ -173,6 +173,7 @@ module Fzeet
 				y: Windows::CW_USEDEFAULT,
 				width: Windows::CW_USEDEFAULT,
 				height: Windows::CW_USEDEFAULT,
+				position: [],
 				parent: nil,
 				menu: nil
 			}
@@ -184,6 +185,7 @@ module Fzeet
 			_opts[:xstyle] = Fzeet.flags(_opts[:xstyle], *self.class::Prefix[:xstyle])
 			_opts[:caption] = _opts[:caption].to_s
 			_opts[:style] = Fzeet.flags(_opts[:style], *self.class::Prefix[:style])
+			_opts[:x], _opts[:y], _opts[:width], _opts[:height] = _opts[:position] unless _opts[:position].empty?
 
 			@messages ||= {}
 			@commands ||= {}
@@ -214,7 +216,7 @@ module Fzeet
 			end
 		end
 
-		attr_reader :parent
+		attr_reader :parent, :ribbon
 
 		def dispose; Windows.DestroyWindow(@handle) end
 
@@ -291,6 +293,15 @@ module Fzeet
 		end
 
 		def on(*args, &block)
+			args[0] =~ /^draw$/ and
+				return onMessage(:paint) { |_args| paint { |dc| dc.select(*args[1..-1]) {
+					case block.arity
+					when 0; block.call
+					when 1; block.call(dc)
+					else block.call(dc, _args)
+					end
+				}}}
+
 			case args.length
 			when 1; onMessage(*args, &block)
 			when 2, 3
@@ -302,5 +313,15 @@ module Fzeet
 			else raise ArgumentError
 			end
 		end
+
+		def stubNotImplementedCommands
+			Command.instance_variable_get(:@ids).each { |command, id|
+				next if @commands.find { |_id, handlers| _id == id }
+
+				on(:command, id) { message "Not Implemented (#{command})", icon: :warning }
+			}
+
+			self
+		end
 	end
 end

data/lib/fzeet/Window/View.rb

@@ -0,0 +1,15 @@
+require_relative 'Common'
+
+module Fzeet
+	View = BasicWindow['Fzeet.View',
+		style: [:hredraw, :vredraw]
+	]
+
+	class View
+		def initialize(opts = {})
+			(opts[:style] ||= []) << :overlappedwindow << :clipchildren
+
+			super
+		end
+	end
+end

data/lib/fzeet/Window/WindowMethods.rb

@@ -106,6 +106,9 @@ module Fzeet
 
 		def update; Windows.DetonateLastError(0, :UpdateWindow, @handle); self end
 
+		def focus?; Windows.GetFocus().to_i == @handle.to_i end
+		def focus=(focus) Windows.DetonateLastError(FFI::Pointer::NULL, :SetFocus, (focus) ? @handle : nil) end
+
 		def textlen; Windows.GetWindowTextLength(@handle) end
 
 		def text
@@ -120,7 +123,7 @@ module Fzeet
 			}
 		end
 
-		def text=(text) Windows.DetonateLastError(0, :SetWindowText, @handle, text) end
+		def text=(text) Windows.DetonateLastError(0, :SetWindowText, @handle, text.to_s) end
 
 		def rect; Windows.DetonateLastError(0, :GetClientRect, @handle, r = Rect.new); r end
 
@@ -147,6 +150,28 @@ module Fzeet
 		def capture?; Windows.GetCapture().to_i == @handle.to_i end
 		def capture=(capture) (capture) ? Windows.SetCapture(@handle) : Windows.DetonateLastError(0, :ReleaseCapture) end
 
+		def paint
+			hdc = Windows.DetonateLastError(FFI::Pointer::NULL, :BeginPaint, @handle, ps = Windows::PAINTSTRUCT.new)
+
+			begin
+				dc = Handle.wrap(hdc, DCMethods)
+
+				dc.instance_variable_set(:@window, self)
+
+				class << dc
+					attr_reader :window
+				end
+
+				yield dc, ps
+			ensure
+				Windows.EndPaint(@handle, ps)
+			end
+
+			self
+		end
+
+		def invalidate(rect = rect, erase = 1) Windows.DetonateLastError(0, :InvalidateRect, @handle, rect, erase); self end
+
 		def menu; (Handle.instance?(handle = Windows.GetMenu(@handle))) ? Handle.instance(handle) : nil end
 
 		def menu=(menu)