vruby 2004.08.07

data/lib/vr/vrtimer.rb

@@ -0,0 +1,150 @@
+###################################
+#
+# vrtimer.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'
+require "Win32API"
+
+=begin
+= VisualuRuby(tmp) Module(s) for Timer
+<<<handlers.rd
+=end
+
+
+
+module VRTimerFeasible
+=begin
+== VRTimerFeasible
+Interval Timers.
+This module prepares create/delete interval timers.
+
+=== Methods
+--- addTimer(interval=1000,timername="self")
+    Creates an interval timer whose name is defined by ((|timername|)).
+    Interval timers invoke ((|timername|))_timer method every interval times 
+    in millisecond.
+
+--- deleteTimer(timername="self")
+    Deletes an interval timer whose name is ((|timername|))
+
+--- timeralive?(timername="self")
+    Returns boolean whether timer is alive or not.
+
+=== Event handler
+--- ????_timer
+    Fired every interval times by the interval timer.
+=end
+
+
+  include VRMessageHandler
+
+  SetTimer  = Win32API.new("USER32", "SetTimer",['L', 'I', 'I', 'L'], 'I')
+  KillTimer = Win32API.new("USER32", "KillTimer",['L', 'L'], 'I')
+  WM_TIMER = 275
+
+ private
+
+  def newtimerid
+    @_vr_timernextid=0 unless defined? @_vr_timernextid
+    @_vr_timernextid+=1
+  end
+
+ public
+ 
+  def self_vrtimer(id)       # WM_TIMER handler
+    name=@_vr_timers[id][0].dup
+    class << name
+      def name; self; end
+    end
+#    name += "_"+"timer"
+#    selfmsg_dispatching(name)
+    controlmsg_dispatching(name,"timer")
+#
+    send(name) if respond_to?(name)
+  end
+
+ def vrinit
+    super
+    timerfeasibleinit
+  end
+
+  def timerfeasibleinit
+    @_vr_timerinterval=1000
+    addHandler WM_TIMER,  "vrtimer",  MSGTYPE::ARGWINT,nil  #check
+    addEvent WM_TIMER
+    addNoRelayMessages [WM_TIMER]
+  end
+
+  def addTimer(interval=1000,timername="self")
+    id=newtimerid
+    SetTimer.call(self.hWnd,id,interval,0)
+    @_vr_timers=[] unless defined? @_vr_timers
+    @_vr_timers[id] = [timername,interval]
+    id
+  end
+
+  def deleteTimer(timername="self")
+    id=timerid(timername)
+
+   if id then
+      KillTimer.call(self.hWnd,id)
+      @_vr_timers[id]=nil
+    else
+      raise RuntimeError,"No such Timer"
+    end
+  end
+  
+  def timerid(timername="self")
+    return nil unless @_vr_timers
+    r=nil
+    1.upto(@_vr_timers.size-1) do |i|
+      if @_vr_timers[i] and @_vr_timers[i][0]==timername then
+        r=i
+      end
+    end
+    r
+  end
+
+  def timeralive?(tname="self")
+    timerid(tname).is_a?(Integer)
+  end
+end
+
+=begin sample
+require 'vrcontrol'
+module Test
+  include VRTimerFeasible
+
+  def construct
+    self.caption="test"
+    go=addControl VRButton,"delete","delete",10,10,100,20
+    addTimer 1000,"t1"
+    addTimer 1200,"t2"
+  end
+
+  def t1_timer
+    p "t1"
+  end
+  def t2_timer
+    print timeralive?("t1") ,":", timeralive?("t2"),"\n"
+  end
+
+  def delete_clicked
+    deleteTimer "t1"
+  end
+
+end
+
+VRLocalScreen.showForm(Test)
+VRLocalScreen.messageloop
+=end

data/lib/vr/vrtooltip.rb

@@ -0,0 +1,274 @@
+###################################
+#
+# vrtooltip.rb
+# Programmed by  nyasu <nyasu@osk.3web.ne.jp>
+# Copyright 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'
+
+module WMsg
+  TTM_ACTIVATE       = WM_USER + 1
+  TTM_SETDELAYTIME   = WM_USER + 3
+  TTM_ADDTOOL        = WM_USER + 4
+  TTM_DELTOOL        = WM_USER + 5
+  TTM_RELAYEVENT     = WM_USER + 7
+  TTM_GETTOOLINFO    = WM_USER + 8
+  TTM_SETTOOLINFO    = WM_USER + 9
+  TTM_GETTEXT        = WM_USER + 11
+  TTM_GETTOOLCOUNT   = WM_USER + 13
+  TTM_TRACKACTIVATE  = WM_USER + 17
+  TTM_TRACKPOSITION  = WM_USER + 18
+  TTM_SETTIPBKCOLOR  = WM_USER + 19
+  TTM_SETTIPTEXTCOLOR= WM_USER + 20
+  TTM_GETDELAYTIME   = WM_USER + 21
+  TTM_GETTIPBKCOLOR  = WM_USER + 22
+  TTM_GETTIPTEXTCOLOR= WM_USER + 23
+  TTM_SETMAXTIPWIDTH = WM_USER + 24
+  TTM_GETMAXTIPWIDTH = WM_USER + 25
+
+  TTN_NEEDTEXT   = 0x100000000-520 
+  TTN_SHOW       = 0x100000000-521 
+  TTN_POP        = 0x100000000-522 
+end
+
+module WConst
+  TTF_IDISHWND   = 1
+  TTF_CENTERTIP  = 2
+  TTF_SUBCLASS   = 16
+end
+
+module WStruct
+  TOOLINFO = "IILLllllLp"
+end
+
+class VRTooltip < SWin::Window
+=begin
+== VRTooltip
+This is a class for Tooltip window.
+Tooltip windows are created by VRScreen.createTooltip()
+
+=== Methods
+--- addTool(cntl,text)
+    Assigns a tooltip text for ((|cntl|)).
+    Returns a tooltip identifier.
+--- addToolArea([sx,sy,ex,ey],text,wnd=self)
+    Assigns a tooltip text for the area in the parent window.
+    ((|sx|)) and ((|sy|)) indicate left-top corner,
+     and ((|ex|)) and ((|ey|)) indicate right-bottom corner.
+    Returns a tooltip identifier.
+--- delTool(idf)
+    Deletes a tool identified by ((|idf|)) returned by addTool or addToolArea
+--- enumTool
+    Yields all tool identifiers.
+--- maxtipwidth
+--- maxtipwidth=(mw)
+    About the tooltip width. 
+    If you are to use multiline tooltip, set this parameter.
+--- autopopTime
+--- autopopTime=
+    Sets/Gets time length that tooltip remains visible.
+--- initialTime
+--- initialTime=
+    Sets/Gets time length that the pointer must remain stationary.
+--- reshowTime
+--- reshowTime=
+    Sets/Gets time length to reshow another tool's tooltip.
+
+--- bkColor
+--- bkColor=
+    Sets/Gets background color of tooltip window
+
+--- textColor
+--- textColor=
+    Sets/Gets text color of tooltip window
+    
+--- activate=(f)
+    ((|f|)) is boolean. This activates/deactivates the tooltip.
+=end
+
+  class VRTooltipTool
+    attr :hwnd
+    attr :uid
+    attr :tool
+    def initialize(hwnd,uid,tool)
+      @hwnd,@uid,@tool = hwnd,uid,tool
+    end
+  end
+
+private
+  def initialize
+    self.classname = "tooltips_class32"
+    self.style=1
+    self.exstyle= WExStyle::WS_EX_TOPMOST | WExStyle::WS_EX_TOOLWINDOW
+    @_vr_tools={}
+  end
+
+  def classcheck(cls,obj)
+    (eval("defined?(#{cls})") and obj.is_a?(eval(cls)))
+  end
+
+  def createTIPTOOLCore(wnd=@parent)
+    size=4*10
+    flag=WConst::TTF_SUBCLASS
+    hwnd=wnd.hWnd
+    uid= sx= sy= ex= ey= 0
+    hinst=@screen.application.hInstance
+    text=""
+    [size,flag,hwnd,uid,sx,sy,ex,ey,hinst,text]
+  end
+
+  def addToolCore(ti)
+    tis=ti.pack(WStruct::TOOLINFO)
+    sendMessage WMsg::TTM_ADDTOOL,0,tis
+  end
+
+  def getTOOLINFOCore(hwnd,uid)
+    ti=createTIPTOOLCore
+    ti[2]=hwnd
+    ti[3]=uid
+    ti[9] = "\0\0\0\0" * (1024/4+1)   # /* Thanks, Wayne Vucenic */
+    tis = ti.pack(WStruct::TOOLINFO)
+    sendMessage WMsg::TTM_GETTOOLINFO,0,tis
+    tis.unpack(WStruct::TOOLINFO)
+  end
+
+public
+
+  def setparam(parent,screen)
+    @parent,@screen = parent,screen unless defined? @screen
+  end
+
+  def activate=(f)
+    i = if f then 1 else 0 end
+    sendMessage WMsg::TTM_ACTIVATE,i,0
+  end
+
+  def maxtipwidth=(w)
+    s=[w].pack("L")
+    sendMessage WMsg::TTM_SETMAXTIPWIDTH,0,s
+  end
+
+  def maxtipwidth
+    sendMessage WMsg::TTM_GETMAXTIPWIDTH,0,0
+  end
+
+  def autopopTime
+    sendMessage WMsg::TTM_GETDELAYTIME,2,0
+  end
+  def initialTime
+    sendMessage WMsg::TTM_GETDELAYTIME,3,0
+  end
+  def reshowTime
+    sendMessage WMsg::TTM_GETDELAYTIME,1,0
+  end
+  def autopopTime=(msec)
+    sendMessage WMsg::TTM_SETDELAYTIME,2,MAKELPARAM(msec,0)
+  end
+  def initialTime=(msec)
+    sendMessage WMsg::TTM_SETDELAYTIME,3,MAKELPARAM(msec,0)
+  end
+  def reshowTime=(msec)
+    sendMessage WMsg::TTM_SETDELAYTIME,1,MAKELPARAM(msec,0)
+  end
+
+  def bkColor
+    sendMessage WMsg::TTM_GETTIPBKCOLOR,0,0
+  end
+  def bkColor=(c)
+    sendMessage WMsg::TTM_SETTIPBKCOLOR,c.to_i,0
+  end
+  def textColor
+    sendMessage WMsg::TTM_GETTIPTEXTCOLOR,0,0
+  end
+  def textColor=(c)
+    sendMessage WMsg::TTM_SETTIPTEXTCOLOR,c.to_i,0
+  end
+
+  def addTool(cnt,text)
+    if classcheck("VRStatic",cnt) then
+      sx=cnt.x; sy=cnt.y; ex=sx+cnt.w; ey=sy+cnt.h
+      rect = [sx,sy,ex,ey]
+      return addToolArea(rect,text)
+    end
+    if classcheck("VRToolbar::VRToolbarButton",cnt) then
+      rect = [0,0,0,0].pack("LLLL")
+      cnt.toolbar.sendMessage WMsg::TB_GETITEMRECT,cnt.index,rect
+      return addToolArea(rect.unpack("LLLL"),text,cnt.toolbar)
+    end
+
+    ti = createTIPTOOLCore
+    ti[1] |= WConst::TTF_IDISHWND 
+    ti[3] = cnt.hWnd
+    ti[9] =text
+    addToolCore(ti)
+    @_vr_tools[ ti[2,2] ] = VRTooltipTool.new(@parent.hWnd,cnt.hWnd,cnt)
+  end
+
+  def addToolArea(rect,text,wnd=@parent)
+    sx,sy,ex,ey = *rect
+    ti = createTIPTOOLCore wnd
+    ti[3] = @parent.newControlID
+    ti[4]=sx ; ti[5]=sy; ti[6]=ex ; ti[7]=ey
+    ti[9] =text
+    addToolCore(ti)
+    @_vr_tools[ ti[2,2] ] = VRTooltipTool.new(@parent.hWnd,ti[3],rect)
+  end
+
+  def delTool(ttt)
+    raise "Requires VRTooltipTool (#{ttt.class})" unless ttt.is_a?(VRTooltipTool)
+    ti=createTIPTOOLCore
+    ti[2] = ttt.hwnd
+    ti[3] = ttt.uid
+    tts = ti.pack(WStruct::TOOLINFO)
+    @_vr_tools.delete(ti[2,2])
+    sendMessage WMsg::TTM_DELTOOL,0,tts
+  end
+
+  def enumTool
+    r = sendMessage WMsg::TTM_GETTOOLCOUNT,0,0
+    raise "Unknown error" if r!=@_vr_tools.size
+    @_vr_tools.each do |key,val|
+      yield val
+    end
+  end
+
+  def getTextOf(ttt,maxlength=1024)  # there is no way to determine the length
+    ti = createTIPTOOLCore
+    buffer = "\0\0\0\0" * (maxlength/4+1) 
+    ti[2] = ttt.hwnd
+    ti[3] = ttt.uid
+    ti[9] = buffer
+    tis = ti.pack(WStruct::TOOLINFO)
+    sendMessage WMsg::TTM_GETTEXT,0,tis
+    buffer.gsub!(/\0.*/,'')
+    buffer
+  end
+
+  def setTextOf(ttt,text)
+    ti = getTOOLINFOCore(ttt.hwnd,ttt.uid)
+    ti[9] = text
+    tis = ti.pack(WStruct::TOOLINFO)
+    sendMessage WMsg::TTM_SETTOOLINFO,0,tis
+  end
+
+end
+
+
+class VRForm
+  attr :tooltip
+  def createTooltip
+    return tooltip if defined?(@tooltip) && @tooltip
+    @tooltip = @screen.factory.newwindow(self,VRTooltip)
+    @tooltip.setparam self,@screen
+    @tooltip.create
+    @tooltip.etc =  newControlID # error occurs if this line is before creation
+    @tooltip.top(-1)
+  end
+end
+

data/lib/vr/vrtray.rb

@@ -0,0 +1,144 @@
+###################################
+#
+# vrtray.rb
+# Programmed by  nyasu <nyasu@osk.3web.ne.jp>
+# Copyright 2002,2003 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'
+
+module VRTrayiconFeasible
+=begin
+== VRTrayiconFeasible
+This modules is included to create/delete/modify tray icons.
+
+=== Methods
+--- create_trayicon(icon=DEFAULTICON,tiptext="",icon_id=0)
+    Creates new trayicon in the tasktray.((|icon|)) is hIcon of the trayicon and
+    the trayicon has tooltip text ((|tiptext|)).
+    When argument ((|icon|)) is nil, icon will set as DEFAULTICON.
+    To distinguish multiple trayicon, ((|icon_id|)) information is added to it.
+--- delete_trayicon(icon_id=0)
+    Deletes the trayicon specified by ((|icon_id|))
+--- modify_trayicon(hicon,tiptext,iconid=0)
+    Modifies the trayicon's icon/tiptext.
+
+=== Event Handlers
+--- self_traymousemove(icon_id)
+    Fired when mouse cursor is moved over the trayicon.
+--- self_traylbuttondown(icon_id)
+    Fired when mouse left-button down on the trayicon.
+--- self_traylbuttonup(icon_id)
+    Fired when mouse left-button up on the trayicon.
+--- self_trayrbuttondown(icon_id)
+    Fired when mouse right-button down on the trayicon.
+--- self_trayrbuttonup(icon_id)
+    Fired when mouse right-button up on the trayicon.
+=end
+
+
+  include VRUserMessageUseable
+
+  Shell_NotifyIcon=Win32API.new("shell32","Shell_NotifyIcon","IP","I")
+  
+  NOTIFYICONDATA_a = "IIIIII"
+  DEFAULTICON = Win32API.new("user32","LoadIcon","II","I").call(0,32512)
+
+  NIF_MESSAGE = 1
+  NIF_ICON    = 2
+  NIF_TIP     = 4
+  NIM_ADD     = 0
+  NIM_MODIFY  = 1
+  NIM_DELETE  = 2
+
+  def vrinit
+    super
+    trayiconfeasibleinit
+  end
+  
+  def trayiconfeasibleinit
+    @_vr_traynotify_msg = registerUserMessage(ReservedMsg::WM_VR_TRAYNOTIFY,"_vr_traynotify")
+  end
+
+  def create_trayicon(icon=DEFAULTICON,tiptext="",iconid=0)
+    icon = DEFAULTICON unless icon
+    tip = tiptext.to_s
+    s = [4*6+64,
+          self.hWnd,iconid,NIF_MESSAGE|NIF_ICON|NIF_TIP,
+          @_vr_traynotify_msg,icon ].pack(NOTIFYICONDATA_a) << 
+        tip << "\0"*(64-tip.length)
+    Shell_NotifyIcon.call(NIM_ADD,s)
+  end
+
+  def delete_trayicon(iconid=0)
+    s = [4*6+64,
+          self.hWnd,iconid,0,0,0].pack(NOTIFYICONDATA_a) << "\0"*64
+    Shell_NotifyIcon.call(NIM_DELETE,s)
+  end
+
+  def modify_trayicon(hicon,tiptext,iconid=0)
+    flag=0
+    if hicon then
+      flag |= NIF_ICON
+    end
+    if tiptext then
+      flag |= NIF_TIP
+    end
+    tip = tiptext.to_s
+    s = [4*6+64, self.hWnd,iconid,flag,0,hicon.to_i].pack(NOTIFYICONDATA_a) << 
+        tip << "\0"*(64-tip.length)
+    Shell_NotifyIcon.call(NIM_MODIFY,s)
+  end
+
+  def self__vr_traynotify(wparam,lparam)
+    case lparam
+    when WMsg::WM_MOUSEMOVE
+      selfmsg_dispatching("traymousemove",wparam)
+    when WMsg::WM_LBUTTONDOWN
+      selfmsg_dispatching("traylbuttondown",wparam)
+    when WMsg::WM_LBUTTONUP
+      selfmsg_dispatching("traylbuttonup",wparam)
+    when WMsg::WM_RBUTTONDOWN
+      selfmsg_dispatching("trayrbuttondown",wparam)
+    when WMsg::WM_RBUTTONUP
+      selfmsg_dispatching("trayrbuttonup",wparam)
+    end
+  end
+
+end
+
+module VRTasktraySensitive
+=begin
+== VRTasktraySensitive
+This modules enables to sense the tasktray creation on restarting explorer.
+The deleted tasktray icons can be created again using this module and writing 
+in its event handler how to do it.
+
+=== Event Handlers
+--- self_taskbarcreated
+    Fired when the explorer restarts and creates its tasktray.
+=end
+
+  RegisterWindowMessage = Win32API.new("user32","RegisterWindowMessage","P","L")
+  
+  def vrinit
+    super
+    tasktraysensitive
+  end
+  
+  def tasktraysensitive   # coded by Katonbo-san
+    # get message ID of 'TaskbarCreated' message
+    id_taskbar_created = RegisterWindowMessage.call('TaskbarCreated')
+    
+    # prepare 'TaskbarCreated' message handler
+    addHandler(id_taskbar_created, 'taskbarcreated', MSGTYPE::ARGNONE, nil)
+    addEvent(id_taskbar_created)
+  end
+end
+
+