vruby 2004.08.07

data/lib/vr/vrolednd.rb

@@ -0,0 +1,193 @@
+###################################
+#
+# vrolednd.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 VR_DIR+'dragdropformat'
+
+module OleDnDConstants
+  IDROPTARGET_NOTIFY_DRAGENTER=0
+  IDROPTARGET_NOTIFY_DRAGOVER=1
+  IDROPTARGET_NOTIFY_DRAGLEAVE=2
+  IDROPTARGET_NOTIFY_DROP=3
+
+  DROPEFFECT_NONE=0
+  DROPEFFECT_COPY=1
+  DROPEFFECT_MOVE=2
+  DROPEFFECT_LINK=4
+end
+
+
+module VROleDropTarget
+=begin
+== VROleDropTarget
+   A module for OLE drop target.
+   Include this module to make a window as an ole drop target.
+=== Instance Variables
+--- vr_oledropmessage
+    Message ID to notify OLE drag-and-drop matter.
+=== Methods
+--- start_oledroptarget(formats)
+    Starts the window as OLE drop target.
+    ((|formats|)) is an array of acceptable formats (CF_TEXT, and so on).
+
+=== Event handlers
+--- self_oledragenter(format,keystate)
+    This notifies entering OLE drag on the window.
+    This method must return ((|Effects|)). The default effect is DROPEFFECT_COPY.
+--- self_oledragover(keystate)
+    This notifies OLE dragging cursor is moving on the window.
+    This method must return ((|Effects|)) or ((|nil|)). 
+    ((|nil|)) means "same as before". The default effect is ((|nil|)).
+--- self_oledragleave
+    This notifies leaving OLE drag cursor.
+--- self_oledrop(handle,format,keystate)
+    This notifies the item is dropped. Global heap handle of ((|handle|)) 
+    containing the contents of dropped object. 
+    When the object is multi-formattedformat, it's in the first format that 
+    appears in the argument array of start_oledroptarget() .
+=end
+
+  include ClipboardFormat
+  include OleDnDConstants
+  include VRUserMessageUseable
+
+  IDROPTARGET_NOTIFY = "IIIIII"  #*ppt,dwEffect,grfKeyState,cfFormat,hMem,*data
+
+  def vrinit
+    super
+    oledroptargetinit
+  end
+
+  def oledroptargetinit
+    @vr_oledropmessage = registerUserMessage(ReservedMsg::WM_VR_OLEDND,"vr_olednd",0)
+    addEvent @vr_oledropmessage
+  end
+
+  def start_oledroptarget(formats)
+    self.dndTargetStart( @vr_oledropmessage ,formats )
+  end
+
+  def self_vr_olednd(wparam,lparam)
+    notify = @screen.application.cstruct2array(lparam,IDROPTARGET_NOTIFY)
+    @vr_olednd_notify=notify
+    case wparam
+    when IDROPTARGET_NOTIFY_DRAGENTER
+        if notify[3]==0 then
+          @screen.application.pokeMemory(lparam+4,0,4) # effect none
+          return
+        end
+        r = selfmsg_dispatching("oledragenter",notify[3],notify[2]).to_i
+        @screen.application.pokeMemory(lparam+4,r,4) # effect r
+    when IDROPTARGET_NOTIFY_DRAGOVER
+        r = selfmsg_dispatching("oledragover",notify[2]) 
+        if r then
+          r = r.to_i
+          @screen.application.pokeMemory(lparam+4,r,4) # effect r
+        end
+    when IDROPTARGET_NOTIFY_DRAGLEAVE
+        selfmsg_dispatching("oledragleave")
+    when IDROPTARGET_NOTIFY_DROP
+        return if notify[3]==0
+#        selfmsg_dispatching("oledropraw",dataobj,notify[2])
+        selfmsg_dispatching("oledrop",notify[4],notify[3],notify[2])
+    end
+    @vr_olednd_notify=nil
+  end
+
+  def self_oledragenter(format,keystate)
+    DROPEFFECT_COPY
+  end
+
+  def self_oledragover(keystate)
+    nil
+  end
+
+  def self_oledragleave
+  end
+
+  def self_oledrop(handle,format,keystate)
+  end
+end
+
+
+module VROleDragSourceLow
+=begin
+== VROleDragSourceLow
+   A module for OLE drag source. (low level)
+
+=== Methods
+--- start_oledragsource(formats,effect= DROPEFFECT_COPY|DROPEFFECT_MOVE)
+    Starts OLE Drag Drop. The dragged object is in the formats of ((|formats|)).
+    Acceptable effects is to be set for ((|effect|)).
+
+=== Event handlers
+--- self_getoledragitem(format)
+    Fired when DropTarget requires the dragged data in the ((|format|))
+    This method must return the Global heap handle containing the dragged object.
+    If the handle is not available, return 0.
+=end
+
+  include ClipboardFormat
+  include OleDnDConstants
+  include VRUserMessageUseable
+  
+  def vrinit
+    super
+    oledragsourcelowinit
+  end
+  
+  def oledragsourcelowinit
+    @vr_oledragmessage = registerUserMessage(ReservedMsg::WM_VR_OLEDND,"vr_oledrag",0)
+    addEvent @vr_oledragmessage
+  end
+
+  def set_dragobj_lparam(lparam,hMem)
+    @screen.application.pokeMemory(lparam,hMem,4)
+  end
+
+  def start_oledragsource(formats,effect=0x3)
+    dndSourceStart @vr_oledragmessage,formats,effect
+  end
+
+  def self_vr_oledrag(wparam,lparam)
+    handle = selfmsg_dispatching("getoledragitem",wparam).to_i
+    set_dragobj_lparam(lparam,handle)
+  end
+
+  def self_getoledragitem(format)
+    0
+  end
+
+end
+
+module VROleDragSource
+  include VROleDragSourceLow
+
+  def start_oledrag(objs,effect=0x3)
+    @_vr_draghash={}
+    formats = []
+    objs.each do |o| 
+      formats.push o.objectformat 
+      @_vr_draghash[o.objectformat] = o
+    end
+    start_oledragsource(formats,effect)
+  end
+
+  def self_getoledragitem(format)
+    return 0 unless @_vr_draghash
+
+    ddobj = @_vr_draghash[format]
+
+    if ddobj then ddobj.handle else 0 end
+  end
+
+end

data/lib/vr/vrowndraw.rb

@@ -0,0 +1,109 @@
+###################################
+#
+# vrowndraw.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+'vrcontrol'
+
+module WMsg
+  WM_DRAWITEM = 0x002B
+end
+
+module VROwnerDrawControlContainer
+=begin
+== VROwnerDrawControlContainer
+This module provides a message handler for WM_DRAWITEM.
+VRForm includes this module automatically loading "vrowndraw.rb".
+=end
+
+  include VRMessageHandler
+
+  HANDLERNAME="ownerdraw"
+
+  def ownerdrawinit
+    addHandler(WMsg::WM_DRAWITEM,"vrwmdrawitem",
+               MSGTYPE::ARGINTSTRUCT,"UUUUUUUUUUUU")
+    addEvent WMsg::WM_DRAWITEM
+    addNoRelayMessages [WMsg::WM_DRAWITEM]
+  end
+  
+  def vrinit
+    super
+    ownerdrawinit
+  end
+  
+  def self_vrwmdrawitem(wParam,args)
+    id=LOWORD(wParam)
+    ct=@controls[id]       # Activated Control
+
+    return unless ct  # can't find?
+    r=0
+    ct.dopaint(args[6]) do
+      if ct.respond_to?(HANDLERNAME)
+        r=ct.__send__(HANDLERNAME,*args[2..11]) 
+      end
+    end
+    SKIP_DEFAULTHANDLER[r]
+  end
+end
+
+module VRContainersSet
+  include VROwnerDrawControlContainer
+end
+
+
+
+class VROwnerDrawButton < VRButton
+=begin
+== VROwnerDrawButton
+Owner draw button.
+This is just a button but the system doesn't draw button faces.
+It's necessary to draw button face manually.
+
+=== Required methods
+In these method, it doesn't need to call ((*dopaint*)).
+
+--- drawpushed(left,top,right,bottom,state)
+    Draws the pushed button face.
+--- drawreleased(left,top,right,bottom,state)
+    Draws the released button face.
+--- drawfocused(left,top,right,bottom,state)
+    Draws the focused button face. 
+    This method is fired after drawpushed or drawreleased.
+=end
+
+  BS_OWNERDRAW = 0x0000000B
+  WINCLASSINFO = ["BUTTON", BS_OWNERDRAW]
+
+  def ownerdraw(iid,action,state,hwnd,hdc,left,top,right,bottom,data)
+    self.opaque=false
+    if (pushed = ((state & 1)>0) ) then
+      drawpushed(left,top,right,bottom,state)
+      @parent.controlmsg_dispatching(self,
+          "drawpushed",left,top,right,bottom,state)
+    else
+      drawreleased(left,top,right,bottom,state)
+      @parent.controlmsg_dispatching(self,
+          "drawreleased",left,top,right,bottom,state)
+    end
+    
+    if (state & 0x10)>0 then
+      drawfocused(left,top,right,bottom,state)
+      @parent.controlmsg_dispatching(self,
+          "drawfocused",left,top,right,bottom,state)
+    end
+  end
+
+  def drawpushed(left,top,right,bottom,state) end
+  def drawreleased(left,top,right,bottom,state) end
+  def drawfocused(left,top,right,bottom,state) end
+end
+
+

data/lib/vr/vrrichedit.rb

@@ -0,0 +1,335 @@
+###################################
+#
+# vrrichedit.rb
+# Programmed by  nyasu <nyasu@osk.3web.ne.jp>
+# Copyright 2000-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+'vrcontrol'
+require VR_DIR+'rscutil'
+require 'Win32API'
+
+module WMsg
+  EM_EXGETSEL      = WM_USER+52
+  EM_EXLINEFROMCHAR= WM_USER+54
+  EM_EXSETSEL      = WM_USER+55
+  EM_GETCHARFORMAT = WM_USER+58
+  EM_GETEVENTMASK  = WM_USER+59
+  EM_GETPARAFORMAT = WM_USER+61
+  EM_SETBKGNDCOLOR = WM_USER+67
+  EM_SETCHARFORMAT = WM_USER+68
+  EM_SETEVENTMASK  = WM_USER+69
+  EM_SETPARAFORMAT = WM_USER+71
+  EM_FINDTEXTEX    = WM_USER+79
+  EM_SETLANGOPTIONS= WM_USER+120
+end
+
+
+class VRRichedit < VRText
+=begin
+== VRRichedit
+This class represents RichEdit Control.
+The parent class is VRText and this also has the same methods and event handlers.
+
+=== Overwritten Methods
+These methods are overwritten to support over64k texts.
+--- getSel
+--- setSel(st,en,noscroll=0)
+--- char2line(ptr)
+
+=== Methods
+--- setTextFont(fontface,height=280,area=SCF_SELECTION)
+    Sets the text font. ((|area|)) parameter limits the changed area.
+--- getTextFont(selarea=true)
+    Gets the text font and its size of the area. 
+    If selarea is true, the area is the selected area and the other case, 
+    it means the default font.
+--- setTextColor(col,area=SCF_SELECTION)
+    Sets the color of the text in the area.
+--- getTextColor(selarea=true)
+    Gets the text color in the area which is same as ((<getTextFont>)).
+--- setBold(flag=true,area=SCF_SELECTION)
+    Sets or resets the text style into BOLD.
+    When ((|flag|)) is true, the text is set to bold style.
+--- setItalic(flag=true,area=SCF_SELECTION)
+    Sets or resets the text style into ITALIC.
+--- setUnderlined(flag=true,area=SCF_SELECTION)
+    Sets or resets the text style into UNDERLINED.
+--- setStriked(flag=true,area=SCF_SELECTION)
+    Sets or resets the text style into STRIKE_OUT.
+--- bold?(selarea=true)
+    Inspects whether the text style in the area is bold or not.
+    If ((|selarea|)) is true, the area is selected area.
+--- italic?(selarea=true)
+    Inspects whether the text style in the area is italic or not.
+--- underlined?(selarea=true)
+    Inspects whether the text style in the area is underlined or not.
+--- striked?(selarea=true)
+    Inspects whether the text style in the area is striked out or not.
+--- setAlignment(align)
+    Sets text alignment of current paragraph. ((|align|)) can be PFA_LEFT,
+    PFA_RIGHT or PFA_CENTER of VRRichedit constansts.
+--- bkcolor=(color)
+    Sets the background color of the control.
+--- selformat(area=SCF_SELECTION)
+    Gets the text format in ((|area|)). The return value is an instance of 
+    FontStruct defined in rscutil.rb.
+--- selformat=(format)
+    Set the text format in the selected area. ((|format|)) must be an instance
+    of FontStruct.
+=end
+
+  CFM_BOLD      = 0x00000001
+  CFM_ITALIC    = 0x00000002
+  CFM_UNDERLINE = 0x00000004
+  CFM_STRIKEOUT = 0x00000008
+  CFM_PROTECTED = 0x00000010
+  CFM_LINK      = 0x00000020
+  CFM_SIZE      = 0x80000000
+  CFM_COLOR     = 0x40000000
+  CFM_FACE      = 0x20000000
+  CFM_OFFSET    = 0x10000000
+  CFM_CHARSET   = 0x08000000
+
+  CFE_BOLD      = 0x0001
+  CFE_ITALIC    = 0x0002
+  CFE_UNDERLINE = 0x0004
+  CFE_STRIKEOUT = 0x0008
+  CFE_PROTECTED = 0x0010
+  CFE_LINK      = 0x0020
+  CFE_AUTOCOLOR = 0x40000000
+
+  SCF_SELECTION = 0x0001
+  SCF_WORD      = 0x0002
+  SCF_DEFAULT   = 0x0000
+  SCF_ALL       = 0x0004     # not valid with SCF_SELECTION or SCF_WORD
+  SCF_USEUIRULES= 0x0008
+
+  PFA_LEFT  = 0x0001
+  PFA_RIGHT = 0x0002
+  PFA_CENTER= 0x0003
+  PFM_STARTINDENT = 0x00000001
+  PFM_RIGHTINDENT = 0x00000002
+  PFM_OFFSET      = 0x00000004
+  PFM_ALIGNMENT   = 0x00000008
+  PFM_TABSTOPS    = 0x00000010
+  PFM_NUMBERING   = 0x00000020
+  PFM_OFFSETINDENT= 0x80000000
+
+  module EventMaskConsts
+    ENM_CHANGE = 0x00000001
+    ENM_UPDATE = 0x00000002
+    ENM_SCROLL = 0x00000004
+  end
+
+  class EventMask < Flags
+    CONSTMOD="VRRichedit::EventMaskConsts"
+   private
+    def integer_getter
+      @win.sendMessage WMsg::EM_GETEVENTMASK,0,0
+    end
+
+    def integer_setter(f)
+      @win.sendMessage WMsg::EM_SETEVENTMASK,0,f
+    end
+  end
+
+  CHARFORMATSIZE=60
+  MAX_TAB_STOPS=32
+  DEFAULTTABS=[4,8,12,16,20,24,28,32,36,40,44,48,52,56,60,64,68,72,76]
+
+ private
+  loadlib = Win32API.new("kernel32","LoadLibrary",["P"],"I")
+
+  libhandle = 0
+
+=begin oop
+#This causes GeneralProtectionViolation maybe for the late of RichEdit releasing.
+  freelib = Win32API.new("kernel32","FreeLibrary",["I"],"")
+  at_exit {
+    freelib.call(libhandle)  
+  }
+=end
+
+  def textlength
+    sendMessage WMsg::WM_GETTEXTLENGTH,0,0
+  end
+
+  # ooooops !
+  if (libhandle=loadlib.call("riched20"))!=0 then
+    RICHVERSION=2
+    def self.Controltype()
+      ["RICHEDIT20A",WStyle::ES_MULTILINE|WStyle::WS_VSCROLL,0x200]#EX_CLIENTEDGE
+    end
+  elsif (libhandle=loadlib.call("riched32"))!=0 then
+    RICHVERSION=1
+    def self.Controltype()
+      ["RICHEDIT",WStyle::ES_MULTILINE|WStyle::WS_VSCROLL,0x200] #EX_CLIENTEDGE
+    end
+  else
+    raise "no richedit control found"
+  end
+
+
+ public
+
+  def richeditinit
+    sendMessage WMsg::EM_SETLANGOPTIONS,0,0
+    eventmask.enm_change=true
+  end
+
+  def vrinit
+    super
+    richeditinit
+  end
+
+  def text
+    len=textlength+1
+    buffer = "\0"*len
+    sendMessage WMsg::WM_GETTEXT,len,buffer
+    buffer[0..-2].gsub(/\r\n/,$/)
+  end
+
+ # parameter order is not the same of the return value of getcharformat()
+  def setcharformat(area,effects,col=0,mask=0xf800003f,
+                   font="System",height=280,off=0,pf=2,charset=128)
+    buffer = [CHARFORMATSIZE,mask,effects,
+              height,off,col,charset,pf].pack("LLLLLLCC")
+    buffer += font.to_s + "\0"
+    buffer += "\0"*(CHARFORMATSIZE-buffer.length)
+    sendMessage(WMsg::EM_SETCHARFORMAT,area,buffer)
+  end
+
+  def getcharformat(mask=0xf800003f,selectionarea=true)
+    buffer = [CHARFORMATSIZE,0,0,0,0,0].pack("LLLLLL")
+    buffer += "\0"* (CHARFORMATSIZE-buffer.length)
+    f = (selectionarea)? 1 : 0
+    sendMessage WMsg::EM_GETCHARFORMAT,f,buffer
+    return buffer.unpack("LLLLLLCC") << buffer[26..-2].delete("\0")
+  end
+
+  def setparaformat(mask=0x8000003f,numbering=false,startindent=0,rightindent=0,
+                    offset=0,align=PFA_LEFT,tabstops=DEFAULTTABS)
+    size=4*7+4*MAX_TAB_STOPS
+    fNumber= if numbering then 1 else 0 end
+    tabcount = (tabstops.size>MAX_TAB_STOPS)? MAX_TAB_STOPS : tabstops.size
+
+    buffer = [
+      size,mask,fNumber,startindent,rightindent,offset,align,tabcount
+    ].pack("LLLLLLII")
+    buffer += tabstops.pack("L*")
+    sendMessage WMsg::EM_SETPARAFORMAT,0,buffer
+  end
+
+## ## ## ##
+  def getSel
+    charrange = [0,0].pack("LL")
+    sendMessage WMsg::EM_EXGETSEL,0,charrange
+    return charrange.unpack("LL")
+  end
+  def setSel(st,en,noscroll=0)
+    charrange = [st,en].pack("LL")
+    r=sendMessage WMsg::EM_EXSETSEL,0,charrange
+    if(noscroll!=0 && noscroll) then
+      scrolltocaret
+    end
+    return r
+  end
+  def char2line(pt)
+    sendMessage WMsg::EM_EXLINEFROMCHAR,0,pt
+  end
+
+  def setTextFont(fontface,height=280,area=SCF_SELECTION)
+    setcharformat(area,0,0,CFM_FACE|CFM_SIZE,fontface,height)
+  end
+  def getTextFont(selarea=true)
+    r=getcharformat(CFM_FACE|CFM_SIZE,selarea)
+    return r[3],r[8]
+  end
+
+  def setTextColor(col,area=SCF_SELECTION)
+    setcharformat(area,0,col,CFM_COLOR)
+  end
+  def getTextColor(selarea=true)
+    getcharformat(CFM_COLOR,selarea)[5]
+  end
+
+  def setBold(flag=true,area=SCF_SELECTION)
+    f = (flag)? CFE_BOLD : 0
+    setcharformat(area,f,0,CFM_BOLD)
+  end
+
+  def setItalic(flag=true,area=SCF_SELECTION)
+    f = (flag)? CFE_ITALIC : 0
+    setcharformat(area,f,0,CFM_ITALIC)
+  end
+
+  def setUnderlined(flag=true,area=SCF_SELECTION)
+    f = (flag)? CFE_UNDERLINE : 0
+    setcharformat(area,f,0,CFM_UNDERLINE)
+  end
+
+  def setStriked(flag=true,area=SCF_SELECTION)
+    f = (flag)? CFE_STRIKEOUT : 0
+    setcharformat(area,f,0,CFM_STRIKEOUT)
+  end
+
+  def bold?(selarea=true)
+    r=getcharformat(CFM_BOLD,selarea)[2]
+    if (r&CFE_BOLD)==0 then false else true end
+  end
+  def italic?(selarea=true)
+    r=getcharformat(CFM_ITALIC,selarea)[2]
+    if (r&CFE_ITALIC)==0 then false else true end
+  end
+  def underlined?(selarea=true)
+    r=getcharformat(CFM_UNDERLINE,selarea)[2]
+    if (r&CFE_UNDERLINE)==0 then false else true end
+  end
+  def striked?(selarea=true)
+    r=getcharformat(CFM_STRIKEOUT,selarea)[2]
+    if (r&CFE_STRIKEOUT)==0 then false else true end
+  end
+
+  def setAlignment(align)
+    setparaformat(PFM_ALIGNMENT,false,0,0,0,align)
+  end
+
+  def selformat=(f)
+    raise "format must be an instance of FontStruct" unless f.is_a?(FontStruct)
+    effects = f.style*2 + if f.weight>400 then 1 else 0 end
+    height = if f.height>0 then f.height else f.point*2 end
+    offset=0
+    setcharformat SCF_SELECTION,effects,f.color,0xf800003f,f.fontface,height,
+                  offset,f.pitch_family,f.charset
+    f
+  end
+
+  def selformat(option=SCF_SELECTION)
+    r=getcharformat(option)
+    weight = if (r[2] & 1)>0 then 600 else 300 end
+    style = (r[2]/2) & 0xf  #mask 
+    width = r[3]/2          # tekitou....
+    point = r[3]/2
+    FontStruct.new2([r[8],r[3],style,weight,width,0,0,r[7],r[6]],point,r[5])
+  end
+
+  def bkcolor=(col)
+    if col then
+      sendMessage WMsg::EM_SETBKGNDCOLOR,0,col.to_i
+    else
+      sendMessage WMsg::EM_SETBKGNDCOLOR,1,0
+    end
+  end
+
+  def eventmask
+    EventMask.new(self)
+  end
+
+end
+