wrb 2.0.0

data/lib/wrb/components/choosecolordlg.rb

@@ -0,0 +1,87 @@
+require 'wrb/commdlg'
+
+module WR
+  module RC
+    CC_RGBINIT = 0x1
+    CC_FULLOPEN = 0x2
+    CC_PREVENTFULLOPEN = 0x4
+    CC_SHOWHELP = 0x8
+    CC_ENABLEHOOK = 0x10
+    CC_ENABLETEMPLATE = 0x20
+    CC_ENABLETEMPLATEHANDLE = 0x40
+    CC_SOLIDCOLOR = 0x80
+    CC_ANYCOLOR = 0x100
+  end
+  
+  #A dialog box that enables the user to select a color. 
+  class ChooseColorDlg < CommonDialog
+    
+    API.typealias 'LPCCHOOKPROC', 'Q'
+    CHOOSECOLOR = API.defstruct "
+      DWORD lStructSize;
+      HWND hwndOwner;
+      HWND hInstance;
+      COLORREF rgbResult;
+      COLORREF *lpCustColors;
+      DWORD Flags;
+      LPARAM lCustData;
+      LPCCHOOKPROC lpfnHook;
+      LPCTSTR lpTemplateName;"
+    
+    API.defun "ChooseColor(CHOOSECOLOR cc)"
+    
+    def self.show(owner=nil, flags: nil, custcolors: nil)
+      cc = self.new
+      cc.flags = flags if flags
+      cc.custcolors = custcolors if custcolors
+      cc.show(owner)
+    end
+    def self.show2(owner=nil, flags: nil, custcolors: nil)
+      cc = self.new
+      cc.flags = flags if flags
+      cc.custcolors = custcolors if custcolors
+      cc.show2(owner)
+    end
+    
+    attr_reader :_choosecolor
+    
+    def initialize()
+      @_choosecolor = CHOOSECOLOR[CHOOSECOLOR::Size]
+      @_custcolors = API::DWORD[16]
+      16.times{|i| @_custcolors[i] = 0xffffff}
+      @_choosecolor.lpCustColors = @_custcolors
+    end
+    
+    def flags()
+      @_choosecolor.Flags
+    end
+    def flags=(f)
+      @_choosecolor.Flags = f
+    end
+    
+    def custcolors()
+      @_custcolors[0, 16]
+    end
+    def custcolors=(*clrs)
+      clrs = clrs[0] if clrs[0].is_a?(Array)
+      raise ArgumentError, "num of arguments must be <= 16" if clrs.size > 16
+      clrs.each_with_index{|clr, idx| @_custcolors[idx] = clr}
+    end
+    
+    def show(owner=nil)
+      @_choosecolor.hwndOwner = owner._hwnd if owner
+      r = API.ChooseColor(@_choosecolor)
+      r==0 ? nil : @_choosecolor.rgbResult
+    end
+    
+    def show2(owner=nil)
+      @_choosecolor.hwndOwner = owner._hwnd if owner
+      r = API.ChooseColor(@_choosecolor)
+      r==0 ? nil : [@_choosecolor.rgbResult, custcolors]
+    end
+  end
+end
+
+module WR
+  dpp ChooseColorDlg.show2(custcolors: [0,0xff,0xff00, 0xff0000])
+end if $0==__FILE__

data/lib/wrb/components/choosefontdlg.rb

@@ -0,0 +1,142 @@
+# encoding: Windows-31J
+require 'wrb/commdlg'
+
+module WR
+  module RC
+    CF_SCREENFONTS = 0x1
+    CF_PRINTERFONTS = 0x2
+    CF_BOTH = (CF_SCREENFONTS | CF_PRINTERFONTS)
+    CF_SHOWHELP = 0x4
+    CF_ENABLEHOOK = 0x8
+    CF_ENABLETEMPLATE = 0x10
+    CF_ENABLETEMPLATEHANDLE = 0x20
+    CF_INITTOLOGFONTSTRUCT = 0x40
+    CF_USESTYLE = 0x80
+    CF_EFFECTS = 0x100
+    CF_APPLY = 0x200
+    CF_ANSIONLY = 0x400
+    CF_SCRIPTSONLY = CF_ANSIONLY
+    CF_NOVECTORFONTS = 0x800
+    CF_NOOEMFONTS = CF_NOVECTORFONTS
+    CF_NOSIMULATIONS = 0x1000
+    CF_LIMITSIZE = 0x2000
+    CF_FIXEDPITCHONLY = 0x4000
+    CF_WYSIWYG = 0x8000
+    CF_FORCEFONTEXIST = 0x10000
+    CF_SCALABLEONLY = 0x20000
+    CF_TTONLY = 0x40000
+    CF_NOFACESEL = 0x80000
+    CF_NOSTYLESEL = 0x100000
+    CF_NOSIZESEL = 0x200000
+    CF_SELECTSCRIPT = 0x400000
+    CF_NOSCRIPTSEL = 0x800000
+    CF_NOVERTFONTS = 0x1000000
+
+    SIMULATED_FONTTYPE = 0x8000
+    PRINTER_FONTTYPE = 0x4000
+    SCREEN_FONTTYPE = 0x2000
+    BOLD_FONTTYPE = 0x100
+    ITALIC_FONTTYPE = 0x200
+    REGULAR_FONTTYPE = 0x400
+
+    PS_OPENTYPE_FONTTYPE = 0x10000
+    TT_OPENTYPE_FONTTYPE = 0x20000
+    TYPE1_FONTTYPE = 0x40000
+  end
+  
+  # A dialog box that enables the user to choose attributes for a logical font. 
+  class ChooseFontDlg < CommonDialog
+    
+    API.typealias 'LPCFHOOKPROC', 'Q'
+    CHOOSEFONT = API.defstruct "
+      DWORD lStructSize;
+      HWND hwndOwner;
+      HDC hDC;
+      LOGFONT *lpLogFont;
+      INT iPointSize;
+      DWORD Flags;
+      COLORREF rgbColors;
+      LPARAM lCustData;
+      LPCFHOOKPROC lpfnHook;
+      LPCTSTR lpTemplateName;
+      HINSTANCE hInstance;
+      LPWSTR lpszStyle;
+      WORD nFontType;
+      WORD ___MISSING_ALIGNMENT__;
+      INT nSizeMin;
+      INT nSizeMax;"
+    
+    API.defun "ChooseFont(CHOOSEFONT cf)"
+    LOGFONT = API::LOGFONT
+    
+    attr_reader :_logfont
+    
+    def self.show(owner=nil, name: '', height: -11, flags: nil, color: 0, type: nil)
+      cf = self.new
+      cf._logfont.lfFaceName = name
+      cf._logfont.lfHeight = height
+      cf.flags = flags || CF_APPLY | CF_SCREENFONTS | CF_EFFECTS  | CF_INITTOLOGFONTSTRUCT
+      cf.color = color
+      cf.fonttype = type || SCREEN_FONTTYPE
+      cf.show(owner)
+    end
+    
+    def initialize(lf=nil)
+      @_choosefont = CHOOSEFONT[CHOOSEFONT::Size]
+      raise ArgumetnError, "Argument must be LOGFONT" if lf && lf.class != LOGFONT
+      @_logfont = lf || LOGFONT[LOGFONT::Size]
+      @_choosefont.lpLogFont = @_logfont
+      @_choosefont.Flags = CF_APPLY | CF_SCREENFONTS | CF_EFFECTS  | CF_INITTOLOGFONTSTRUCT
+      @_choosefont.nFontType = SCREEN_FONTTYPE
+    end
+    
+    def flags()
+      @_choosefont.Flags
+    end
+    def flags=(f)
+      @_choosefont.Flags = f
+    end
+    
+    def color()
+      @_choosefont.rgbColors
+    end
+    def color=(clr)
+      @_choosefont.rgbColors = clr
+    end
+    
+    def fonttype()
+    end
+    def fonttype=(typ)
+      @_choosefont.nFontType = typ
+    end
+    
+    def pointsize()
+      @_choosefont.ipointSize
+    end
+    def pointsize=(i)
+      @_choosefont.iPointSize = i
+    end
+        
+    def show(owner=nil)
+      @_choosefont.hwndOwner = owner._hwnd if owner
+      r = API.ChooseFont(@_choosefont)
+      return nil if r == 0
+      [@_choosefont.lpLogFont, @_choosefont.rgbColors, @_choosefont.iPointSize]
+    end
+  end
+end
+
+module WR
+#  cf = ChooseFontDlg.new
+#  cf._logfont.lfFaceName = '@HGP�޼��M'
+#  cf._logfont.lfHeight = -18
+#  cf.color = 0x00ff00
+##  cf.flags = 0
+#  
+#  lf, color = cf.show
+  
+  lf, color, pointsize = ChooseFontDlg.show(name:"System", height:-19)
+  if lf
+    dpp [lf.lfFaceName.to_s, color, lf.lfHeight, pointsize]
+  end
+end if $0 == __FILE__

data/lib/wrb/components/clipboard.rb

@@ -0,0 +1,174 @@
+require 'wrb'
+
+module WR
+  module RC
+    CF_TEXT = 1
+    CF_BITMAP = 2
+    CF_METAFILEPICT = 3
+    CF_SYLK = 4
+    CF_DIF = 5
+    CF_TIFF = 6
+    CF_OEMTEXT = 7
+    CF_DIB = 8
+    CF_PALETTE = 9
+    CF_PENDATA = 10
+    CF_RIFF = 11
+    CF_WAVE = 12
+    CF_UNICODETEXT = 13
+    CF_ENHMETAFILE = 14
+    CF_HDROP = 15
+    CF_LOCALE = 16
+    CF_DIBV5 = 17
+    CF_MAX = 18
+
+    CF_OWNERDISPLAY = 0x0080
+    CF_DSPTEXT = 0x0081
+    CF_DSPBITMAP = 0x0082
+    CF_DSPMETAFILEPICT = 0x0083
+    CF_DSPENHMETAFILE = 0x008E
+
+    CF_PRIVATEFIRST = 0x0200
+    CF_PRIVATELAST = 0x02FF
+
+    CF_GDIOBJFIRST = 0x0300
+    CF_GDIOBJLAST = 0x03FF
+    
+#    WM_CUT = 0x0300    # defined at base.rb
+#    WM_COPY = 0x0301
+#    WM_PASTE = 0x0302
+#    WM_CLEAR = 0x0303
+#    WM_UNDO = 0x0304
+    
+    WM_RENDERFORMAT = 0x0305
+    WM_RENDERALLFORMATS = 0x0306
+    WM_DESTROYCLIPBOARD = 0x0307
+    WM_DRAWCLIPBOARD = 0x0308
+    WM_PAINTCLIPBOARD = 0x0309
+    WM_VSCROLLCLIPBOARD = 0x030A
+    WM_SIZECLIPBOARD = 0x030B
+    WM_ASKCBFORMATNAME = 0x030C
+    WM_CHANGECBCHAIN = 0x030D
+    WM_HSCROLLCLIPBOARD = 0x030E
+  end
+  
+  # Provides an interface that enable applications to transfer data.
+  class Clipboard
+    include ModAutoloading
+    include RC
+    API.defun 'OpenClipboard(HWND hWndNewOwner)'
+    API.defun 'CloseClipboard()'
+    API.defun 'GetClipboardSequenceNumber()'
+    API.defun 'GetClipboardOwner()'
+    API.defun 'SetClipboardViewer(HWND hWndNewViewer)'
+    API.defun 'GetClipboardViewer()'
+    API.defun 'ChangeClipboardChain(HWND hWndRemove, HWND hWndNewNext)'
+    API.defun 'SetClipboardData(UINT uFormat, HANDLE hMem)'
+    API.defun 'GetClipboardData(UINT uFormat)'
+    API.defun 'RegisterClipboardFormat(LPCTSTR lpszFormat)'
+    API.defun 'CountClipboardFormats()'
+    API.defun 'EnumClipboardFormats(UINT format)'
+    API.defun 'GetClipboardFormatName(UINT format, LPTSTR lpszFormatName, int cchMaxCount)'
+    API.defun 'EmptyClipboard()'
+    API.defun 'IsClipboardFormatAvailable(UINT format)'
+    API.defun 'GetPriorityClipboardFormat(UINT *paFormatPriorityList, int cFormats)'
+    API.defun 'GetOpenClipboardWindow()'
+    
+    
+    def self.open(win=nil)
+      cb = self.new(win)
+      if block_given?
+        begin
+          yield cb
+        ensure
+          cb.close
+        end
+      end
+    end
+    
+    def initialize(win=nil)
+      raise ArgumentError, "Argument must be a Window." if !win.is_a?(RWin::Window) && !win.nil?
+      r = API.OpenClipboard(win ? win._hwnd : 0)
+      raise "OpenClipboard failed." if r == 0
+    end
+    
+    def close()
+       API.CloseClipboard()
+    end
+    
+    def clear()
+      API.EmptyClipboard()
+    end
+    
+    def get_string(uformat=CF_TEXT)
+      handle = API.GetClipboardData(uformat)
+      API.GlobalGetStr(handle)
+    end
+    
+    def set_string(str, uformat=CF_TEXT)
+      hmem = API.GlobalAllocStr(GHND, str)
+      API.SetClipboardData(uformat, hmem) == 0 ? false : true
+    end
+    
+    def text=(str)
+      set_string(str, CF_TEXT)
+    end
+    def text()
+      get_string(CF_TEXT).unpack('A*')[0]
+    end
+    
+    def bitmap=(bmp)
+      hbmp = bmp._hbitmap
+      API.SetClipboardData(CF_BITMAP, hbmp) == 0 ? false : true
+    end
+    def bitmap()
+      handle = API.GetClipboardData(CF_BITMAP)
+      handle == 0 ? nil : Bitmap.fromhandle(handle)
+    end
+    
+    def formats()
+      r = []
+      n = API.CountClipboardFormats()
+      ufmt = 0
+      n.times{
+        ufmt = API.EnumClipboardFormats(ufmt)
+        r << ufmt
+      }
+      r
+    end
+  end
+end
+
+module WR
+  class Myform < Form
+    def initialize
+      controls << Button[:bt1, "Test", 0, 50, 80, 24]
+      @bmp1 = Bitmap.loadb64(
+"IRNGwDAAAAAAAAAG0AcBRALAIAAAAAIQEwAIADEBk4ECQJjgWGwGAwGAwGAwGAwGAwGAwGAwGAwGAwICfwJeQCAQCAQCAQCAQCAQCAQCAQCAQEBHYK+QMAf7/f7/f7/f7/f7/f7/f7/gHVBOCBh8DD4ITQMPgwfBvmDB8JD4GHxGphgfBg+Bh8PP4gpw8PiQfDA+Eh8VP4MHx4DjAfGPCOLMbD42HxxTjW/JDCPB8GBpMJgB/v8AP9/ybWkgfJSOBa0pf5VPwLZguzLT+XLMIdoSBg==")
+      accept_events(:paint)
+    end
+    
+    def created
+      Clipboard.open(self){|cb|
+        cb.clear
+        cb.bitmap = @bmp1
+      }
+    end
+    
+    def bt1_clicked(*)
+      Clipboard.open(self){|cb|
+        dpp fm = cb.formats
+        $stderr.puts cb.text if fm.index(CF_TEXT)
+        $stderr.puts cb.get_string(CF_SYLK) if fm.index(CF_SYLK)
+        @bitmap = cb.bitmap if fm.index(CF_BITMAP)
+      }
+      refresh
+    end
+    
+    def self_paint(cv) dpp @bitmap
+      return unless @bitmap
+      cv.BitBlt(0, 0, @bitmap)
+    end
+    
+    self.start
+  end
+end if $0 == __FILE__

data/lib/wrb/components/combobox.rb

@@ -0,0 +1,282 @@
+require 'wrb'
+require 'wrb/listcommon'
+require 'wrb/imecommon'
+require 'wrb/combocommon' # Common constats with ComboboxEx.
+
+module WR
+  module RC
+#    CBN_SELCHANGE    = 0x01
+#    CBN_DBLCLK       = 0x02
+#    CBN_SETFOCUS     = 0x03
+#    CBN_KILLFOCUS    = 0x04
+#    CBN_EDITCHANGE   = 0x05
+#    CBN_EDITUPDATE   = 0x06
+#    CBN_DROPDOWN     = 0x07
+#    CBN_CLOSEUP      = 0x08
+#    CBN_SELENDOK     = 0x09
+#    CBN_SELENDCANCEL = 0x0a
+
+#    CBS_SIMPLE            = 0x0001 # defined in combocommon.rb
+#    CBS_DROPDOWN          = 0x0002
+#    CBS_DROPDOWNLIST      = 0x0003
+    CBS_OWNERDRAWFIXED    = 0x0010
+    CBS_OWNERDRAWVARIABLE = 0x0020
+    CBS_AUTOHSCROLL       = 0x0040
+    CBS_OEMCONVERT        = 0x0080
+    CBS_SORT              = 0x0100
+    CBS_HASSTRINGS        = 0x0200
+    CBS_NOINTEGRALHEIGHT  = 0x0400
+    CBS_DISABLENOSCROLL   = 0x0800
+    CBS_UPPERCASE         = 0x2000
+    CBS_LOWERCASE         = 0x4000
+    
+#    CBS_NOEDIT = (WS_BORDER | CBS_DROPDOWN | CBS_SIMPLE)
+#    CBS_EDIT = (WS_BORDER | CBS_DROPDOWN)
+
+    CB_GETEDITSEL            = 0x0140
+#    CB_LIMITTEXT             = 0x0141
+    CB_SETEDITSEL            = 0x0142
+    CB_ADDSTRING             = 0x0143
+#    CB_DELETESTRING          = 0x0144
+    CB_DIR                   = 0x0145
+#    CB_GETCOUNT              = 0x0146
+#    CB_GETCURSEL             = 0x0147
+#    CB_GETLBTEXT             = 0x0148
+#    CB_GETLBTEXTLEN          = 0x0149
+    CB_INSERTSTRING          = 0x014a
+#    CB_RESETCONTENT          = 0x014b
+    CB_FINDSTRING            = 0x014c
+    CB_SELECTSTRING          = 0x014d
+#    CB_SETCURSEL             = 0x014e
+#    CB_SHOWDROPDOWN          = 0x014f
+#    CB_GETITEMDATA           = 0x0150
+#    CB_SETITEMDATA           = 0x0151
+#    CB_GETDROPPEDCONTROLRECT = 0x0152
+#    CB_SETITEMHEIGHT         = 0x0153
+#    CB_GETITEMHEIGHT         = 0x0154
+#    CB_SETEXTENDEDUI         = 0x0155
+#    CB_GETEXTENDEDUI         = 0x0156
+#    CB_GETDROPPEDSTATE       = 0x0157
+#    CB_FINDSTRINGEXACT       = 0x0158
+    CB_SETLOCALE             = 0x0159
+    CB_GETLOCALE             = 0x015a
+    CB_GETTOPINDEX           = 0x015b
+    CB_SETTOPINDEX           = 0x015c
+    CB_GETHORIZONTALEXTENT   = 0x015d
+    CB_SETHORIZONTALEXTENT   = 0x015e
+#    CB_GETDROPPEDWIDTH       = 0x015f
+#    CB_SETDROPPEDWIDTH       = 0x0160
+    CB_INITSTORAGE           = 0x0161
+    CB_MULTIPLEADDSTRING     = 0x0163
+    CB_GETCOMBOBOXINFO       = 0x0164
+    CB_MSGMAX                = 0x0165
+  end
+  
+  # This control combines an edit box or static text and a list. 
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  #window-controls"> Windows Control section of Microsoft Docs. </a>
+  class Combobox < WinControl #< StandardControl
+    
+    WinStyles = {
+      :simple            => CBS_SIMPLE,
+      :dropdown          => CBS_DROPDOWN,
+      :dropdownlist      => CBS_DROPDOWNLIST,
+      :ownerdrawfixed    => CBS_OWNERDRAWFIXED,
+      :ownerdrawvariable => CBS_OWNERDRAWVARIABLE,
+      :autoscroll        => CBS_AUTOHSCROLL,
+      :oemconvert        => CBS_OEMCONVERT,
+      :sort              => CBS_SORT,
+      :hasstrings        => CBS_HASSTRINGS,
+      :nointegralheight  => CBS_NOINTEGRALHEIGHT,
+      :disablenoscroll   => CBS_DISABLENOSCROLL,
+      :uppercase         => CBS_UPPERCASE,
+      :lowercase         => CBS_LOWERCASE,
+    }
+    
+    PreDefinedEvents = {
+      :selchange    => [WM_COMMAND, CBN_SELCHANGE, 'hi'],  # ???_selchange(idcmd, code, hwnd)
+      :dblclk       => [WM_COMMAND, CBN_DBLCLK, 'hi'],     # ???_dblclk(idcmd, code, hwnd)
+      :setfocus     => [WM_COMMAND, CBN_SETFOCUS, 'hi'],   # ???_setfocus(idcmd, code, hwnd)
+      :killfocus    => [WM_COMMAND, CBN_KILLFOCUS, 'hi'],  # ???_killfocus(idcmd, code, hwnd)
+      :editchange   => [WM_COMMAND, CBN_EDITCHANGE, 'hi'], # ???_editchange(idcmd, code, hwnd)
+      :editupdate   => [WM_COMMAND, CBN_EDITUPDATE, 'hi'], # ???_editupdate(idcmd, code, hwnd)
+      :dropdown     => [WM_COMMAND, CBN_DROPDOWN, 'hi'],   # ???_dropdown(idcmd, code, hwnd)
+      :closeup      => [WM_COMMAND, CBN_CLOSEUP, 'hi'],    # ???_closeup(idcmd, code, hwnd)
+      :selendok     => [WM_COMMAND, CBN_SELENDOK, 'hi'],   # ???_selendok(idcmd, code, hwnd)
+      :selendcancel => [WM_COMMAND, CBN_SELENDCANCEL, 'hi'], # ???_selendcancel(idcmd, code, hwnd)
+    }
+    
+    DefaultEvents = [
+      :selchange # ???_clicked(idcmd, code, hwnd)
+    ]
+    
+    
+    LB_ADDSTRING    = CB_ADDSTRING
+    LB_INSERTSTRING = CB_INSERTSTRING
+    LB_DELETESTRING = CB_DELETESTRING
+    LB_SETCURSEL    = CB_SETCURSEL
+    LB_GETCURSEL    = CB_GETCURSEL
+    LB_GETTEXT      = CB_GETLBTEXT
+    LB_GETTEXTLEN   = CB_GETLBTEXTLEN
+    LB_GETCOUNT     = CB_GETCOUNT
+    LB_SELECTSTRING = CB_SELECTSTRING
+    LB_DIR          = CB_DIR
+    LB_FINDSTRING   = CB_FINDSTRING
+    LB_GETITEMDATA  = CB_GETITEMDATA
+    LB_SETITEMDATA  = CB_SETITEMDATA
+    
+#    def self.sym2style(*args) _sym2style(WinStyles, args); end
+
+    ##################### Main ###################
+    include ModStdCtrl
+    include ModListItems
+    include ModIME
+    include ModComboCommon
+    
+    attr_reader :editable
+    
+    def initialize(*args)
+      super
+      @_classname = "COMBOBOX"
+      @_items = []
+      @_ar_data = []
+      @_acceptable_events = PreDefinedEvents.dup
+      self.style |= CBS_DROPDOWNLIST if (st = self.style & 0x00000003) == 0
+      @_droppedheight = @_h
+    end
+    
+    #
+    def idcmd=(id)
+      if (self.style & 3) < CBS_DROPDOWNLIST  # show editbox
+        parent.set_msgtranslator(WM_COMMAND) unless parent.get_msgtranslator(WM_COMMAND)
+        parent.register_event(id, WM_COMMAND, CBN_SETFOCUS, "__gotfocus", 'hi', self)
+        parent.register_event(id, WM_COMMAND, CBN_KILLFOCUS, "__lostfocus",'hi', self)
+        @editable = true
+      end
+      parent.register_event(CB_DELETESTRING, "__deleteitem__", 'ix', self) # for internal use
+      super
+    end
+    
+    #
+    def create()
+      super
+      @_items.each_with_index{|val, idx| insert_item(idx, *val)}
+      self.droppedwidth = @_droppedwidth if @_droppedwidth
+      self.cursel = @_cursel if @_cursel
+    end
+    
+    # Retreives a text from combined Edit/Static contlol.<br> Returns a String.
+    def text()
+      str = self.caption
+      class << str
+        def selection() # returns [start_pos, end_pos]
+          SPLITPARAM(SendMessage(CB_GETEDITSEL, 0, 0))
+        end
+        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.inspect} is not allowed", caller(1)
+          end
+          SendMessage(CB_SETEDITSEL, start_pos.to_i, end_pos.to_i)
+        end
+      end if @editable
+      str
+    end
+    
+    # Sets a text to combined Edit/Static contlol.
+    def text=(txt) 
+      self.caption = txt
+    end
+    
+    # Gets the minimum allowable width of this Combobox control.
+    def droppedwidth()
+      alive? ? SendMessage(CB_GETDROPPEDWIDTH, 0, 0) : @_droppedwidth
+    end
+    
+    # Sets the minimum allowable width of this Combobox control.
+    def droppedwidth=(w)
+      alive? ? SendMessage(CB_SETDROPPEDWIDTH, w.to_i, 0) : @_droppedwidth = w
+    end
+    
+    protected
+    def _apply_options(arg)
+      if st=WinStyles[arg]
+        self.style |= st
+        return nil
+      end
+      super
+    end
+    
+    ###### common named methods to wrap SendMessage for ModListItems #####
+    private
+    def _addstring(wp, lp) SendMessage(CB_ADDSTRING, wp, lp); end
+    def _insertstring(wp, lp) SendMessage(CB_INSERTSTRING, wp, lp); end
+    def _deletestring(wp, lp) SendMessage(CB_DELETESTRING, wp, lp); end
+    def _getcount(wp, lp) SendMessage(CB_GETCOUNT, wp, lp); end
+    def _gettextlen(wp, lp) SendMessage(CB_GETLBTEXTLEN, wp, lp); end
+    def _gettext(wp, lp) SendMessage(CB_GETLBTEXT, wp, lp); end
+    def _findstring(wp, lp) SendMessage(CB_FINDSTRING, wp, lp); end
+    def _getcursel(wp, lp) SendMessage(CB_GETCURSEL, wp, lp); end
+    def _setcursel(wp, lp) SendMessage(CB_SETCURSEL, wp, lp); end
+    def _setitemdata(wp, lp) SendMessage(CB_SETITEMDATA, wp, lp); end
+    def _getitemdata(wp, lp) SendMessage(CB_GETITEMDATA, wp, lp); end
+  end
+end
+
+module WR
+  class Myform < Form
+    def initialize
+      @cbox1 = controls << Combobox[:cbox1, "", 4, 4, 100, 100, :simple, :imeon, :disablenoscroll]
+#      @cbox2 = controls << Combobox[:cbox2, "", 110, 4, 100, 100, :disablenoscroll, :dropdown, :autoscroll, :droppedwidth=>200]
+#      @cbox3 = controls << Combobox[:cbox1, "", 220, 4, 100, 100]
+#      (1..8).each{|i| @cbox1 << "item#{i}"}
+#      @cbox2[0, 0] = (1..12).to_a.map{|i| ["item#{i}", i]}
+#      @cbox2.cursel = -1
+#      @cbox2.size = 100, 128
+      _<< Button[:button1, "Click me", 10, 200, 80, 24]
+    end
+    
+    API.defun "GetWindow(HWND hwnd, UINT uCmd)"
+    API.defun "EnumChildWindows(HWND, ENUMPROC, LPARAM)"
+    GW_CHILD = 5
+    
+    def button1_clicked(*)
+      @cbox1.style |= CBS_DROPDOWNLIST
+    end
+    
+    def created()
+      dpp @cbox1.h
+      @cbox1.style |= CBS_DROPDOWN
+      @cbox1.h = 100
+      dpp @cbox1.h, @cbox1.droppedheight
+#      dpp @cbox3.droppedheight, @cbox3.h, @cbox2.position, @cbox1.droppedsize
+##      dpp @cbox1.selection
+##      @cbox2.inject([]){|a, i| a << [i, i.data]} s
+#      #      dpp API.GetWindow(@cbox2._hwnd, GW_CHILD)
+#      children = []
+#      API.EnumChildWindows(@cbox1._hwnd, lambda{|hwnd, lp| children << hwnd ; 1}, 0)
+#      children.each{|hwnd|
+#        ctrl = WinControl.new_from_handle(hwnd)
+#        ctrl.register_event(WM_LBUTTONDOWN, "mousedown", "ih")
+#        ctrl.SetWindowSubclass
+#        def ctrl.mousedown(*args); dpp args#, self.parent.h
+#          CancelDefWindowProc
+#        end
+#      }
+#dpp      @childedit = WinControl.new_from_handle(API.GetWindow(@cbox1._hwnd, GW_CHILD));
+#      @childedit.SetWindowSubclass
+#      @childedit.register_event(WM_LBUTTONDOWN, "mousedown", "ih")
+#      dpp @childedit
+#      def @childedit.mousedown(*args); dpp args, self.parent.h
+#        CancelDefWindowProc
+#      end
+#      
+#      dpp @cbox2.SendMessage(CB_GETITEMHEIGHT, -1, 0)
+    end
+         
+    self.start
+  end
+  
+end if __FILE__==$0