wrb 2.0.0

data/lib/wrb/components/ddeserver.rb

@@ -0,0 +1,131 @@
+#ddemlserver
+require 'wrb/ddeml'
+
+module WR
+  
+  # Provides Dynamic Data Exchange server.
+  class DdeServer < DDEML
+    def self.[](*args) self.new(*args); end
+    
+    def initialize(*args)
+      @_owner = args.shift if args[0].is_a?(Window)
+      appname, topic, codepage, timeout = args
+      @_appname = appname || raise(ArgumentError, "appname needed")
+      @_topic = topic || raise(ArgumentError, "topic needed")
+      @_codepage = codepage || CP_WINUNICODE
+      @__adv_value__ = {}
+    end
+    
+    def name
+      @_appname
+    end
+    
+    def parent()
+      @_owner
+    end
+    def parent=(win)
+      @_owner = win
+      create if @_owner.alive?
+    end
+    
+    def create() # will be called from owner window.
+      @sescallback = lambda{|uType, uFmt, hconv, htopic, hservice, hdata, dwData1, dwData2|
+        dispatchXTYP(uType, uFmt, hconv, htopic, hservice, hdata, dwData1, dwData2)
+      }
+      idinst = IDINST.new
+      API.DdeInitialize(idinst, @sescallback, APPCLASS_STANDARD | CBF_SKIP_ALLNOTIFICATIONS, 0)
+      @_idinst = idinst.value
+      @_hservice = str2h(@_appname.to_s)
+      @_htopic = str2h(@_topic)
+      API.DdeNameService(@_idinst, @_hservice, 0, DNS_REGISTER)
+      ObjectSpace.define_finalizer(self, 
+                                   self.class.callback_finalizer(@_idinst, @_hservice, @_htopic))
+    end
+    
+    def post_advise(topic, item)
+      API.DdePostAdvise(@_idinst, str2h(topic), str2h(item));
+    end
+    
+    private
+    def dispatchXTYP(uType, uFmt, hconv, htopic, hitem, hdata, dwData1, dwData2)
+      case uType
+      when  XTYP_CONNECT
+        return hitem==@_hservice && htopic==@_htopic ? 1 : 0
+      when  XTYP_REQUEST
+        if @_owner.respond_to?("#{@_appname}_request")
+          s = @_owner.__send__("#{@_appname}_request", h2str(htopic), h2str(hitem))
+          return data2h(hitem, s)
+        end
+      when  XTYP_POKE
+        if @_owner.respond_to?("#{@_appname}_poke")
+          @_owner.__send__("#{@_appname}_poke", h2str(htopic), h2str(hitem), h2data(hdata))
+          return DDE_FACK
+        end
+      when  XTYP_EXECUTE
+        if @_owner.respond_to?("#{@_appname}_execute")
+          @_owner.__send__("#{@_appname}_execute", h2str(htopic), h2str(hitem), h2data(hdata))
+          return DDE_FACK
+        end
+      when  XTYP_ADVSTART
+        if @_owner.respond_to?("#{@_appname}_advstart")
+          @_owner.__send__("#{@_appname}_advstart", h2str(htopic), h2str(hitem))
+          return DDE_FACK
+        end
+      when  XTYP_ADVREQ        
+        if @_owner.respond_to?("#{@_appname}_advreq")
+          data = @_owner.__send__("#{@_appname}_advreq", h2str(htopic), h2str(hitem))
+          return data2h(hitem, data) # Data will be automatically free when returned.
+        end
+      when  XTYP_ADVSTOP
+        if @_owner.respond_to?("#{@_appname}_advstop")
+          @_owner.__send__("#{@_appname}_advstop", h2str(htopic), h2str(hitem))
+          return DDE_FACK
+        end
+      else
+        # dp "@%#x", uType
+      end
+      return 0
+    end
+  end
+  
+end
+
+module WR
+  class MyForm < Form
+    def initialize()
+      resize 280, 210
+      self.caption = "DDEServer"
+      _<< Button[:bt1, "Advise", 0, 0, 100, 24]
+      _<< DdeServer[:mytest, "Mytopic"]
+      _<< DdeServer[:mytest, "Mytopic1"]
+    end
+    
+    def mytest_advstart(topic, item)
+      _.bt1.caption = "Advise start"
+    end
+    
+    def mytest_advstop(topic, item)
+      _.bt1.caption = "Advise stop"
+    end
+    
+    def bt1_clicked(*)
+      _.mytest[1].post_advise('Mytopic1', 'R1C1')
+    end
+    
+    def mytest_advreq(topic, item)#; dpp topic, item
+      'ABC123'
+    end
+    
+    def mytest_request(topic, item) #; dpp topic, item
+      "request: #{topic}, #{item}"
+    end
+    
+    def mytest_poke(topic, item, data)
+      dpp topic, item, data
+    end
+    
+    self.start
+  end
+    
+end if $0 == __FILE__
+  

data/lib/wrb/components/dialog.rb

@@ -0,0 +1,228 @@
+require 'wrb/toplevelcommon'
+
+module WR
+  module RC
+    #    DS_ABSALIGN = 0x01
+    DS_SYSMODAL = 0x02
+#    DS_LOCALEDIT = 0x20
+#    DS_SETFONT = 0x40
+#    DS_MODALFRAME = 0x80
+    DS_NOIDLEMSG = 0x100
+    DS_SETFOREGROUND = 0x200
+
+#    DS_3DLOOK = 0x0004
+#    DS_FIXEDSYS = 0x0008
+#    DS_NOFAILCREATE = 0x0010
+    DS_CONTROL = 0x0400
+    DS_CENTER = 0x0800
+    DS_CENTERMOUSE = 0x1000
+    DS_CONTEXTHELP = 0x2000
+#    DS_SHELLFONT = (DS_SETFONT | DS_FIXEDSYS)
+    DS_USEPIXELS = 0x8000
+    
+    WM_INITDIALOG = 0x0110 unless defined? WM_INITDIALOG
+    
+    IDOK = 1
+    IDCANCEL = 2
+    IDABORT = 3
+    IDRETRY = 4
+    IDIGNORE = 5
+    IDYES = 6
+    IDNO = 7
+    IDCLOSE = 8
+    IDHELP = DLGMAX_ID = 9
+  end
+  
+  # The dialog box that is also a container of controls.
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/api/
+  # _dlgbox/index"> Dialog Boxes section of Microsoft Docs.</a>
+  class Dialog < RWin::Dialog
+    include RC
+    
+    WinStyles = {
+      :sysmodal => DS_SYSMODAL,
+      :contexthelp => DS_CONTEXTHELP
+    }.update ModToplevelWin::WinStyles 
+    
+    module ModDlgButton
+      include RC
+      def self.extended(obj)
+        obj.set_as_button
+      end
+      
+      def set_as_button()
+        @__unplocessed.each{|i|
+          id = nil
+          case i
+          when :idok
+            id = IDOK
+          when :idcancel
+            id = IDCANCEL
+          end
+          if id
+            parent.unregister_event(id, WM_COMMAND, BN_CLICKED)
+            self.idcmd = id
+            parent.register_event(id, WM_COMMAND, BN_CLICKED, "#{name}_clicked")
+          end
+        }
+      end
+    end
+    
+    alias __create__ create
+    
+    include ModToplevelWin, ModBaseWin, ModAutoloading
+    
+    DefaultDlgSize = [400, 300]
+    DefaultWindowStyle = WS_POPUP | WS_BORDER | WS_SYSMENU | WS_CAPTION
+    
+    API.defun "GetWindowRect(hWnd, pRect)"
+    API.defun "GetDesktopWindow()"
+    
+    # Creates and show as modal dialog box.<br>
+    # If given nil as <i>parent</i>, creates as top level dialog box.
+    def self.open_modal(parent, arg=nil) 
+      self.new.create(parent, true, arg)
+    end
+    
+    # Creates and show as modeless dialog box.<br>
+    # If given nil as <i>parent</i>, creates as top level dialog box.
+    def self.open_modeless(parent, arg=nil) 
+      self.new.create(parent, false, arg)
+    end
+    
+    #
+    def create(owner=nil, modal=nil, arg=nil)
+      register_event(WM_INITDIALOG, "__initdialog__")
+      register_event(WM_GETFONT, "__getfont__")
+      register_event(WM_SIZE, "__resize__", "xh")
+      class << self.controls
+        def <<(args)
+          obj = super
+          obj.extend ModDlgButton if obj.is_a? Button
+          obj
+        end
+      end
+      self.controls.each{|i|
+         i.extend ModDlgButton if i.is_a? Button
+      }
+      @owner = owner
+      __create__(owner, modal, @_style, @_exstyle, arg)
+    end
+    
+    # move_center([target=nil[, x, y])
+    # Moves this dialog to center of specified arguments.
+    def move_center(*args)
+      case args.size
+      when 0
+        target = @owner
+        w0, h0 = self.windowsize
+      when 1
+        target = args[0]
+        w0, h0 = self.windowsize
+      when 2
+        target = @owner
+        w0, h0 = args
+      when 3
+        target, w0, h0 = args
+      else
+        raise ArgumentError, "num of arguments must be 0..3", caller(1)
+      end
+      target = RWin::Application.getDesktop unless target
+      x1, y1, w1, h1 = target.windowrect
+      x = x1 + w1 / 2 - w0 / 2
+      y = y1 + h1 / 2 - h0 / 2
+      self.move(x, y, w0, h0)
+    end
+    
+    #
+    def inspect() 
+      "#<#{self.class}:#{self.__id__}>"
+    end
+    
+    #
+    def style=(st)
+      st&DS_CONTEXTHELP > 0 ? self.exstyle|=WS_EX_CONTEXTHELP : self.exstyle&=~WS_EX_CONTEXTHELP
+      super
+    end
+    
+    private
+    def __initdialog__()
+      self.icon = @_icon if @_icon
+      self.transparency = @_transparency if @_transparency
+      self.transparentcolor = @_transparentcolor if @_transparentcolor
+      self.caption = @_caption.to_s
+      w, h = @_w && @_h ? [@_w, @_h] : DefaultDlgSize
+      if @_x && @_y
+        x, y = @_x, @_y
+      elsif @owner
+        ox, oy = @owner.screenpos
+        ow, oh = @owner.windowsize
+        x, y = ox + (ow - w)/2, oy + (oh - h)/2
+      else
+        rc = RECT.new
+        API.GetWindowRect(API.GetDesktopWindow(), rc)
+        x1, y1, w1, h1 = rc.to_a
+        x = x1 + w1 / 2 - w / 2
+        y = y1 + h1 / 2 - h / 2
+      end
+      self.move(x, y, w, h)
+      controls._create
+      self.inheritfont = @_inheritfont if @_inheritfont
+      __send__(:opened, self.param) if respond_to?(:opened)
+    end
+  end
+end
+
+module WR
+  class MyDialog < Dialog
+    def initialize()
+      self.style |= WS_THICKFRAME | DS_SYSMODAL
+      self.inheritfont = 'Meiryo', -12, 'i'
+      resize 240, 180
+      controls << Button[:dlgbtn1, "OK", 10,0,100,24, :tabstop, :idcmd=>IDOK, :margin=>[nil,nil,0,10]]
+      controls << Button[:dlgbtn2, "Cancel", 110,0,100, 24, :tabstop, :idcancel]
+    end
+    
+    def opened(arg)
+      self.style |= DS_CONTEXTHELP
+      self.caption = arg
+    end
+    
+    def dlgbtn1_clicked(*)
+      close 100
+    end
+    def dlgbtn2_clicked(*)
+      close nil
+    end
+  end
+  
+  class MyForm < Dialog
+#  class MyForm < Form
+    def initialize()
+      self.inheritfont = 'Meiryo', -12, 'b', :force
+      self.style |= WS_THICKFRAME
+      _<< Button[:bt1, "Modal", 0, 0, 100, 30, :idok]
+      _<< Button[:bt2, "Modeless", 100, 0, 100, 30, :idcmd=>IDCANCEL]
+      #_<< Button[:bt3, "Exit", 0, 50, 100, 30]
+    end
+    
+    def opened(arg) # for dialog
+      _<< Button[:bt3, "Exit", 0, 50, 100, 30]
+    end
+    def created() # for form
+      _<< Button[:bt3, "Exit", 0, 50, 100, 30]
+    end
+    
+    def bt1_clicked(*)
+      dpp MyDialog.open_modal(self, 'Modal dialog')
+    end
+    def bt2_clicked(*)
+      MyDialog.open_modeless(self, 'Modeless dialog')
+    end
+    def bt3_clicked(*)
+      APP.quit!
+    end
+    
+    self.start # Wrapper of RW::Windows.automsgloop
+  end
+end if __FILE__ == $0

data/lib/wrb/components/edit.rb

@@ -0,0 +1,412 @@
+require 'wrb'
+require 'wrb/imecommon'
+
+module WR
+  module RC
+    ES_LEFT              = 0x0000
+    ES_CENTER            = 0x0001
+    ES_RIGHT             = 0x0002
+    ES_MULTILINE         = 0x0004
+    ES_UPPERCASE         = 0x0008
+    ES_LOWERCASE         = 0x0010
+    ES_PASSWORD          = 0x0020
+    ES_AUTOVSCROLL       = 0x0040
+    ES_AUTOHSCROLL       = 0x0080
+    ES_NOHIDESEL         = 0x0100
+    ES_OEMCONVERT        = 0x0400
+    ES_READONLY          = 0x0800
+    ES_WANTRETURN        = 0x1000
+    ES_NUMBER            = 0x2000
+      
+    EM_GETSEL           = 0x00B0
+    EM_SETSEL           = 0x00B1
+    EM_GETRECT          = 0x00B2
+    EM_SETRECT          = 0x00B3
+    EM_SETRECTNP        = 0x00B4
+    EM_SCROLL           = 0x00B5
+    EM_LINESCROLL       = 0x00B6
+    EM_SCROLLCARET      = 0x00B7
+    EM_GETMODIFY        = 0x00B8
+    EM_SETMODIFY        = 0x00B9
+    EM_GETLINECOUNT     = 0x00BA
+    EM_LINEINDEX        = 0x00BB
+    EM_SETHANDLE        = 0x00BC
+    EM_GETHANDLE        = 0x00BD
+    EM_GETTHUMB         = 0x00BE
+    EM_LINELENGTH       = 0x00C1
+    EM_REPLACESEL       = 0x00C2
+    EM_GETLINE          = 0x00C4
+    EM_LIMITTEXT        = 0x00C5
+    EM_CANUNDO          = 0x00C6
+    EM_UNDO             = 0x00C7
+    EM_FMTLINES         = 0x00C8
+    EM_LINEFROMCHAR     = 0x00C9
+    EM_SETTABSTOPS      = 0x00CB
+    EM_SETPASSWORDCHAR  = 0x00CC
+    EM_EMPTYUNDOBUFFER  = 0x00CD
+    EM_GETFIRSTVISIBLELINE = 0x00CE
+    EM_SETREADONLY      = 0x00CF
+    EM_SETWORDBREAKPROC = 0x00D0
+    EM_GETWORDBREAKPROC = 0x00D1
+    EM_GETPASSWORDCHAR  = 0x00D2
+    EM_SETMARGINS       = 0x00D3
+    EM_GETMARGINS       = 0x00D4
+    EM_SETLIMITTEXT     = EM_LIMITTEXT
+    EM_GETLIMITTEXT     = 0x00D5
+    EM_POSFROMCHAR      = 0x00D6
+    EM_CHARFROMPOS      = 0x00D7
+    EM_SETIMESTATUS     = 0x00D8
+    EM_GETIMESTATUS     = 0x00D9
+      
+    EN_SETFOCUS         = 0x0100
+    EN_KILLFOCUS        = 0x0200
+    EN_CHANGE           = 0x0300
+    EN_UPDATE           = 0x0400
+    EN_ERRSPACE         = 0x0500
+    EN_MAXTEXT          = 0x0501
+    EN_HSCROLL          = 0x0601
+    EN_VSCROLL          = 0x0602
+    EN_ALIGN_LTR_EC     = 0x0700
+    EN_ALIGN_RTL_EC     = 0x0701
+    
+    WM_CTLCOLOREDIT     = 0x0133
+  end
+  # A rectangular control which enable the user to enter and edit text. 
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  #window-controls"> Windows Control section of Microsoft Docs.</a>
+  class Edit < WinControl #< StandardControl
+    include ModStdCtrl
+    
+    class Selection
+      include RC
+      def initialize(owner, selstart, selend)
+        @owner = owner
+        @selstart = selstart
+        @selend = selend
+      end
+      
+      def text()
+        @owner.text[@selstart, @selend-@selstart]
+      end
+      def text=(txt)
+        @owner.SendMessage(EM_SETSEL, @selstart, @selend)
+        @owner.SendMessage(EM_REPLACESEL, 1, API.adjust_internal_lf_code(txt))
+      end
+    end
+    
+    include ModIME
+    
+    PreDefinedEvents = {
+      :setfocus  => [WM_COMMAND, EN_SETFOCUS, 'hi'], # ???_setfocus(idcmd, code, hwnd)
+      :killfocus => [WM_COMMAND, EN_KILLFOCUS, 'hi'], # ???_killfocus(idcmd, code, hwnd)
+      :change    => [WM_COMMAND, EN_CHANGE, 'hi'], # ???_change(idcmd, code, hwnd)
+      :update    => [WM_COMMAND, EN_UPDATE, 'hi'], # ???_update(idcmd, code, hwnd)
+      :errspace  => [WM_COMMAND, EN_ERRSPACE, 'hi'], # ???_errspace(idcmd, code, hwnd)
+      :maxtext   => [WM_COMMAND, EN_MAXTEXT, 'hi'], # ???_maxtext(idcmd, code, hwnd)
+      :hscroll   => [WM_COMMAND, EN_HSCROLL, 'hi'], # ???_hscroll(idcmd, code, hwnd)
+      :vscroll   => [WM_COMMAND, EN_VSCROLL,  'hi'], # ???_vscroll(idcmd, code, hwnd)
+      :align_ltr_ec => [WM_COMMAND, EN_ALIGN_LTR_EC, 'hi'], # ???_align_ltr_ec(idcmd, code, hwnd)
+      :align_rtl_ec => [WM_COMMAND, EN_ALIGN_RTL_EC, 'hi'], # ???_align_rtl_ec(idcmd, code, hwnd)
+    }
+    
+    DefaultEvents = [
+      :change, # ???_change(idcmd, code, hwnd)
+      :update  # ???_update(idcmd, code, hwnd)
+    ]
+    
+    def initialize(*args)
+      super
+      @_classname = "EDIT"
+#      self.style |= WS_BORDER
+      @_exstyle = WS_EX_CLIENTEDGE
+      @_acceptable_events = PreDefinedEvents.dup
+    end
+    
+    #
+    def idcmd=(id) # for IME
+      parent.set_msgtranslator(WM_COMMAND) unless parent.get_msgtranslator(WM_COMMAND)
+      parent.register_event(id, WM_COMMAND, EN_SETFOCUS, "__gotfocus", 'hi', self)
+      parent.register_event(id, WM_COMMAND, EN_KILLFOCUS, "__lostfocus", 'hi', self)
+      super
+    end
+    
+    #
+    def create()
+      super
+      self.limittext = @_limittext if @_limittext
+      self.passwordchar = @_passwordchar if @_passwordchar
+    end
+    
+    #### write only attributes ####
+    
+    # Sets edit style of this to ES_AUTOVSCROLL or not.
+    def autovscroll=(state) 
+      set_style(state ? ES_AUTOVSCROLL : ~ES_AUTOVSCROLL)
+    end
+    
+    # Sets edit style of this to ES_AUTOHSCROLL or not.
+    def autohscroll=(state)
+      set_style(state ? ES_AUTOHSCROLL : ~ES_AUTOHSCROLL)
+    end
+    
+    # Sets edit style of this to ES_MULTILINE or not.
+    def muitiline=(state)
+      set_style(state ? ES_MULTILINE : ~ES_MULTILINE)
+    end
+    
+    # Sets edit style of this to ES_PASSWORD or not.
+    def password=(state)
+      set_style(state ? ES_PASSWORD : ~ES_PASSWORD)
+    end
+    
+    # Sets edit style of this to EM_SETREADONLY or not.
+    def readonly=(state) 
+      if state != true && state !=false && state != nil
+        raise ArgumentError, "argument must be ture, false or nil", caller(2)
+      end
+      SendMessage(EM_SETREADONLY, state ? 1 : 0, 0)
+    end
+    
+    # Sets edit style of this to ES_WANTRETRURN or not.
+    def wantreturn=(state)
+      set_style(sate ? ES_WANTRETRURN : ~ES_WANTRETRURN, true)
+    end
+    
+    # Sets th back ground color of this. Give a RGB integer as <i>clr</i>.
+    def bkcolor=(clr)
+      parent.register_event WM_CTLCOLOREDIT, "__ctlcoloredit__", 'ii', self
+      @_bkcolor = clr
+    end
+    
+    #### read-write attributes ####
+    
+    # Gets the current text limit for this edit control.
+    def limittext() 
+      alive? ? SendMessage(EM_GETLIMITTEXT, 0, 0) : @_limittext
+    end
+    # Sets the text limit of this edit control. 
+    def limittext=(lim) 
+      alive? ? SendMessage(EM_LIMITTEXT, lim.to_i, 0) : @_limittext = lim
+    end
+    
+    # Gets the password character that this edit control displays when the user enters text.<br>
+    # Returns a single charactor of String or nil. If nil was given, this edit control is used system default password charactor.
+    def passwordchar()
+      alive? ? SendMessage(EM_GETPASSWORDCHAR , 0, 0).chr : @_passwordchar
+    end
+    # Sets or removes the password character for this edit control. <br>
+    # Give a single charactor of String, or nil.
+    def passwordchar=(ch)
+      alive? ? SendMessage(EM_SETPASSWORDCHAR , ch.ord, 0) : @_passwordchar = ch
+    end
+    
+    #### only for after created ####
+    
+    # Retreives wheter this edit control was modified.
+    def modified() 
+      SendMessage(EM_GETMODIFY, 0, 0) == 0 ? false : true
+    end
+    # Sets modified flag to true or false.
+    def modified=(f)
+      SendMessage(EM_SETMODIFY, f ? 1 : 0, 0)
+    end
+    
+    # Gets the starting and ending character positions of the current selection.
+    def selection() # returns [start_pos, end_pos]
+      Selection.new(self, *SPLITPARAM(SendMessage(EM_GETSEL, 0, 0)))
+    end
+    
+    # selection=(starting[, ending])
+    # Selects a range of characters in an edit control.
+    def selection=(arg)
+      if arg.is_a?(Integer) || arg.is_a?(Array)
+        start_pos, end_pos = arg
+        end_pos ||= start_pos
+      else
+        raise ArgumentError, "#{arg.class} is not allowed", caller(1)
+      end
+      SendMessage(EM_SETSEL, start_pos.to_i, end_pos.to_i)
+    end
+    
+    # Sets a text into this edit contlol. Same as caption().
+    def text()
+      self.caption
+    end
+    
+    # Gets a text of this edit contlol. Same as caption=(str).
+    def text=(txt) 
+      self.caption = API.adjust_internal_lf_code(txt)
+    end
+    
+    # Gets a text length of this edit control.
+    def length() 
+      self.text.size
+    end
+    
+    # []=(position, length=1, text)
+    # Inserts and replaces at the specified <i>position</i> and <i>length</i> by the <i>text</i> in this edit control.
+    def []=(*args)
+      case args.size
+      when 2
+        start_pos, txt = args
+        len = 0
+      when 3
+        start_pos, len, txt = args
+      end
+      SendMessage(EM_SETSEL, start_pos, start_pos + len)
+      SendMessage(EM_REPLACESEL, 0, API.adjust_internal_lf_code(txt))
+    end
+    
+    #### clip board operations etc.. ####
+    
+    # Performs cut operation.
+    def cut() SendMessage(WM_CUT, 0, 0); end
+    # Performs copy operation.
+    def copy() SendMessage(WM_COPY, 0, 0); end
+    # Performs paste operation.
+    def paste() SendMessage(WM_PASTE, 0, 0); end
+    # Performs undo operation.
+    def undo() SendMessage(WM_UNDO, 0, 0); end
+    
+    # Clears all text in this edit control.
+    def clear() SendMessage(WM_CLEAR, 0, 0); end
+    
+    
+    #### methods for multi line ####
+    
+    # Gets a text of specified line index. 
+    def [](idx) # line manipulation
+      n = SendMessage(EM_LINELENGTH, idx.to_i, 0)
+      n = RWin::UNICODE ? n : n*2
+      buff = TCHAR[n]
+      buff.subst(0, 2, n)
+      SendMessage(EM_GETLINE, idx.to_i, buff)
+      class << str = buff.to_s
+        def owner=(owner) 
+          @owner = owner
+          self
+        end
+        def []=(*args) 
+          txt = args.pop
+          @owner[*args] = txt
+        end
+      end
+      str.owner = self
+      str
+    end
+    
+    # Counts num of lines in this edit control.
+    def countlines()
+      SendMessage(EM_GETLINECOUNT, 0, 0)
+    end
+    
+    # Retreives an array of lines separated by CRLF code.
+    def lines() 
+      Collection.new(self.caption.split())
+    end
+    
+    # Gets first visible line of this edit control.<br> Retruns an Integer.
+    def firstvisibleline()
+      SendMessage(EM_GETFIRSTVISIBLELINE, 0, 0)
+    end
+    
+    # Scrolls the text to specified line and column.
+    def scrollto(line, col) 
+      SendMessage(EM_LINESCROLL, 0, MAKELPARAM(line, col))
+    end
+    
+    def _scroll(op) 
+      SendMessage(EM_SCROLL, op.to_i, 0)
+    end
+    private :_scroll
+    
+    # Scrolls up to one line.
+    def scrollup() _scroll(0); end
+    
+    # Scrolls down to one line.
+    def scrolldown() _scroll(1); end
+    
+    # Scrolls up to one page.
+    def scrolluppage() _scroll(2); end
+    
+    # Scrolls down to one page.
+    def scrolldnpage() _scroll(3); end
+    
+    # Scrolls the caret into view in this edit control.
+    def scrollcaret()
+      SendMessage(EM_SCROLLCARET, 0, 0)
+    end
+    
+    # Retreives a line number of specified position in this edit control.
+    def pos2line(pos) SendMessage(EM_LINEFROMCHAR, pos.to_i, 0); end
+    
+    # Retreives a first position of specified line number in this edit control.
+    def line2pos(line) SendMessage(EM_LINEINDEX, line.to_i, 0); end
+    
+    # Retreives a current line number of this edit control.
+    def currentline() SendMessage(EM_LINEFROMCHAR, -1, 0); end
+    
+    # Retreives a position of specified coordinate(x, y) in this edit control.
+    def point2pos(x, y) LOWORD(SendMessage(EM_CHARFROMPOS, 0, MAKELPARAM(x, y))); end
+    
+    # Retreives a line number of specified coordinate(x, y) in this edit control.
+    def point2line(x, y) HIWORD(SendMessage(EM_CHARFROMPOS, 0, MAKELPARAM(x, y))); end
+    
+    WinStyles = {
+      :center      => ES_CENTER,
+      :right       => ES_RIGHT,
+      :multiline   => ES_MULTILINE,
+      :uppercase   => ES_UPPERCASE,
+      :lowercase   => ES_LOWERCASE,
+      :password    => ES_PASSWORD,
+      :autovscroll => ES_AUTOVSCROLL,
+      :autohscroll => ES_AUTOHSCROLL,
+      :nohidesell  => ES_NOHIDESEL,
+      :oemconvert  => ES_OEMCONVERT,
+      :readonly    => ES_READONLY,
+      :wantreturn  => ES_WANTRETURN,
+      :number      => ES_NUMBER
+    }
+    
+    protected
+    def _apply_options(arg)
+      if st=WinStyles[arg]
+        self.style |= st
+        return nil
+      end
+      super
+    end
+    
+    def __ctlcoloredit__(hdc, hwnd)
+      return nil unless self._hwnd == hwnd
+      Canvas.new(hdc).Transparent
+      APP::CancelDefWindowProc(RWin::Brush.new(@_bkcolor)._hbrush)
+    end
+  end
+end
+
+module WR
+  class MyForm < Form
+    def initialize()
+      _<< Edit[:ed1, "Edit me", 0, 0, 100, 30, :disabled]
+      _<< Edit[:ed2, "Edit me", 0, 30, 100, 30]
+     # _ed1.each{|i| i.bkcolor=0xe0e0e0}
+#      @ed1.events = :change
+#      @ed1.accept_events :update , :change
+#      @ed1.set_subclass.register_event WM_KEYDOWN, 'key_down', 'ih'
+#      def @ed1.key_down(*args)
+#        dpp args
+#      end
+    end
+    
+    def ed2_change(*args)
+      dpp args
+    end
+    def ed2_update(*args)
+      dpp args
+    end
+    
+    self.start
+  end
+end if $0 == __FILE__
+