fzeet 0.6.5 → 0.6.6

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

@@ -40,4 +40,37 @@ module Fzeet
 				:iDelta, :int
 		end
 	end
+
+	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/windows/comdlg.rb

@@ -1,4 +1,5 @@
 require_relative 'comdlg/FileDialog'
+require_relative 'comdlg/ShellFileDialog' if Fzeet::Windows::Version >= :vista
 require_relative 'comdlg/FontDialog'
 require_relative 'comdlg/ColorDialog'
 require_relative 'comdlg/FindReplaceDialog'

data/lib/fzeet/windows/comdlg/ColorDialog.rb

@@ -31,4 +31,45 @@ module Fzeet
 
 		attach_function :ChooseColor, :ChooseColorA, [:pointer], :int
 	end
+
+	class ColorDialog < CommonDialog
+		DialogStruct = Windows::CHOOSECOLOR
+
+		HookProc = -> *args { CommonDialog::HookProc.(*args.unshift(DialogStruct)) }
+
+		def initialize(opts = {})
+			_opts = {
+
+			}
+			badopts = opts.keys - _opts.keys; raise "Bad option(s): #{badopts.join(', ')}." unless badopts.empty?
+			_opts.merge!(opts)
+
+			@struct = DialogStruct.new
+
+			@struct[:lStructSize] = @struct.size
+			@struct[:hInstance] = Windows.GetModuleHandle(nil)
+			@struct[:lpCustColors] = @buf = FFI::MemoryPointer.new(:ulong, 16)
+			@struct[:Flags] = Fzeet.flags(:enablehook, :cc_)
+			@struct[:lCustData] = object_id
+			@struct[:lpfnHook] = HookProc
+
+			super()
+
+			begin
+				yield self
+			ensure
+				dispose
+			end if block_given?
+		end
+
+		def dispose; @buf.free end
+
+		def show(window = Application.window)
+			@struct[:hwndOwner] = window.handle
+
+			DialogResult.new((Windows.ChooseColor(@struct) == 0) ? Windows::IDCANCEL : Windows::IDOK)
+		end
+
+		def color; result = @struct[:rgbResult]; [Windows.GetRValue(result), Windows.GetBValue(result), Windows.GetBValue(result)] end
+	end
 end

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

@@ -1,5 +1,6 @@
 require_relative '../user'
 require_relative '../com'
+require_relative '../shell'
 
 module Fzeet
 	module Windows
@@ -42,4 +43,90 @@ module Fzeet
 		CD_LBSELSUB = 1
 		CD_LBSELADD = 2
 	end
+
+	class CommonDialog < Handle
+		include WindowMethods
+
+		HookProc = -> klass, hwnd, uMsg, wParam, lParam {
+			begin
+				if klass == Windows::BROWSEINFO
+					if uMsg == Windows::BFFM_IUNKNOWN
+						instance = ObjectSpace._id2ref(lParam)
+
+						if @@instances.include?(hwnd.to_i)
+							@@instances.delete(hwnd.to_i)
+						else
+							@@instances[hwnd.to_i] = instance
+
+							@@instances[hwnd.to_i].instance_variable_set(:@handle, hwnd)
+						end
+					end
+				else
+					if uMsg == Windows::WM_INITDIALOG
+						@@instances[hwnd.to_i] = ObjectSpace._id2ref(
+							klass.new(FFI::Pointer.new(lParam))[:lCustData].to_i
+						)
+
+						@@instances[hwnd.to_i].instance_variable_set(:@handle, hwnd)
+					end
+				end
+
+				result = @@instances[hwnd.to_i].hookProc(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.delete(hwnd.to_i)
+				end
+			end
+
+			result || 0
+		}
+
+		def self.crackMessage(hwnd, uMsg, wParam, lParam)
+			window = @@instances[hwnd.to_i]
+
+			args = {
+				hwnd: hwnd,
+				uMsg: uMsg,
+				wParam: wParam,
+				lParam: lParam,
+				result: 0,
+				window: window,
+				sender: window
+			}
+
+			args
+		end
+
+		def initialize
+			@messages = {}
+		end
+
+		attr_reader :struct
+
+		def hookProc(hwnd, uMsg, wParam, lParam)
+			args, result = nil, nil
+
+			if (handlers = @messages[uMsg])
+				args ||= self.class.crackMessage(hwnd, uMsg, wParam, lParam)
+
+				handlers.each { |handler|
+					(handler.arity == 0) ? handler.call : handler.call(args)
+
+					result = args[:result]
+				}
+			end
+
+			result
+		end
+
+		def on(msg, &block)
+			(@messages[Fzeet.constant(msg, :wm_)] ||= []) << block
+
+			self
+		end
+	end
 end

data/lib/fzeet/windows/comdlg/FileDialog.rb

@@ -104,4 +104,137 @@ module Fzeet
 				:pidl, :pointer
 		end
 	end
+
+	class FileDialog < CommonDialog
+		DialogStruct = Windows::OPENFILENAME
+
+		HookProc = -> *args { CommonDialog::HookProc.(*args.unshift(DialogStruct)) }
+
+		def initialize(opts = {})
+			_opts = {
+				filter: nil,
+				customFilter: nil,
+				filterIndex: 0,
+				fileTitle: nil,
+				initialDir: nil,
+				title: nil,
+				flags: 0,
+				fileExtension: nil,
+				defExt: nil,
+				custData: 0,
+				hook: nil,
+				templateName: nil,
+				xflags: 0
+			}
+			badopts = opts.keys - _opts.keys; raise "Bad option(s): #{badopts.join(', ')}." unless badopts.empty?
+			_opts.merge!(opts)
+
+			@struct = DialogStruct.new
+
+			@struct[:lStructSize] = @struct.size
+			@struct[:hInstance] = Windows.GetModuleHandle(nil)
+			@struct[:lpstrFile] = @buf = FFI::MemoryPointer.new(:char, 4096)
+			@struct[:nMaxFile] = @buf.size
+			@struct[:Flags] = Fzeet.flags([:enablehook, :explorer, :enablesizing, :overwriteprompt] + [*_opts[:flags]], :ofn_)
+			@struct[:lCustData] = object_id
+			@struct[:lpfnHook] = HookProc
+
+			super()
+
+			begin
+				yield self
+			ensure
+				dispose
+			end if block_given?
+		end
+
+		def dispose; @buf.free end
+
+		def path; @buf.read_string end
+	end
+
+	class FileOpenDialog < FileDialog
+		def show(window = Application.window)
+			@struct[:hwndOwner] = window.handle
+
+			DialogResult.new((Windows.GetOpenFileName(@struct) == 0) ? Windows::IDCANCEL : Windows::IDOK)
+		end
+
+		def paths
+			return [path] if
+				(path = @buf.read_string).length + 1 != @struct[:nFileOffset]
+
+			result, tip = [], path.length + 1
+
+			until @buf.get_bytes(tip, 2) == "\0\0"
+				result << (name = @buf.get_string(tip))
+
+				tip += name.length + 1
+			end
+
+			result.map! { |name| "#{path}\\#{name}" }
+		end
+
+		def multiselect=(multiselect)
+			(multiselect) ?
+				@struct[:Flags] |= Windows::OFN_ALLOWMULTISELECT :
+				@struct[:Flags] &= ~Windows::OFN_ALLOWMULTISELECT
+		end
+	end
+
+	class FileSaveDialog < FileDialog
+		def show(window = Application.window)
+			@struct[:hwndOwner] = window.handle
+
+			DialogResult.new((Windows.GetSaveFileName(@struct) == 0) ? Windows::IDCANCEL : Windows::IDOK)
+		end
+	end
+
+	class FolderDialog < CommonDialog
+		DialogStruct = Windows::BROWSEINFO
+
+		HookProc = -> *args { CommonDialog::HookProc.(*args.unshift(DialogStruct)) }
+
+		def initialize(opts = {})
+			_opts = {
+				root: nil,
+				displayName: nil,
+				title: nil,
+				flags: 0,
+				hook: nil,
+				param: 0,
+				image: 0
+			}
+			badopts = opts.keys - _opts.keys; raise "Bad option(s): #{badopts.join(', ')}." unless badopts.empty?
+			_opts.merge!(opts)
+
+			@struct = DialogStruct.new
+
+			@struct[:ulFlags] = Fzeet.flags([:returnonlyfsdirs, :usenewui], :bif_)
+			@struct[:lpfn] = HookProc
+			@struct[:lParam] = object_id
+
+			super()
+		end
+
+		def path; @path && @path.dup end
+
+		def show(window = Application.window)
+			@struct[:hwndOwner] = window.handle
+
+			@path = nil
+
+			DialogResult.new(((pidl = Windows.SHBrowseForFolder(@struct)).null?) ? Windows::IDCANCEL : Windows::IDOK).tap { |result|
+				next unless result.ok?
+
+				FFI::MemoryPointer.new(:char, 4096) { |p|
+					Windows.SHGetPathFromIDList(pidl, p)
+
+					@path = p.read_string
+				}
+			}
+		ensure
+			Windows.CoTaskMemFree(pidl)
+		end
+	end
 end

data/lib/fzeet/windows/comdlg/FindReplaceDialog.rb

@@ -47,4 +47,106 @@ module Fzeet
 		attach_function :FindText, :FindTextA, [:pointer], :pointer
 		attach_function :ReplaceText, :ReplaceTextA, [:pointer], :pointer
 	end
+
+	class FindReplaceDialog < CommonDialog
+		DialogStruct = Windows::FINDREPLACE
+
+		HookProc = -> *args { CommonDialog::HookProc.(*args.unshift(DialogStruct)) }
+
+		Message = Windows.DetonateLastError(0, :RegisterWindowMessage, Windows::FINDMSGSTRING)
+
+		def initialize(opts = {})
+			_opts = {
+
+			}
+			badopts = opts.keys - _opts.keys; raise "Bad option(s): #{badopts.join(', ')}." unless badopts.empty?
+			_opts.merge!(opts)
+
+			@frNotifies = {}
+
+			@struct = DialogStruct.new
+
+			@struct[:lStructSize] = @struct.size
+			@struct[:hInstance] = Windows.GetModuleHandle(nil)
+			@struct[:Flags] = Fzeet.flags(:enablehook, :fr_)
+			@struct[:lpstrFindWhat] = @findbuf = FFI::MemoryPointer.new(:char, 4096)
+			@struct[:lpstrReplaceWith] = @replacebuf = FFI::MemoryPointer.new(:char, 4096)
+			@struct[:wFindWhatLen] = @findbuf.size
+			@struct[:wReplaceWithLen] = @replacebuf.size
+			@struct[:lCustData] = object_id
+			@struct[:lpfnHook] = HookProc
+
+			super()
+		end
+
+		def dispose; [@findbuf, @replacebuf].each(&:free) end
+
+		def findWhat; @findbuf.read_string end
+		def replaceWith; @replacebuf.read_string end
+
+		def frProc(args)
+			return unless args[:lParam] == @struct.pointer.address
+
+			(handlers = @frNotifies[:all]) and handlers.each { |handler|
+				(handler.arity == 0) ? handler.call : handler.call(args)
+			}
+
+			if @struct[:Flags] & Windows::FR_DIALOGTERM != 0
+				(handlers = @frNotifies[Windows::FR_DIALOGTERM]) and handlers.each { |handler|
+					(handler.arity == 0) ? handler.call : handler.call(args)
+				}
+
+				self.dialog = false
+
+				dispose
+			elsif @struct[:Flags] & Windows::FR_FINDNEXT != 0
+				(handlers = @frNotifies[Windows::FR_FINDNEXT]) and handlers.each { |handler|
+					(handler.arity == 0) ? handler.call : handler.call(args)
+				}
+			elsif @struct[:Flags] & Windows::FR_REPLACE != 0
+				(handlers = @frNotifies[Windows::FR_REPLACE]) and handlers.each { |handler|
+					(handler.arity == 0) ? handler.call : handler.call(args)
+				}
+			elsif @struct[:Flags] & Windows::FR_REPLACEALL != 0
+				(handlers = @frNotifies[Windows::FR_REPLACEALL]) and handlers.each { |handler|
+					(handler.arity == 0) ? handler.call : handler.call(args)
+				}
+			end
+		end
+
+		def onNotify(notification, &block)
+			notification = Fzeet.constant(notification, :fr_) unless
+				notification.kind_of?(Integer) || notification == :all
+
+			(@frNotifies[notification] ||= []) << block
+
+			self
+		end
+	end
+
+	class FindDialog < FindReplaceDialog
+		def show(window = Application.window)
+			@struct[:hwndOwner] = window.handle
+			@handle = Windows.DetonateLastError(FFI::Pointer::NULL, :FindText, @struct)
+
+			self.dialog = true
+
+			window.on(FindReplaceDialog::Message, &method(:frProc))
+
+			self
+		end
+	end
+
+	class ReplaceDialog < FindReplaceDialog
+		def show(window = Application.window)
+			@struct[:hwndOwner] = window.handle
+			@handle = Windows.DetonateLastError(FFI::Pointer::NULL, :ReplaceText, @struct)
+
+			self.dialog = true
+
+			window.on(FindReplaceDialog::Message, &method(:frProc))
+
+			self
+		end
+	end
 end

data/lib/fzeet/windows/comdlg/FontDialog.rb

@@ -75,4 +75,40 @@ module Fzeet
 		WM_CHOOSEFONT_SETLOGFONT = WM_USER + 101
 		WM_CHOOSEFONT_SETFLAGS = WM_USER + 102
 	end
+
+	class FontDialog < CommonDialog
+		DialogStruct = Windows::CHOOSEFONT
+
+		HookProc = -> *args { CommonDialog::HookProc.(*args.unshift(DialogStruct)) }
+
+		def initialize(opts = {})
+			_opts = {
+				font: Control::Font,
+				color: 0
+			}
+			badopts = opts.keys - _opts.keys; raise "Bad option(s): #{badopts.join(', ')}." unless badopts.empty?
+			_opts.merge!(opts)
+
+			@struct = DialogStruct.new
+
+			@struct[:lStructSize] = @struct.size
+			@struct[:hInstance] = Windows.GetModuleHandle(nil)
+			@struct[:lpLogFont] = _opts[:font].logfont.pointer
+			@struct[:Flags] = Fzeet.flags([:enablehook, :both, :inittologfontstruct, :effects], :cf_)
+			@struct[:rgbColors] = _opts[:color]
+			@struct[:lCustData] = object_id
+			@struct[:lpfnHook] = HookProc
+
+			super()
+		end
+
+		def show(window = Application.window)
+			@struct[:hwndOwner] = window.handle
+
+			DialogResult.new((Windows.ChooseFont(@struct) == 0) ? Windows::IDCANCEL : Windows::IDOK)
+		end
+
+		def font; IndirectFont.new(Windows::LOGFONT.new(@struct[:lpLogFont])) end
+		def color; @struct[:rgbColors] end
+	end
 end