vruby 2004.08.07

data/lib/vr/vrlayout2.rb

@@ -0,0 +1,340 @@
+###################################
+#
+# vrlayout2.rb 
+# Programmed by  nyasu <nyasu@osk.3web.ne.jp>
+# Copyright 2000-2003 Nishikawa,Yasuhiro
+#
+# More information at http://www.threeweb.ad.jp/~nyasu/software/vrproject.html
+# (in Japanese)
+#
+###################################
+
+require 'Win32API'
+
+class VRLayoutFrame
+=begin
+== VRLayoutFrame
+   This is a base class for layout frames.
+
+=== Methods
+--- register(*controls)
+    Registers controls for LayoutFrame
+--- move(x,y,w,h)
+    Resizes the layout frame size.
+    This re-calculate the registered controls coordinates.
+=end
+
+  def initialize()
+    @_vr_layoutclients=[]
+    @_vr_lx,@_vr_ly,@_vr_lw,@_vr_lh = 0,0,10,10
+  end
+
+  def register(*cntl)
+    @_vr_layoutclients.concat cntl
+    _vr_relayout
+  end
+
+  def move(x,y,w,h)
+    @_vr_lx,@_vr_ly,@_vr_lw,@_vr_lh = x,y,w,h
+    _vr_relayout
+  end
+
+  def _vr_relayout
+  end
+end
+
+
+class VRVertLayoutFrame < VRLayoutFrame
+=begin
+== VRVertLayoutFrame
+   This is a frame that lays out its controls vertically.
+   Use ((|register|)) and ((|move|)) method of VRLayoutFrame
+=end
+
+  def _vr_relayout
+    return if @_vr_layoutclients.size==0
+    height = @_vr_lh.to_f / @_vr_layoutclients.size
+    @_vr_layoutclients.each_index do |i|
+      @_vr_layoutclients[i].move @_vr_lx, @_vr_ly+height*i,@_vr_lw,height
+    end
+  end
+end
+
+class VRHorizLayoutFrame < VRLayoutFrame
+=begin
+== VRHorizLayoutFrame
+   This is a frame that lays out its controls horizontally.
+   Use ((|register|)) and ((|move|)) method of VRLayoutFrame
+=end
+  def _vr_relayout
+    return if @_vr_layoutclients.size==0
+    width = @_vr_lw.to_f / @_vr_layoutclients.size
+    @_vr_layoutclients.each_index do |i|
+      @_vr_layoutclients[i].move @_vr_lx+width*i, @_vr_ly,width,@_vr_lh
+    end
+  end
+end
+
+class VRFullsizeLayoutFrame < VRVertLayoutFrame
+=begin
+== VRFullsizeLayoutFrame
+   This is a frame that lays out its one control full-sized.
+   Use ((|register|)) and ((|move|)) method of VRLayoutFrame
+   ((|register|)) method can be called once and accept only one control.
+=end
+
+  def register(re)
+    super
+    def self.register
+      raise "register twice"
+    end
+  end
+end
+
+class VRGridLayoutFrame <VRLayoutFrame
+  def initialize(xs,ys)
+    super()
+    @_vr_xsize=xs
+    @_vr_ysize=ys
+    @_vr_layoutclients = Array.new
+  end
+  def setDimention(xs,ys)
+    @_vr_xsize=x
+    @_vr_ysize=y
+  end
+
+  def register(cntl,x,y,w,h)
+    @_vr_layoutclients.push [cntl,x,y,w,h]
+    _vr_relayout
+  end
+
+  def _vr_relayout
+    @_vr_layoutclients.each do |c|
+      c[0].move( @_vr_lw/@_vr_xsize * c[1],
+                 @_vr_lh/@_vr_ysize * c[2],
+                 @_vr_lw/@_vr_xsize * c[3],
+                 @_vr_lh/@_vr_ysize * c[4])
+    end
+  end
+end
+
+class VRTwoPaneFrame
+=begin
+== VRTwoPaneFrame
+   This is a base class for twopane frames.
+
+=== Methods
+--- register(*controls)
+--- move(x,y,w,h)
+    same as ((<VRLayoutFrame>))
+--- setup(parent)
+    Call this method to combine the frame to the window.
+--- window_parent
+    Find the first actual window object from its parent or ancestors.
+=end
+  SPLITTER_MOVEWINDOW=0
+  SPLITTER_DRAWLINE=1
+  @@_vr_paned_splitter_movingmethod = SPLITTER_DRAWLINE
+  
+  def splitter_operation_type
+     @@_vr_paned_splitter_movingmethod
+  end
+  
+  def splitter_operation_type=(tp)
+     @@_vr_paned_splitter_movingmethod=tp
+  end
+
+  attr :ratio,1
+  attr :separatorheight,1
+
+  Cursor="Size"
+
+  PatBlt = Win32API.new("gdi32","PatBlt","IIIIII","I")
+
+  module VRTwoPaneFrameUsable
+    attr :_vr_twopaneframes,1
+
+    def _vr_twopaneframesinit
+      return if defined?(@_vr_twopaneframes)  # no init twice
+      @_vr_twopaneframes = Array.new
+      @_vr_current_tpframe=nil
+      addHandler(
+        WMsg::WM_LBUTTONUP,  "vrsepl2buttonup",  MSGTYPE::ARGINTSINTSINT,nil)
+      addHandler(
+        WMsg::WM_LBUTTONDOWN,"vrsepl2buttondown",MSGTYPE::ARGINTSINTSINT,nil)
+      addHandler(
+        WMsg::WM_MOUSEMOVE,  "vrsepl2mousemove",  MSGTYPE::ARGINTSINTSINT,nil)
+
+      acceptEvents [
+        WMsg::WM_LBUTTONUP,WMsg::WM_LBUTTONDOWN,WMsg::WM_MOUSEMOVE
+       ]
+    end
+
+    def self_vrsepl2buttondown(s,x,y)
+      @_vr_twopaneframes.each do |f|
+        if f.hittest(x,y)
+          f.setDragCur
+          f.dragstart 
+          @_vr_current_tpframe=f
+        end
+      end
+    end
+
+    def self_vrsepl2buttonup(s,x,y)
+      @_vr_current_tpframe=nil
+      @_vr_twopaneframes.each do |f|
+        f.dragend
+      end
+    end
+
+    def self_vrsepl2mousemove(s,x,y)
+      @_vr_twopaneframes.each do |f|
+        if f.hittest(x,y)
+          f.setDragCur
+        end
+      end
+      if @_vr_current_tpframe then
+        @_vr_current_tpframe.splitterDragging(x,y)
+      end
+    end
+  end
+
+  def window_parent
+    a=self
+    while(! a.is_a?(SWin::Window) ) do
+      a = a.instance_eval("@parent")
+    end
+    return a
+  end
+
+  def initialize(pane1,pane2)
+    @pane1,@pane2 = pane1,pane2 
+    @_vr_dragging=false
+    @ratio=0.5
+    @separatorheight=4
+    @_vr_splitter_last=nil
+  end
+
+  def hittest(x,y)
+    return unless @_vr_lxs
+    if (@_vr_lxs < x) and (x  < @_vr_lxe) and
+       (@_vr_lys < y) and (y  < @_vr_lye) 
+    then
+      true
+    else
+      false
+    end
+  end
+
+  def setDragCur
+    @_vr_app.setCursor @_vr_dragcur if @_vr_app
+  end
+
+  def dragstart
+    @parent.setCapture
+    @_vr_dragging=true
+  end
+
+  def dragend
+    return unless @_vr_dragging
+    @parent.releaseCapture
+    @_vr_dragging=false
+    splitterDragEnd
+  end
+
+  def setup(parent)
+    raise "setup twice" if defined? @parent
+    @parent = parent
+    @_vr_app = parent.instance_eval("@screen.application") # parent.application
+    @_vr_dragcur = eval("@_vr_app::SysCursors::#{self.class::Cursor}()")
+    parent.extend VRTwoPaneFrameUsable
+    parent._vr_twopaneframesinit
+    parent._vr_twopaneframes.push self
+    self
+  end
+
+  def move(x,y,w,h)
+    @_vr_lx,@_vr_ly,@_vr_lw,@_vr_lh = x,y,w,h
+    self._vr_relayout
+  end
+
+  def splitterDragging(x,y) end
+  def splitterDragEnd(x,y) end
+  def _vr_relayout() raise "using base class #{self.class}" end
+end
+
+class VRVertTwoPaneFrame < VRTwoPaneFrame
+  Cursor = "SizeNS"
+  def splitterDragEnd
+    @_vr_splitter_last=nil
+    _vr_relayout
+  end
+  def splitterDragging(x,y)
+    return if y<@separatorheight+@_vr_ly or y>@_vr_ly+@_vr_lh-@separatorheight
+    @ratio=(y-@_vr_ly).to_f/@_vr_lh
+
+    case(splitter_operation_type)
+    when SPLITTER_MOVEWINDOW
+        _vr_relayout(y-@_vr_ly)
+    when SPLITTER_DRAWLINE
+      w = window_parent
+      w.dopaint do |hdc|
+        w.setBrush(RGB(0x255,0x255,0x255))
+        if @_vr_splitter_last then
+          VRTwoPaneFrame::PatBlt.call(hdc,*@_vr_splitter_last) 
+        end
+        current=[@_vr_lx,y,@_vr_lw,@separatorheight,0x5a0049] # PATINVERT
+        VRTwoPaneFrame::PatBlt.call(hdc,*current)
+        @_vr_splitter_last = current
+      end
+    end
+  end
+
+  def _vr_relayout( ys = (@_vr_lh*@ratio).to_i)
+    sh=(@separatorheight/2).to_i
+    @_vr_lxs,@_vr_lxe = @_vr_lx,@_vr_lx+@_vr_lw
+    @_vr_lys,@_vr_lye = @_vr_ly+ys-sh,@_vr_ly+ys+sh
+
+    @pane1.move @_vr_lx,@_vr_ly,  @_vr_lw,ys-sh
+    @pane2.move @_vr_lx,@_vr_lys+@separatorheight, @_vr_lw,@_vr_lh-ys-sh
+  end
+end
+
+class VRHorizTwoPaneFrame < VRTwoPaneFrame
+  Cursor = "SizeWE"
+  def splitterDragEnd
+    @_vr_splitter_last=nil
+    _vr_relayout
+  end
+  def splitterDragging(x,y)
+    return if x<@separatorheight+@_vr_lx or x>@_vr_lx+@_vr_lw-@separatorheight
+    @ratio=(x-@_vr_lx).to_f/@_vr_lw
+
+    case(splitter_operation_type)
+    when SPLITTER_MOVEWINDOW
+        _vr_relayout(x-@_vr_lx)
+    when SPLITTER_DRAWLINE
+      w = window_parent
+      w.dopaint do |hdc|
+        w.setBrush(RGB(0x255,0x255,0x255))
+        if @_vr_splitter_last then
+          VRTwoPaneFrame::PatBlt.call(hdc,*@_vr_splitter_last) 
+        end
+        current=[x,@_vr_ly,@separatorheight,@_vr_lh,0x5a0049] # PATINVERT
+        VRTwoPaneFrame::PatBlt.call(hdc,*current)
+        @_vr_splitter_last = current
+      end
+    end
+
+
+  end
+
+  def _vr_relayout( xs = (@_vr_lw*@ratio).to_i)
+    sh=(@separatorheight/2).to_i
+    @_vr_lxs,@_vr_lxe = @_vr_lx+xs-sh,@_vr_lx+xs+sh
+    @_vr_lys,@_vr_lye = @_vr_ly,@_vr_ly+@_vr_lh
+
+    @pane1.move @_vr_lx,@_vr_ly,  xs-sh,@_vr_lh
+    @pane2.move @_vr_lxs+@separatorheight,@_vr_ly, @_vr_lw-xs-sh,@_vr_lh
+  end
+end

data/lib/vr/vrmmedia.rb

@@ -0,0 +1,289 @@
+###################################
+#
+# vrmmedia.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)
+#
+#
+#   Good Reference: vfw.h
+#
+###################################
+
+VR_DIR="vr/" unless defined?(::VR_DIR)
+require VR_DIR+'vrcontrol'
+require 'Win32API'
+
+=begin
+= VisualuRuby(tmp) modules for MCI
+=end
+
+
+#if RUBY_VERSION<"1.4.4" then   # Quick Hacking..
+#  require 'DLLManager'
+#  DLLManager.load("msvfw32.dll")
+#end
+
+MCIWndRegisterClass = Win32API.new("msvfw32","MCIWndRegisterClass",[],"I")
+MCIWndRegisterClass.call
+
+
+module VRMediaViewContainer
+=begin
+== VRMediaViewContainer
+This module provides a message handler for MCI messages.
+VRForm includes this module automatically loading "vrmmedia.rb".
+=end
+  include VRMessageHandler
+
+  def vrinit
+    super
+    mediaviewcontainerinit
+  end
+
+  def mediaviewcontainerinit
+    addHandler(VRMediaView::MCIWNDM_NOTIFYMODE,
+                       "mmnotifies",MSGTYPE::ARGPASS,nil)
+    addHandler(VRMediaView::MCIWNDM_NOTIFYERROR,
+                       "mmnotifies",MSGTYPE::ARGPASS,nil)
+    addHandler(VRMediaView::MCIWNDM_NOTIFYSIZE,
+                       "mmnotifies",MSGTYPE::ARGPASS,nil)
+    addHandler(VRMediaView::MCIWNDM_NOTIFYMEDIA,
+                       "mmnotifies",MSGTYPE::ARGPASS,nil)
+    acceptEvents [ VRMediaView::MCIWNDM_NOTIFYMODE,
+                   VRMediaView::MCIWNDM_NOTIFYSIZE,
+                   VRMediaView::MCIWNDM_NOTIFYMEDIA,
+                   VRMediaView::MCIWNDM_NOTIFYERROR  ]
+
+    addNoRelayMessages [ VRMediaView::MCIWNDM_NOTIFYMODE,
+                         VRMediaView::MCIWNDM_NOTIFYSIZE,
+                         VRMediaView::MCIWNDM_NOTIFYMEDIA,
+                         VRMediaView::MCIWNDM_NOTIFYERROR  ]
+  end
+
+  def self_mmnotifies(msg)
+    ct=@_vr_mediaviewers_hwnd[msg.wParam]
+    return unless ct
+    messageid=msg.msg
+
+    return unless ct._vr_mmhandlers and ct._vr_mmhandlers[messageid] 
+
+    ct._vr_mmhandlers[messageid].each do |shandler|
+      args=msgarg2handlerarg(shandler[1],msg,shandler[2])
+      ct.__send__(shandler[0],*args) if ct.respond_to?(shandler[0])
+      msg.retval = controlmsg_dispatching(ct,shandler[0],*args)
+    end
+  end
+
+  def addControl(*args)
+    @_vr_mediaviewers_hwnd={} unless defined?(@_vr_mediaviewers_hwnd)
+    a=super
+    @_vr_mediaviewers_hwnd[a.hWnd]=a if a.is_a?(VRMediaView)
+    return a
+  end
+end
+
+module VRContainersSet
+  include VRMediaViewContainer
+  INITIALIZERS.push :mediaviewcontainerinit
+end
+
+
+#####
+
+module VRMediaViewModeNotifier
+  include VRMediaViewContainer
+
+=begin
+== VRMediaViewModeNotifier
+This module is to use another event handlers for mci.
+These new handlers are not relayed to parent by VRMessageParentRelayer.
+(Use setnotifier() as setnotifier("cname1_cname2))
+
+=== Methods
+--- setnotifier(cname)
+    This enables ((<VRMediaView>))'s other event handlers such as cname_stopped,
+    cname_playing,cname_paused and cname_open, named after 
+    ((<VRMediaView>))#modestring.
+=end
+
+  def setnotifier(cname)
+    instance_eval(
+      "def "+cname+"_modechanged(n)\n" +
+      "  fname='#{cname}_'+@#{cname}.modestring(n) \n" +
+       " send fname if respond_to?(fname) \n" +
+      "end\n"
+    )
+  end
+end
+
+
+class VRMediaView < VRControl
+=begin
+== VRMediaView
+This is a control window to play multimedia files.
+
+=== Methods
+--- mediaopen(filename,flag=0)
+    Open mediafile as filename.
+--- mediaclose
+    Close mediafile.
+--- mode
+    Return current mode number.
+--- modestring(n)
+    Return description for mode number #n
+--- errorstring
+    Return error description
+--- play
+--- pause
+--- stop
+--- eject
+--- step(n=1)
+--- seek(pos)
+--- seekHome
+--- seekEnd
+--- playable?
+--- ejectable?
+--- window?
+--- length
+--- position
+--- volume
+--- volume=(vl)
+--- speed
+--- speed=
+--- zoom
+--- zoom=
+
+=== Event Handlers
+--- ????_onerror()
+--- ????_modechanged(newmode)
+--- ????_sizechanged()
+--- ????_mediachanged(str)
+=end
+
+
+  attr :_vr_mmhandlers
+
+  MCI_CLOSE = 0x0804
+  MCI_PLAY  = 0x0806
+  MCI_SEEK  = 0x0807
+  MCI_STOP  = 0x0808
+  MCI_PAUSE = 0x0809
+  MCI_STEP  = 0x080E
+
+  MCIWNDM_GETPOSITION  = (WMsg::WM_USER + 102)    # A message
+  MCIWNDM_GETLENGTH    = (WMsg::WM_USER + 104)
+  MCIWNDM_GETMODE      = (WMsg::WM_USER + 106)    # A message
+  MCIWNDM_EJECT        = (WMsg::WM_USER + 107)
+  MCIWNDM_SETZOOM      = (WMsg::WM_USER + 108)
+  MCIWNDM_GETZOOM      = (WMsg::WM_USER + 109)
+  MCIWNDM_SETVOLUME    = (WMsg::WM_USER + 110)
+  MCIWNDM_GETVOLUME    = (WMsg::WM_USER + 111)
+  MCIWNDM_SETSPEED     = (WMsg::WM_USER + 112)
+  MCIWNDM_GETSPEED     = (WMsg::WM_USER + 113)
+
+  MCIWNDM_GETERROR     = (WMsg::WM_USER + 128)    # A message
+
+  MCIWNDM_CAN_PLAY     = (WMsg::WM_USER + 144)
+  MCIWNDM_CAN_WINDOW   = (WMsg::WM_USER + 145)
+  MCIWNDM_CAN_EJECT    = (WMsg::WM_USER + 148)
+  MCIWNDM_CAN_CONFIG   = (WMsg::WM_USER + 149)
+  MCIWNDM_SETOWNER     = (WMsg::WM_USER + 152)
+  MCIWNDM_OPEN         = (WMsg::WM_USER + 153)    # A message
+
+  MCIWNDM_NOTIFYMODE   = (WMsg::WM_USER + 200)  # wparam = hwnd, lparam = mode
+  MCIWNDM_NOTIFYSIZE   = (WMsg::WM_USER + 202)  # wparam = hwnd
+  MCIWNDM_NOTIFYMEDIA  = (WMsg::WM_USER + 203)  # wparam = hwnd, lparam = fn
+  MCIWNDM_NOTIFYERROR  = (WMsg::WM_USER + 205)  # wparam = hwnd, lparam = error
+
+  MCIWNDF_NOPLAYBAR       = 0x0002
+  MCIWNDF_NOAUTOSIZEMOVIE = 0x0004
+  MCIWNDF_NOMENU          = 0x0008
+
+  MCIWNDF_SIMPLE          = 0xe
+
+  WINCLASSINFO = ["MCIWndClass",0x5500 | 0x400 | 0x880 ] 
+                                  #notify:mode,error,size,media
+
+  def addMMHandler(msg,handlername,handlertype,argparsestr)
+    @_vr_mmhandlers={} unless defined? @_vr_mmhandlers
+    @_vr_mmhandlers[msg]=[] unless @_vr_mmhandlers[msg]
+    @_vr_mmhandlers[msg].push [handlername,handlertype,argparsestr]
+  end
+
+  def deleteMMHandler(msg,handlername)
+    return false unless defined?(@_vr_mmhandlers) and @_vr_mmhandlers[msg]
+    @_vr_mmhandlers.delete_if do |shandler|
+      shandler[0] != (PREHANDLERSTR+handlername).intern
+    end
+  end
+
+  def vrinit
+    super
+    addMMHandler(VRMediaView::MCIWNDM_NOTIFYERROR,"onerror",MSGTYPE::ARGINT,nil)
+    addMMHandler(VRMediaView::MCIWNDM_NOTIFYMODE,"modechanged",MSGTYPE::ARGINT,nil)
+    addMMHandler(VRMediaView::MCIWNDM_NOTIFYSIZE, "sizechanged",MSGTYPE::ARGNONE,nil)
+    addMMHandler(VRMediaView::MCIWNDM_NOTIFYMEDIA,"mediachanged",MSGTYPE::ARGSTRING,nil)
+  end
+
+  def mediaopen(filename,flag=0)
+    sendMessage  MCIWNDM_OPEN,flag,filename
+    sendMessage  MCIWNDM_SETOWNER,@parent.hWnd,0
+  end
+
+  def play()         sendMessage MCI_PLAY,0,0 end
+  def pause()        sendMessage MCI_PAUSE,0,0 end
+  def stop()         sendMessage MCI_STOP,0,0 end
+  def mediaclose()   sendMessage MCI_CLOSE,0,0 end
+  def eject()        sendMessage MCI_EJECT,0,0 end
+  def step(n=1)      sendMessage MCI_STEP,0,n.to_i end
+  def seek(pos)      sendMessage MCI_SEEK,0,pos.to_i end
+  def seekHome()     sendMessage MCI_SEEK,0,-1 end
+  def seekEnd()      sendMessage MCI_SEEK,0,-2 end
+
+  def playable?()    sendMessage(MCIWNDM_CAN_PLAY,0,0)!=0 end
+  def ejectable?()   sendMessage(MCIWNDM_CAN_EJECT,0,0)!=0 end
+  def window?()      sendMessage(MCIWNDM_CAN_WINDOW,0,0)!=0 end
+
+  def length()       sendMessage MCIWNDM_GETLENGTH,0,0 end
+  def position()     sendMessage MCI_SEEK,0,0 end
+  
+  def volume=(vl)    sendMessage MCIWNDM_SETVOLUME,0,vl.to_i end
+  def volume()       sendMessage MCIWNDM_GETVOLUME,0,0 end
+  def speed=(sp)     sendMessage MCIWNDM_SETSPEED,0,sp.to_i end
+  def speed()        sendMessage MCIWNDM_GETSPEED,0,0 end
+  def zoom=(zm)      sendMessage MCIWNDM_SETZOOM,0,zm.to_i end
+  def zoom()         sendMessage MCIWNDM_GETZOOM,0,0 end
+  
+  def mode
+    p="\0                               "  #32bytes
+    sendMessage MCIWNDM_GETMODE,31,p
+    p
+  end
+  
+  def modestring(n)
+    case n
+      when 524; "not_ready"
+      when 525; "stopped"
+      when 526; "playing"
+      when 527; "recording"
+      when 528; "seeking"
+      when 529; "paused"
+      when 530; "open"
+      else;     "unknown_mode"
+    end
+  end
+  
+  def errorstring
+    p="\0                               "*8  #256bytes
+    sendMessage MCIWNDM_GETERROR,255,p
+    p
+  end
+  
+end
+
+if VR_COMPATIBILITY_LEVEL then
+  require VR_DIR + 'compat/vrmmedia.rb'
+end