vruby 2004.08.07

data/lib/vr/vrhandler.rb

@@ -0,0 +1,196 @@
+###################################
+#
+# vrhandler.rb
+# Programmed by  nyasu <nyasu@osk.3web.ne.jp>
+# Copyright 1999-2001 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+'vruby'
+
+=begin
+= VisualuRuby(tmp) Additional Modules
+=end
+
+
+module VRMouseFeasible
+  include VRMessageHandler
+
+  SHIFT_LBUTTON=1
+  SHIFT_RBUTTON=2
+  SHIFT_SHIFT  =4
+  SHIFT_CONTROL=8
+  SHIFT_MBUTTON=16
+
+=begin
+== VRMouseFeasible
+This is a module to receive mouse messages. 
+
+=== Event Handlers
+--- self_lbuttonup(shift,x,y)
+    This method is fired when mouse left button is released at coord(x,y).
+    Press SHIFT key to set 0x4 bit of argument "shift". 
+    Its 0x8 bit is for CONTROL key 
+--- self_lbuttondown(shift,x,y)
+    This method is fired when mouse left button is pressed.
+--- self_rbuttonup(shift,x,y)
+    This method is fired when mouse right button is released.
+--- self_rbuttondown(shift,x,y)
+    This method is fired when mouse right button is pressed.
+--- self_mousemove(shift,x,y)
+    This method is fired when mouse cursor is moving on the window at coord(x,y).
+=end
+
+  def mousefeasibleinit
+    addHandler WMsg::WM_LBUTTONUP,  "lbuttonup",  MSGTYPE::ARGINTSINTSINT,nil
+    addHandler WMsg::WM_LBUTTONDOWN,"lbuttondown",MSGTYPE::ARGINTSINTSINT,nil
+    addHandler WMsg::WM_RBUTTONUP,  "rbuttonup",  MSGTYPE::ARGINTSINTSINT,nil
+    addHandler WMsg::WM_RBUTTONDOWN,"rbuttondown",MSGTYPE::ARGINTSINTSINT,nil
+    addHandler WMsg::WM_MOUSEMOVE,  "mousemove",  MSGTYPE::ARGINTSINTSINT,nil
+    acceptEvents [WMsg::WM_LBUTTONUP,WMsg::WM_RBUTTONUP,
+                  WMsg::WM_LBUTTONDOWN,WMsg::WM_RBUTTONDOWN,
+                  WMsg::WM_MOUSEMOVE]
+  end
+  
+  def vrinit
+    super
+    mousefeasibleinit
+  end
+
+=begin handlers
+  def self_lbuttonup(*arg)   end
+  def self_lbuttondown(*arg) end
+  def self_rbuttonup(*arg)   end
+  def self_rbuttondown(*arg) end
+  def self_mousemove(*arg)   end
+=end
+end
+
+module VRFocusSensitive
+  include VRMessageHandler
+
+=begin
+== VRFocusSensitive
+This is a module to sense getting/losing focus.
+=== Event Handlers
+--- self_gotfocus()
+    This method is fired when the window get focus.
+--- self_lostfocus()
+    This method is fired when the window lose the focus.
+=end
+
+  def focussensitiveinit
+    addHandler WMsg::WM_SETFOCUS,   "gotfocus",   MSGTYPE::ARGNONE,nil
+    addHandler WMsg::WM_KILLFOCUS,  "lostfocus",  MSGTYPE::ARGNONE,nil
+    acceptEvents [WMsg::WM_SETFOCUS,WMsg::WM_KILLFOCUS]
+  end
+  
+  def vrinit
+    super
+    focussensitiveinit
+  end
+=begin handlers
+  def gotfocus()  end
+  def lostfocus() end
+=end
+end
+
+module VRKeyFeasible
+  include VRMessageHandler
+  
+=begin
+== VRKeyFeasible
+This is a module to sense keyboard input.
+
+=== Event Handlers
+--- self_char(keycode,keydata)
+    This method is fired when WM_KEYUP and WM_KEYDOWN are translated into 
+    keyboard input messages.
+--- self_deadchar(keycode,keydata)
+--- self_syschar(keycode,keydata)
+--- self_sysdeadchar(keycode,keydata)
+=end
+
+  def keyfeasibleinit
+    addHandler(0x102,"char",     MSGTYPE::ARGINTINT,nil)      # WM_CHAR
+    addHandler(0x103,"deadchar", MSGTYPE::ARGINTINT,nil)      # WM_DEADCHAR
+    addHandler(0x106,"syschar",  MSGTYPE::ARGINTINT,nil)      # WM_SYSCHAR
+    addHandler(0x107,"sysdeadchar", MSGTYPE::ARGINTINT,nil)   # WM_SYSDEADCHAR
+    acceptEvents [0x102,0x103,0x106,0x107]
+  end
+  def vrinit
+    super
+    keyfeasibleinit
+  end
+
+=begin handlers
+  def self_char(*arg)        end
+  def self_deadchar(*arg)    end
+  def self_syschar(*arg)     end
+  def self_sysdeadchar(*arg) end
+=end
+end
+
+module VRDestroySensitive
+=begin
+== VRDestroySensitive
+This is a module to sense window destruction.
+
+=== Event Handlers
+--- self_destroy
+    This is fired when the window is destroying.
+=end
+
+  include VRMessageHandler
+
+  def destroysensitiveinit
+    addHandler WMsg::WM_DESTROY,"destroy",MSGTYPE::ARGNONE,nil
+    acceptEvents [WMsg::WM_DESTROY]
+  end
+  
+  def vrinit
+    super
+    destroysensitiveinit
+  end
+end
+
+module VRClosingSensitive
+=begin
+== VRClosingSensitive
+This is a module to sense window closing.
+This module can be used for implement of CanClose method.
+
+ex. 
+  class MyForm < VRForm
+    include VRClosingSensitive
+    def self_close
+      r = messageBox("Can Close?","close query",4) #4=MB_YESNO
+  
+      if r==7 # ID_NO then 
+        SKIP_DEFAULTHANDLER
+      end
+    end
+  end
+
+=== Event Handlers
+--- self_close
+    This is fired when the window is closing.
+=end
+
+  include VRMessageHandler
+  def closingsensitiveinit
+    addHandler WMsg::WM_CLOSE,"close",MSGTYPE::ARGNONE,nil
+    acceptEvents [WMsg::WM_CLOSE]
+  end
+  
+  def vrinit
+    super
+    closingsensitiveinit
+  end
+end
+
+require VR_DIR+'contrib/vrctlcolor'

data/lib/vr/vrlayout.old.rb

@@ -0,0 +1,209 @@
+###################################
+#
+# vrlayout.rb (old version)
+# Programmed by  nyasu <nyasu@osk.3web.ne.jp>
+# Copyright 1999-2001 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+'vruby'
+
+=begin
+= VisualuRuby(tmp) Layout Managers
+Layout Managers re-arrange child windows(controls)
+when the parent window is resized.
+=end
+
+
+##############################################
+#  base module for LayoutManagers
+#
+module VRLayoutManager
+=begin
+== VRLayoutManager
+The base class for the layout managers.
+
+=== Methods
+--- rearrange
+    Re-arranges child windows.
+=end
+
+
+  include VRMessageHandler
+
+  def vrLayoutinit
+    addHandler(WMsg::WM_SIZE, "vrlayoutresize",MSGTYPE::ARGLINTINT,nil) 
+    acceptEvents [WMsg::WM_SIZE]
+  end
+
+  def vrinit
+    super
+    vrLayoutinit
+  end
+  
+  def rearrange
+    if self.visible? then
+      a=self.clientrect
+      sendMessage WMsg::WM_SIZE,0,MAKELPARAM(a[2]-a[0],a[3]-a[1])
+    end
+  end
+  
+  def self_vrlayoutresize(*arg)
+    self_layout_arrange(*arg)
+  end
+end
+
+##
+##########################################
+
+
+module VRVertLayoutManager
+=begin
+== VRVertLayoutManager
+On window resizing, each controls on the window is re-arranged
+to vertical arrangement. each control's width is window width and 
+each height is one n-th of window's height.
+
+=== Methods
+--- addControl(type,name,caption,astyle)
+    Create a new control and add on the window.
+    The arguments are same as VRParent#addControl 
+    without args ((|x|)),((|y|)),((|w|)),((|h|))
+=end
+
+  include VRLayoutManager
+  
+  def self_layout_arrange(width,fheight)
+    return unless @_vr_c_order
+    height=(@_vr_c_order.size>0)? (fheight.to_f / @_vr_c_order.size) : fheight
+    
+    @_vr_c_order.each_index do |i|
+      @_vr_c_order[i].move( 0,i*height, width,height )
+    end
+  end
+
+  VR_ADDCONTROL_FEWARGS=true
+
+  def addControl(type,name,caption,style=0)
+    @_vr_c_order=[] if !@_vr_c_order
+    r=vr_addControlOriginal(type,name,caption,0,@controls.size*10,10,10,style)
+    @_vr_c_order.push r
+    return r
+  end
+end
+
+
+module VRHorizLayoutManager
+=begin
+== VRHorizLayoutManager
+On window resizing, each controls on the window is re-arranged
+to horizontal arrangement. each control's height is window height and 
+each width is one n-th of window's width.
+
+=== Methods
+--- addControl(type,name,caption,astyle)
+    Create a new control and add on the window.
+    The arguments are same as VRParent#addControl 
+    without args ((|x|)),((|y|)),((|w|)),((|h|))
+=end
+
+  include VRLayoutManager
+  
+  def self_layout_arrange(fwidth,height)
+    return unless @_vr_c_order
+    width =(@_vr_c_order.size>0)? (fwidth.to_f / @_vr_c_order.size) : fwidth
+
+    @_vr_c_order.each_index do |i|
+      @_vr_c_order[i].move( i*width,0, width,height )
+    end
+  end
+
+  VR_ADDCONTROL_FEWARGS=true
+
+  def addControl(type,name,caption,style=0)
+    @_vr_c_order=[] if !@_vr_c_order
+    r=vr_addControlOriginal(type,name,caption,0,@controls.size*10,10,10,style)
+    @_vr_c_order.push r
+    return r
+  end
+
+end
+
+module VRGridLayoutManager
+=begin
+== VRGridLayoutManager
+On window resizing, each controls on the window is re-arranged
+with the grid which devides the window height and width by the number
+specified by ((<setDimension>)) method.
+
+=== Methods
+--- setDimension(x,y)
+    Devides windows width by ((|x|)) and height by ((|y|)).
+
+--- addControl(type,name,caption,x,y,w,h,astyle)
+    Create a new control and add on the window.
+    The arguments are same as VRParent#addControl but
+    args ((|x|)),((|y|)),((|w|)),((|h|)) are under grid dimension.
+=end
+
+  include VRLayoutManager
+  
+  def setDimension(x,y)
+    @_vr_xsize=x
+    @_vr_ysize=y
+    @_vr_controldim={}
+  end
+
+  def self_layout_arrange(width,height)
+    return unless @controls
+
+    @controls.each do |id,cntl|
+        cntl.move(width.to_f  / @_vr_xsize*@_vr_controldim[id][0],
+                  height.to_f / @_vr_ysize*@_vr_controldim[id][1],
+                  width.to_f  / @_vr_xsize*@_vr_controldim[id][2],
+                  height.to_f / @_vr_ysize*@_vr_controldim[id][3]  )
+    end
+  end
+
+  def addControl(type,name,caption,x,y,w,h,style=0)
+    if !@_vr_controldim then raise("addControl before setDimension") end
+    if @controls.size != @_vr_controldim.size then
+      raise "VRGridLayoutManager misses some controls"+
+            "(mng#{@_vr_controldim.size} cntls#{@_vr_cid})."
+    end
+
+    gx=self.w/@_vr_xsize*x; gw=self.w/@_vr_xsize*w;
+    gy=self.h/@_vr_ysize*y; gh=self.h/@_vr_ysize*h;
+    r=vr_addControlOriginal(type,name,caption,gx,gy,gw,gh,style)
+    @_vr_controldim[r.etc]= [x,y,w,h]
+    return r
+  end
+end
+
+module VRFullsizeLayoutManager
+=begin
+== VRFullsizeLayoutManager
+   This is a LayoutManager for only one control, whose size is full size 
+   on the window.
+
+=== Methods
+--- addControl(type,name,caption,astyle)
+    You can call this method only once.
+=end
+
+
+  include VRVertLayoutManager
+
+  VR_ADDCONTROL_FEWARGS=true
+
+  def addControl(*arg)
+    super
+    def self.addControl(*arg)
+      raise "addControl twice"
+    end
+  end
+end

data/lib/vr/vrlayout.rb

@@ -0,0 +1,174 @@
+###################################
+#
+# vrlayout.rb (using vrlayout2 version)
+# Programmed by  nyasu <nyasu@osk.3web.ne.jp>
+# Copyright 1999-2001 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+'vruby'
+require VR_DIR+'vrlayout2'
+
+=begin
+= VisualuRuby(tmp) Layout Managers
+Layout Managers re-arrange child windows(controls)
+when the parent window is resized.
+=end
+
+##############################################
+#  base module for LayoutManagers
+#
+module VRLayoutManager
+=begin
+== VRLayoutManager
+The base class for the layout managers.
+
+=== Methods
+--- rearrange
+    Re-arranges child windows.
+=end
+
+
+  include VRMessageHandler
+
+  def vrLayoutinit
+    @_vr_layoutframe=nil
+    addHandler(WMsg::WM_SIZE, "vrlayoutresize",MSGTYPE::ARGLINTINT,nil) 
+    acceptEvents [WMsg::WM_SIZE]
+  end
+
+  def vrinit
+    super
+    vrLayoutinit
+  end
+  
+  def rearrange
+    a=self.clientrect
+    sendMessage WMsg::WM_SIZE,0,MAKELPARAM(a[2]-a[0],a[3]-a[1])
+  end
+  
+  def self_vrlayoutresize(*arg)
+    self_layout_arrange(*arg)
+  end
+
+  def self_layout_arrange(xw,yh)
+    @_vr_layoutframe.move 0,0,xw,yh if @_vr_layoutframe
+  end
+end
+
+##
+##########################################
+
+module VRVertLayoutManager
+=begin
+== VRVertLayoutManager
+On window resizing, each controls on the window is re-arranged
+to vertical arrangement. each control's width is window width and 
+each height is one n-th of window's height.
+
+=== Methods
+--- addControl(type,name,caption,astyle)
+    Create a new control and add on the window.
+    The arguments are same as VRParent#addControl 
+    without args ((|x|)),((|y|)),((|w|)),((|h|))
+=end
+
+  include VRLayoutManager
+
+  VR_ADDCONTROL_FEWARGS=true
+
+  def addControl(type,name,caption,style=0)
+    @_vr_layoutframe = VRVertLayoutFrame.new unless @_vr_layoutframe
+    r=vr_addControlOriginal(type,name,caption,0,@controls.size*10,10,10,style)
+    @_vr_layoutframe.register(r)
+    rearrange
+    return r
+  end
+end
+
+module VRHorizLayoutManager
+=begin
+== VRHorizLayoutManager
+On window resizing, each controls on the window is re-arranged
+to horizontal arrangement. each control's height is window height and 
+each width is one n-th of window's width.
+
+=== Methods
+--- addControl(type,name,caption,astyle)
+    Create a new control and add on the window.
+    The arguments are same as VRParent#addControl 
+    without args ((|x|)),((|y|)),((|w|)),((|h|))
+=end
+
+  include VRLayoutManager
+
+  VR_ADDCONTROL_FEWARGS=true
+
+  def addControl(type,name,caption,style=0)
+    @_vr_layoutframe = VRHorizLayoutFrame.new unless @_vr_layoutframe
+    r=vr_addControlOriginal(type,name,caption,0,@controls.size*10,10,10,style)
+    @_vr_layoutframe.register(r)
+    rearrange
+    return r
+  end
+end
+
+module VRGridLayoutManager
+=begin
+== VRGridLayoutManager
+On window resizing, each controls on the window is re-arranged
+with the grid which devides the window height and width by the number
+specified by ((<setDimension>)) method.
+
+=== Methods
+--- setDimension(x,y)
+    Devides windows width by ((|x|)) and height by ((|y|)).
+
+--- addControl(type,name,caption,x,y,w,h,astyle)
+    Create a new control and add on the window.
+    The arguments are same as VRParent#addControl but
+    args ((|x|)),((|y|)),((|w|)),((|h|)) are under grid dimension.
+=end
+  include VRLayoutManager
+
+  def setDimension(x,y)
+    unless @_vr_layoutframe then
+      @_vr_layoutframe = VRGridLayoutFrame.new(x,y)
+    else
+      @_vr_layoutframe.setDimension(x,y)
+    end
+  end
+  def addControl(type,name,caption,x,y,w,h,style=0)
+    @_vr_layoutframe = VRGridLayoutFrame.new unless  @_vr_layoutframe
+    r=vr_addControlOriginal(type,name,caption,0,@controls.size*10,10,10,style)
+    @_vr_layoutframe.register(r,x,y,w,h)
+    rearrange
+    return r
+  end
+end
+
+module VRFullsizeLayoutManager
+=begin
+== VRFullsizeLayoutManager
+   This is a LayoutManager for only one control, whose size is full size 
+   on the window.
+=== Methods
+--- addControl(type,name,caption,astyle)
+    You can call this method only once.
+=end
+
+
+  include VRVertLayoutManager
+  VR_ADDCONTROL_FEWARGS=true
+
+  def addControl(*arg)
+    super
+    def self.addControl(*arg)
+      raise "addControl twice"
+    end
+  end
+end