fzeet 0.6.5 → 0.6.6

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

@@ -251,7 +251,7 @@ module Fzeet
 				:iSubItem, :int,
 				:iImage, :int,
 				:iOrder, :int,
-				(WINVER.AtLeastWindowsVista?) ? [
+				(Version >= :vista) ? [
 					:cxMin, :int,
 					:cxDefault, :int,
 					:cxIdeal, :int
@@ -290,12 +290,12 @@ module Fzeet
 				:iImage, :int,
 				:lParam, :long,
 				:iIndent, :int,
-				(WINVER.AtLeastWindowsXP?) ? [
+				(Version >= :xp) ? [
 					:iGroupId, :int,
 					:cColumns, :uint,
 					:puColumns, :pointer,
 				] : nil,
-				(WINVER.AtLeastWindowsVista?) ? [
+				(Version >= :vista) ? [
 					:piColFmt, :pointer,
 					:iGroup, :int
 				] : nil
@@ -314,4 +314,134 @@ module Fzeet
 				:lParam, :long,
 		end
 	end
+
+	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
+
+		class Item
+			def initialize(lvi) @subitems = [lvi] end
+
+			attr_reader :subitems
+		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
+				@items << Item.new(lvi)
+
+				lvi[:mask] |= Windows::LVIF_PARAM
+				lvi[:lParam] = @items[i].object_id
+
+				sendmsg(:insertitem, 0, lvi.pointer)
+			else
+				@items[i].subitems << lvi
+
+				sendmsg(:setitem, 0, lvi.pointer)
+			end
+
+			@items[i].subitems[j].instance_variable_set(:@text, text)
+
+			class << @items[i].subitems[j]
+				attr_reader :text
+			end
+
+			self
+		ensure
+			ptext.free if ptext
+		end
+
+		def sort(j = 0)
+			sendmsg(:sortitems, j,
+				FFI::Function.new(:int, [:long, :long, :long], convention: :stdcall) { |lParam1, lParam2, lParamSort|
+					yield ObjectSpace._id2ref(lParam1).subitems[lParamSort], ObjectSpace._id2ref(lParam2).subitems[lParamSort], j
+				}
+			)
+
+			self
+		end
+
+		def clear; sendmsg(:deleteallitems); self 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)
+			case args[:notification]
+			when Windows::LVN_COLUMNCLICK
+				args[:nmlv] = Windows::NMLISTVIEW.new(FFI::Pointer.new(args[:lParam]))
+				args[:index] = args[:nmlv][:iSubItem]
+			end
+		end
+
+		def initialize(parent, id, opts = {}, &block)
+			super('SysListView32', parent, id, opts)
+
+			@header = Handle.wrap(FFI::Pointer.new(sendmsg(:getheader)), WindowMethods, HeaderMethods)
+
+			@items = []
+
+			@parent.on(:notify, @id, &block) if block
+		end
+
+		attr_reader :header, :items
+
+		def on(notification, &block)
+			@parent.on(:notify, @id, Fzeet.constant(notification, *self.class::Prefix[:notification]), &block)
+
+			self
+		end
+	end
 end

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

@@ -59,4 +59,39 @@ module Fzeet
 				:stSelEnd, SYSTEMTIME
 		end
 	end
+
+	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/windows/comctl/ProgressBar.rb

@@ -28,4 +28,41 @@ module Fzeet
 		PBST_ERROR = 0x0002
 		PBST_PAUSED = 0x0003
 	end
+
+	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/windows/comctl/PropertySheet.rb

@@ -41,10 +41,10 @@ module Fzeet
 				:pcRefParent, :pointer,
 				:pszHeaderTitle, :pointer,
 				:pszHeaderSubTitle, :pointer,
-				(WINVER.AtLeastWindowsXP?) ? [
+				(Version >= :xp) ? [
 					:hActCtx, :pointer
 				] : nil,
-				(WINVER.AtLeastWindowsVista?) ? [
+				(Version >= :vista) ? [
 					:header, Class.new(FFI::Union) {
 						layout \
 							:hbmHeader, :pointer,
@@ -202,4 +202,52 @@ module Fzeet
 		PSNRET_INVALID_NOCHANGEPAGE = 2
 		PSNRET_MESSAGEHANDLED = 3
 	end
+
+	class PropertyPage
+		class PROPSHEETPAGEA1 < FFI::Struct
+			layout \
+				:array, [Windows::PROPSHEETPAGE, 1]
+		end
+
+		def initialize
+
+		end
+	end
+
+	class PropertySheet
+		def initialize(parent, opts = {wizard: false})
+			pointers = []
+
+			psps = PropertyPage::PROPSHEETPAGEA1.new
+
+			dt = Windows::DLGTEMPLATE.new
+
+			dt[:style] = Fzeet.flags([:'3dlook', :control, :child, :tabstop], :ds_, :ws_)
+			dt[:x], dt[:y], dt[:cx], dt[:cy] = 100, 100, 300, 150
+
+			psp = psps[:array][0]
+
+			psp[:dwSize] = psp.size
+			psp[:dwFlags] = Fzeet.flags([:dlgindirect, :usetitle], :psp_)
+			psp[:hInstance] = Windows.GetModuleHandle(nil)
+			psp[:template][:pResource] = dt
+			psp[:pszTitle] = pointers.push(FFI::MemoryPointer.from_string("Page")).last
+
+			psh = Windows::PROPSHEETHEADER.new
+
+			psh[:dwSize] = psh.size
+			psh[:dwFlags] = Fzeet.flags(:propsheetpage, :psh_)
+			psh[:dwFlags] |= Windows::PSH_WIZARD if opts[:wizard]
+			psh[:hwndParent] = parent.handle
+			psh[:hInstance] = Windows.GetModuleHandle(nil)
+			psh[:pszCaption] = pointers.push(FFI::MemoryPointer.from_string('Sheet')).last
+			psh[:nPages] = 1
+			psh[:start][:nStartPage] = 0
+			psh[:pages][:ppsp] = psps
+
+			Windows.DetonateLastError(-1, :PropertySheet, psh)
+		ensure
+			pointers.each(&:free)
+		end
+	end
 end

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

@@ -31,4 +31,41 @@ module Fzeet
 				:item, LITEM
 		end
 	end
+
+	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/windows/comctl/Tab.rb

@@ -85,4 +85,60 @@ module Fzeet
 				:lParam, :long
 		end
 	end
+
+	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/windows/comctl/TreeView.rb

@@ -157,12 +157,12 @@ module Fzeet
 				:cChildren, :int,
 				:lParam, :long,
 				:iIntegral, :int,
-				(WINVER.AtLeastWindowsVista?) ? [
+				(Version >= :vista) ? [
 					:uStateEx, :uint,
 					:hwnd, :pointer,
 					:iExpandedImage, :int
 				] : nil,
-				(WINVER.AtLeastWindows7?) ? [
+				(Version >= 7) ? [
 					:iReserved, :int
 				] : nil
 			].flatten.compact
@@ -195,4 +195,83 @@ module Fzeet
 				:ptDrag, POINT
 		end
 	end
+
+	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
+		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