fzeet 0.6.0 → 0.6.1

data/examples/Dialog/ColorDialog.rbw

@@ -0,0 +1,21 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.run { |window|
+	dialog = ColorDialog.new
+
+	dialog.on(:initdialog) { message 'on(:initdialog)' }
+
+	window.menu = Menu.new.
+		append(:popup, '&View', PopupMenu.new.
+			append(:string, '&Color...', :color)
+		)
+
+	window.
+		on(:command, :color) {
+			message dialog.color if dialog.show.ok?
+		}.
+
+		on(:destroy) { dialog.dispose }
+}

data/examples/Dialog/FileDialog.rbw

@@ -0,0 +1,47 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.run { |window|
+	window.menu = Menu.new.
+		append(:popup, '&File', PopupMenu.new.
+			append(:string, '&Open...', :open).
+			append(:string, 'Open &Multiple...', :openMultiple).
+			append(:string, 'Save &As...', :saveAs).
+
+			append(:separator).
+
+			append(:string, 'Browse For &Folder...', :browseForFolder)
+		)
+
+	window.
+		on(:command, :open) {
+			FileOpenDialog.new { |dialog|
+				dialog.on(:initdialog) { message 'on(:initdialog)' }
+
+				message dialog.path if dialog.show.ok?
+			}
+		}.
+
+		on(:command, :openMultiple) {
+			FileOpenDialog.new(flags: :allowmultiselect) { |dialog|
+				message dialog.paths.join("\n") if dialog.show.ok?
+			}
+		}.
+
+		on(:command, :saveAs) {
+			FileSaveDialog.new { |dialog|
+				dialog.on(:initdialog) { message 'on(:initdialog)' }
+
+				message dialog.path if dialog.show.ok?
+			}
+		}.
+
+		on(:command, :browseForFolder) {
+			dialog = FolderDialog.new
+
+			dialog.on(Windows::BFFM_IUNKNOWN) { message 'Windows::BFFM_IUNKNOWN' }
+
+			message dialog.path if dialog.show.ok?
+		}
+}

data/examples/Dialog/FindReplaceDialog.rbw

@@ -0,0 +1,38 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.run { |window|
+	window.menu = Menu.new.
+		append(:popup, '&Edit', PopupMenu.new.
+			append(:string, '&Find...', :find).
+			append(:string, '&Replace...', :replace)
+		)
+
+	window.
+		on(:command, :find) {
+			dialog = FindDialog.new
+
+			dialog.on(:initdialog) { |args| message 'on(:initdialog)'; args[:result] = 1 }
+
+			dialog.show.
+				onNotify(:findnext) { message "on(:findnext) - #{dialog.findWhat}" }.
+				onNotify(:dialogterm) { [:find, :replace].each { |id| window.menu[id].enabled = true } }
+
+			[:find, :replace].each { |id| window.menu[id].enabled = false }
+		}.
+
+		on(:command, :replace) {
+			dialog = ReplaceDialog.new
+
+			dialog.on(:initdialog) { |args| message 'on(:initdialog)'; args[:result] = 1 }
+
+			dialog.show.
+				onNotify(:findnext) { message "on(:findnext) - #{dialog.findWhat}" }.
+				onNotify(:replace) { message "on(:replace) - #{dialog.findWhat} with #{dialog.replaceWith}" }.
+				onNotify(:replaceall) { message "on(:replaceall) - #{dialog.findWhat} with #{dialog.replaceWith}" }.
+				onNotify(:dialogterm) { [:find, :replace].each { |id| window.menu[id].enabled = true } }
+
+			[:find, :replace].each { |id| window.menu[id].enabled = false }
+		}
+}

data/examples/Dialog/FontDialog.rbw

@@ -0,0 +1,33 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.run(View.new) { |window|
+	font = IndirectFont.new(Control::Font.logfont)
+	color = 0
+
+	window.menu = Menu.new.
+		append(:popup, '&View', PopupMenu.new.
+			append(:string, '&Font...', :font)
+		)
+
+	window.
+		on(:command, :font) {
+			dialog = FontDialog.new(font: font, color: color)
+
+			dialog.on(:initdialog) { message 'on(:initdialog)' }
+
+			next unless dialog.show.ok?
+
+			font.dispose; font = dialog.font; color = dialog.color
+
+			window.invalidate
+		}.
+
+		on(:paint) { window.paint { |dc| dc.select(font) {
+			dc.color = color
+			dc.sms 'The quick brown fox jumps over the lazy dog. 1234567890'
+		}}}.
+
+		on(:destroy) { font.dispose }
+}

data/examples/Dialog/PrintDialog.rbw

@@ -0,0 +1,31 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.run { |window|
+	window.menu = Menu.new.
+		append(:popup, '&File', PopupMenu.new.
+			append(:string, 'Page Set&up...', :pageSetup).
+			append(:string, '&Print...', :print).
+			append(:string, 'P&rint1...', :print1)
+		)
+
+	window.
+		on(:command, :pageSetup) {
+			dialog = PageSetupDialog.new
+
+			message dialog.show.ok?
+		}.
+
+		on(:command, :print) {
+			dialog = PrintDialog.new
+
+			message dialog.show.ok?
+		}.
+
+		on(:command, :print1) {
+			dialog = PrintDialogEx.new
+
+			message dialog.show.ok?
+		}
+}

data/examples/Dialog/ShellFileDialog.rbw

@@ -0,0 +1,43 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.run { |window|
+	window.menu = Menu.new.
+		append(:popup, '&File', PopupMenu.new.
+			append(:string, '&Open...', :open).
+			append(:string, 'Open &Multiple...', :openMultiple).
+			append(:string, 'Save &As...', :saveAs).
+
+			append(:separator).
+
+			append(:string, 'Select &Folder...', :selectFolder)
+		)
+
+	window.
+		on(:command, :open) {
+			ShellFileOpenDialog.new { |dialog|
+				message dialog.path if dialog.show.ok?
+			}
+		}.
+
+		on(:command, :openMultiple) {
+			ShellFileOpenDialog.new { |dialog|
+				dialog.SetOptions(Windows::FOS_ALLOWMULTISELECT)
+
+				message dialog.paths.join("\n") if dialog.show.ok?
+			}
+		}.
+
+		on(:command, :saveAs) {
+			ShellFileSaveDialog.new { |dialog|
+				message dialog.path if dialog.show.ok?
+			}
+		}.
+
+		on(:command, :selectFolder) {
+			ShellFolderDialog.new { |dialog|
+				message dialog.path if dialog.show.ok?
+			}
+		}
+}

data/examples/Version.rbw

@@ -2,4 +2,8 @@ require 'fzeet'
 
 include Fzeet
 
-message Windows::WINVER
+message <<-MSG
+Ruby #{RUBY_VERSION}-p#{RUBY_PATCHLEVEL}
+
+Windows #{Windows::WINVER}
+MSG

data/lib/fzeet/Common.rb

@@ -166,7 +166,7 @@ module Fzeet
 		@@instances = {}
 
 		def self.instance?(handle) @@instances.include?(handle.to_i) end
-		def self.instance(handle) raise "#{self}.instance failed." unless (instance = @@instances[handle.to_i]); instance end
+		def self.instance(handle) raise "#{self}.#{__method__} failed." unless (instance = @@instances[handle.to_i]); instance end
 
 		def self.wrap(handle, iface)
 			Object.new.tap { |o|
@@ -180,6 +180,8 @@ module Fzeet
 
 		def attach; @@instances[@handle.to_i] = self end
 		def detach; @@instances.delete(@handle.to_i) end
+
+		def dup; raise "#{self}.#{__method__} is not implemented." end
 	end
 
 	def using(o, cleanup = :dispose)
@@ -294,6 +296,9 @@ module Fzeet
 			holds.each { |hold| Windows.SelectObject(@handle, hold) }
 		end
 
+		def color; Windows.GetTextColor(@handle) end
+		def color=(color) Windows.SetTextColor(@handle, color) end
+
 		def fillRect(rect, brush) Windows.DetonateLastError(0, :FillRect, @handle, rect, brush.handle); self end
 
 		def text(text, rect, flags = 0) Windows.DetonateLastError(0, :DrawText, @handle, text, -1, rect, Fzeet.flags(flags, :dt_)); self end

data/lib/fzeet/Dialog/ColorDialog.rb

@@ -0,0 +1,44 @@
+require_relative 'Common'
+
+module Fzeet
+	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/Dialog/Common.rb

@@ -1,5 +1,89 @@
 require_relative '../Window/Dialog'
 
 module Fzeet
+	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/Dialog/FileDialog.rb

@@ -1,7 +1,11 @@
 require_relative 'Common'
 
 module Fzeet
-	class FileDialog
+	class FileDialog < CommonDialog
+		DialogStruct = Windows::OPENFILENAME
+
+		HookProc = -> *args { CommonDialog::HookProc.(*args.unshift(DialogStruct)) }
+
 		def initialize(opts = {})
 			_opts = {
 				filter: nil,
@@ -21,54 +25,106 @@ module Fzeet
 			badopts = opts.keys - _opts.keys; raise "Bad option(s): #{badopts.join(', ')}." unless badopts.empty?
 			_opts.merge!(opts)
 
-			@ofn = Windows::OPENFILENAME.new
+			@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] + [*_opts[:flags]], :ofn_)
+			@struct[:lCustData] = object_id
+			@struct[:lpfnHook] = HookProc
 
-			@ofn[:lStructSize] = @ofn.size
-			@ofn[:hInstance] = Windows.GetModuleHandle(nil)
+			super()
+
+			begin
+				yield self
+			ensure
+				dispose
+			end if block_given?
 		end
 
-		attr_reader :ofn
+		def dispose; @buf.free end
 
-		def path; @path && @path.dup end
+		def path; @buf.read_string end
 	end
 
-	class OpenFileDialog < FileDialog
-		def initialize(opts = {})
-			super
+	class FileOpenDialog < FileDialog
+		def show(window = Application.window)
+			@struct[:hwndOwner] = window.handle
+
+			DialogResult.new((Windows.GetOpenFileName(@struct) == 0) ? Windows::IDCANCEL : Windows::IDOK)
 		end
 
-		def show(window = Application.window)
-			ofn[:hwndOwner] = window.handle
-			ofn[:nMaxFile] = 4096
-			ofn[:lpstrFile] = path = FFI::MemoryPointer.new(:char, ofn[:nMaxFile])
+		def paths
+			return [path] if
+				(path = @buf.read_string).length + 1 != @struct[:nFileOffset]
 
-			@path = nil
+			result, tip = [], path.length + 1
 
-			DialogResult.new((Windows.GetOpenFileName(ofn) == 0) ? Windows::IDCANCEL : Windows::IDOK).tap { |result|
-				@path = ofn[:lpstrFile].read_string if result.ok?
-			}
-		ensure
-			path.free
+			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
 	end
 
-	class SaveFileDialog < FileDialog
+	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 = {})
-			super
+			_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)
-			ofn[:hwndOwner] = window.handle
-			ofn[:nMaxFile] = 4096
-			ofn[:lpstrFile] = path = FFI::MemoryPointer.new(:char, ofn[:nMaxFile])
+			@struct[:hwndOwner] = window.handle
 
 			@path = nil
 
-			DialogResult.new((Windows.GetSaveFileName(ofn) == 0) ? Windows::IDCANCEL : Windows::IDOK).tap { |result|
-				@path = ofn[:lpstrFile].read_string if result.ok?
+			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
-			path.free
+			Windows.CoTaskMemFree(pidl)
 		end
 	end
 end

data/lib/fzeet/Dialog/FindReplaceDialog.rb

@@ -0,0 +1,105 @@
+require_relative 'Common'
+
+module Fzeet
+	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/Dialog/FontDialog.rb

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