vruby 2004.08.07

data/lib/vr/contrib/vrctlcolor.rb

@@ -0,0 +1,110 @@
+###############################
+#
+# contrib/vrctlcolor.rb
+#
+# These modules/classes are contributed by Shigitani-san.
+# Modified by nyasu <nyasu@osk.3web.ne.jp>
+# Distributed at http://www.threeweb.ad.jp/~nyasu/software/vrproject.html
+#
+###############################
+
+=begin
+=== VRCtlColor 
+  VisualuRuby �ɂ����āAWM_CTLCOLOR ���������郂�W���[���B
+
+=== Methods
+--- addCtlColor(ctl)
+  WM_CTLCOLOR ���󂯎�����Ƃ��ɏ�������Ώۂ̃R���g���[����o�^����B
+  �Ȃ��A�o�^����Ƃ��� ctl �ɂ� setTextColor, setBkColor �� 2 �‚̓��ك��\�b�h
+  ���lj�����܂��B
+
+--- setTextColor(ctl, textcolor)
+--- setBkColor(ctl, bkcolor)
+  �o�^�����R���g���[���̃e�L�X�g�F�A�w�i�F��ݒ肷��B�o�^����Ă��Ȃ��R���g
+  ���[�����w�肵���ꍇ�͉������Ȃ��B
+
+--- ctl.setTextColor(textcolor)
+--- ctl.setBkColor(bkcolor)
+  addCtlColor �Œlj����ꂽ���ك��\�b�h�B�R���g���[���̃e�L�X�g�F�A�w�i�F��ݒ�
+  ����B
+=end
+
+module WMsg
+  WM_CTLCOLORMSGBOX = 0x0132
+  WM_CTLCOLOREDIT = 0x0133
+  WM_CTLCOLORLISTBOX = 0x0134
+  WM_CTLCOLORBTN = 0x0135
+  WM_CTLCOLORDLG = 0x0136
+  WM_CTLCOLORSCROLLBAR = 0x0137
+  WM_CTLCOLORSTATIC = 0x0138
+end
+
+module VRCtlColor
+
+  include VRMessageHandler
+
+  def vrctlcolorinit
+    @win32_getBkColor = Win32API.new('gdi32.dll', 'GetBkColor', 'I', 'I')
+    @win32_setBkColor = Win32API.new('gdi32.dll', 'SetBkColor', 'II', 'I')
+    @win32_setTextColor = Win32API.new('gdi32.dll', 'SetTextColor', 'II', 'I')
+    @win32_createSolidBrush = Win32API.new('gdi32.dll', 'CreateSolidBrush', 'I', 'I')
+    @win32_deleteObject = Win32API.new('gdi32.dll', 'DeleteObject', 'I', 'I')
+
+    @_vrctlcolor = Hash.new
+    @_vrctlcolor_brush = Hash.new
+
+    msgs = [ WMsg::WM_CTLCOLORMSGBOX, WMsg::WM_CTLCOLOREDIT, WMsg::WM_CTLCOLORLISTBOX,
+             WMsg::WM_CTLCOLORBTN,    WMsg::WM_CTLCOLORDLG,  WMsg::WM_CTLCOLORSCROLLBAR,
+             WMsg::WM_CTLCOLORSTATIC ]
+    msgs.each {|msg| addHandler(msg, 'ctlcolor', MSGTYPE::ARGINTINT, nil) }
+    acceptEvents(msgs)
+    addHandler WMsg::WM_DESTROY,"_vrdestroy",MSGTYPE::ARGNONE,nil
+    acceptEvents [WMsg::WM_DESTROY]
+  end
+
+  def vrinit
+    super
+    vrctlcolorinit
+  end
+
+  def addCtlColor(ctl)
+    @_vrctlcolor[ctl.hWnd] = [nil, nil]
+    def ctl.setTextColor(textcolor)
+      parent.setTextColor(self, textcolor)
+    end
+    def ctl.setBkColor(bkcolor)
+      parent.setBkColor(self, bkcolor)
+    end
+  end
+
+  def setTextColor(ctl, textcolor)
+    return unless @_vrctlcolor.has_key?(ctl.hWnd)
+    @_vrctlcolor[ctl.hWnd][0] = textcolor
+  end
+
+  def setBkColor(ctl, bkcolor)
+    return unless @_vrctlcolor.has_key?(ctl.hWnd)
+    @_vrctlcolor[ctl.hWnd][1] = bkcolor
+  end
+
+  def self_ctlcolor(hDC, hWnd)
+    return nil unless @_vrctlcolor.has_key?(hWnd)
+    textcolor, bkcolor = @_vrctlcolor[hWnd]
+    @win32_setTextColor.call(hDC, textcolor) unless textcolor.nil?
+    bkcolor = @win32_getBkColor.call(hDC) if bkcolor.nil?
+    @win32_setBkColor.call(hDC, bkcolor)
+    SKIP_DEFAULTHANDLER[get_brush(bkcolor)]
+  end
+
+  def get_brush(bkcolor)
+    unless @_vrctlcolor_brush.has_key?(bkcolor) then
+      @_vrctlcolor_brush[bkcolor] = @win32_createSolidBrush.call(bkcolor)
+    end
+    @_vrctlcolor_brush[bkcolor]
+  end
+
+  def self__vrdestroy
+    @_vrctlcolor_brush.values.each {|brush| @win32_deleteObject.call(brush) }
+  end
+
+end

data/lib/vr/contrib/vrhotkey.rb

@@ -0,0 +1,35 @@
+###############################
+#
+# contrib/vrhotkey.rb
+#
+# These modules/classes are contributed by Yuya-san.
+# Modified by nyasu <nyasu@osk.3web.ne.jp>
+# Distributed at http://www.threeweb.ad.jp/~nyasu/software/vrproject.html
+#
+###############################
+
+
+#====================================================================#
+# WConst Module
+module WConst
+  WM_HOTKEY = 786
+end
+
+#====================================================================#
+# VRHotKey Module
+module VRHotKey
+
+  #==================================================================#
+  # Instance Methods
+
+  def vrinit
+    super
+    self.addHandler(WConst::WM_HOTKEY, 'hotkey', MSGTYPE::ARGWINT, nil)
+    self.addEvent(WConst::WM_HOTKEY)
+  end
+
+end
+
+#====================================================================#
+# End of source.
+#====================================================================#

data/lib/vr/contrib/vrlistviewex.rb

@@ -0,0 +1,71 @@
+###############################
+#
+# contrib/vrlistviewex.rb
+#
+# These modules/classes are contributed by Yuya-san.
+# Modified by nyasu <nyasu@osk.3web.ne.jp>
+# Distributed at http://www.threeweb.ad.jp/~nyasu/software/vrproject.html
+#
+###############################
+
+#====================================================================#
+# VRListview Class
+class VRListview
+
+  #==================================================================#
+  # Private Instance Methods
+
+  def exstyle_getter(style)
+    return (self.lvexstyle & style) == style
+  end
+  private :exstyle_getter
+
+  def exstyle_setter(style, bool)
+    if bool
+      self.lvexstyle |= style
+    else
+      self.lvexstyle &= 0xFFFFFFFF - style
+    end
+  end
+  private :exstyle_setter
+
+  #==================================================================#
+  # Instance Methods
+
+  def row_select
+    return exstyle_getter(WExStyle::LVS_EX_FULLROWSELECT)
+  end
+
+  def row_select=(bool)
+    exstyle_setter(WExStyle::LVS_EX_FULLROWSELECT, bool)
+  end
+
+  def grid_lines
+    return exstyle_getter(WExStyle::LVS_EX_GRIDLINES)
+  end
+
+  def grid_lines=(bool)
+    exstyle_setter(WExStyle::LVS_EX_GRIDLINES, bool)
+  end
+
+  def hide_selection
+    return !self.winstyle.getter(WStyle::LVS_SHOWSELALWAYS)
+  end
+
+  def hide_selection=(bool)
+    self.winstyle.setter(WStyle::LVS_SHOWSELALWAYS, !bool)
+  end
+
+  def extended_select
+    return !self.winstyle.getter(WStyle::LVS_SINGLESEL)
+  end
+
+  def extended_select=(bool)
+    self.winstyle.setter(WStyle::LVS_SINGLESEL, !bool)
+  end
+
+end
+
+#====================================================================#
+# End of source.
+#====================================================================#

data/lib/vr/contrib/vrwincomponent.rb

@@ -0,0 +1,54 @@
+###############################
+#
+# contrib/vrwincomponent.rb
+#
+# These modules/classes are contributed by Yuya-san.
+# Modified by nyasu <nyasu@osk.3web.ne.jp>
+# Distributed at http://www.threeweb.ad.jp/~nyasu/software/vrproject.html
+#
+###############################
+
+#====================================================================#
+# VRWinComponent Class
+class VRWinComponent
+
+  #==================================================================#
+  # Instance Methods
+
+  def maximizebox
+    return self.winstyle.getter(WStyle::WS_MAXIMIZEBOX)
+  end
+
+  def maximizebox=(bool)
+    self.winstyle.setter(WStyle::WS_MAXIMIZEBOX, bool)
+  end
+
+  def minimizebox
+    return self.winstyle.getter(WStyle::WS_MINIMIZEBOX)
+  end
+
+  def minimizebox=(bool)
+    self.winstyle.setter(WStyle::WS_MINIMIZEBOX, bool)
+  end
+
+  def sizebox
+    return self.winstyle.getter(WStyle::WS_SIZEBOX)
+  end
+
+  def sizebox=(bool)
+    self.winstyle.setter(WStyle::WS_SIZEBOX, bool)
+  end
+
+  def tabstop
+    return self.winstyle.getter(WStyle::WS_TABSTOP)
+  end
+
+  def tabstop=(bool)
+    self.winstyle.setter(WStyle::WS_TABSTOP, bool)
+  end
+
+end
+
+#====================================================================#
+# End of source.
+#====================================================================#

data/lib/vr/dragdropformat.rb

@@ -0,0 +1,210 @@
+###################################
+#
+# dragdropformat.rb
+# Programmed by  nyasu <nyasu@osk.3web.ne.jp>
+# Copyright 2002 Nishikawa,Yasuhiro
+#
+# More information at http://www.threeweb.ad.jp/~nyasu/software/vrproject.html
+# (in Japanese)
+#
+###################################
+
+VR_DIR="vr/" unless defined?(::VR_DIR)
+require VR_DIR+'sysmod'
+require 'Win32API'
+
+module ClipboardFormat
+  RegisterClipboardFormat = 
+      Win32API.new("user32","RegisterClipboardFormat","P","I")
+
+  CF_URL = RegisterClipboardFormat.call("UniformResourceLocator")
+
+end
+
+class DragDropObject
+=begin
+== DragDropObject
+A capsule for OLE Drag and Drop
+This is just a base class. Don't use this directly.
+
+=== Methods
+--- handle
+    Returns a global heap handle containing the file pathes.
+--- free_handle
+    Tries to free the handle.
+    Please check you really need to free it, because sometimes your OS will 
+    free it automatically at the appropriate timing.
+=end
+
+  def initialize
+    @__binarydata=""
+  end
+  def handle
+    @handle=GMEM::AllocStr(0x2000,@__binarydata)
+  end
+  def free_handle
+    GMEM::Free(@handle)
+    @handle=0
+  end
+
+  def objectformat
+    self.class::FormatId
+  end
+
+end
+
+class DragDropText < DragDropObject
+=begin
+== DragDropText
+   This class deals the structure for drag-and-drop files.
+
+=== Class Methods
+--- set(files)
+    Creates object and sets the file pathes in ((|files|)) to the object.
+--- get(handle)
+    Create object and sets the file pathes containing in ((|handle|)).
+    The ((|handle|)) is a global heap handle.
+=== Methods
+--- text
+    Returns the text.
+=end
+
+  FormatName="CF_TEXT"
+  FormatId=ClipboardFormat::CF_TEXT
+
+  def initialize(text,handle=0)
+    @__binarydata = @__texts = text.to_str.dup
+    @handle=handle
+  end
+
+  def self.set(texts)
+    self.new(texts)
+  end
+
+  def self.get(handle)
+    self.new(GMEM::Get(handle),handle)
+  end
+
+  def text
+    @__texts.dup
+  end
+end
+
+class DragDropFiles < DragDropObject
+=begin
+== DragDropFiles
+   This class deals the structure for drag-and-drop files.
+
+=== Class Methods
+--- set(files)
+    Creates object and sets the file pathes in ((|files|)) to the object.
+--- get(handle)
+    Create object and sets the file pathes containing in ((|handle|)).
+    The ((|handle|)) is a global heap handle.
+=== Methods
+--- files
+    Returns the file pathes.
+=end
+
+  FormatName = "CF_HDROP"
+  FormatId = ClipboardFormat::CF_HDROP
+
+  DragQueryFile   = Win32API.new("shell32","DragQueryFile", ["I","I","P","I"],"I")
+
+  def initialize(files,handle=0)
+    @__files = files.dup
+    @handle=handle
+    @__binarydata="\0"*0x14+@__files.join("\0")+"\0"
+    @__binarydata[0]=0x14
+  end
+
+  def self.set(files)
+    self.new(files)
+  end
+
+  def self.get(handle)
+    __fnbuffer = "                "*16 #256bytes
+    n=DragQueryFile.call(handle,-1,__fnbuffer,__fnbuffer.size)
+    r=[]
+    0.upto(n-1) do |i|
+      s=DragQueryFile.call(handle,i,__fnbuffer,__fnbuffer.size)
+      r.push __fnbuffer[0,s]
+    end
+    self.new(r,handle)
+  end
+
+  def files
+    @__files.dup
+  end
+end
+
+
+module DragDropRubyObjectFactory
+=begin
+== DragDropRubyObjectFactory
+This class' feature is to register new clipboard format into your system for 
+drag&drop ruby object.
+
+=== Class Methods
+--- declare_dndclass(classname,registername)
+    Registers new format and create new wrapper class for ruby.
+    The format is registered as ((|registername|)) and
+    the wrapper class is declared as DragDropRubyObjectFactory::((|classname|)).
+    This methods returns the wrapper class.
+=end
+
+
+  class DragDropRubyObject < DragDropObject
+=begin
+== DragDropRubyObjectFactory::DragDropRubyObject
+This is a base class of wrapper classes created by 
+DragDropRubyObjectFactory.declare_dndclass()
+
+=== Class Methods
+--- new(binstr,handle=0)
+    No need to use this. (maybe)
+--- set(obj)
+    Returns new wrapper object of ((|obj|)) for drag&drop.
+--- get(handle)
+    Returns wrapper object using global heap of ((|handle|)).
+=== Method
+--- object
+    returns the wrapped object.
+=end
+
+    include ClipboardFormat
+    FormatName = "DumpedRubyObjectForDnD"
+    FormatId = RegisterClipboardFormat.call(FormatName)
+
+    def initialize(bin,handle=0)
+      @objectformat = ClipboardFormat::CF_TEXT # only for base class
+      @__binarydata = bin
+      @handle=handle
+    end
+
+    def self.set(obj)
+      self.new(Marshal.dump(obj))
+    end
+
+    def self.get(handle)
+      bin =  GMEM::Get(handle)
+      self.new(bin,handle)
+    end
+
+    def object
+      Marshal.load(@__binarydata)
+    end
+  end
+
+  def self.declare_dndclass(classname,registername)
+    str = <<"EEOOFF"
+        class #{classname} < DragDropRubyObject
+          FormatName = '#{registername}'
+          FormatId = RegisterClipboardFormat.call(FormatName)
+        end
+EEOOFF
+    eval(str)
+    eval("#{classname} ")
+  end
+
+end