wrb 2.0.0

data/lib/wrb/components/comboboxex.rb

@@ -0,0 +1,574 @@
+require 'wrb/commctrlconst'
+require 'wrb/imecommon'
+require 'wrb/combocommon'
+
+module WR
+  module RC
+    CBEIF_TEXT = 0x1
+    CBEIF_IMAGE = 0x2
+    CBEIF_SELECTEDIMAGE = 0x4
+    CBEIF_OVERLAY = 0x8
+    CBEIF_INDENT = 0x10
+    CBEIF_LPARAM = 0x20
+    CBEIF_DI_SETITEM = 0x10000000
+    CBEIF_STANDARD = CBEIF_TEXT | CBEIF_IMAGE | CBEIF_SELECTEDIMAGE | CBEIF_INDENT | CBEIF_LPARAM
+    
+    CBEM_INSERTITEMA = WM_USER+1
+    CBEM_SETIMAGELIST = WM_USER+2
+    CBEM_GETIMAGELIST = WM_USER+3
+    CBEM_GETITEMA = WM_USER+4
+    CBEM_SETITEMA = WM_USER+5
+    CBEM_DELETEITEM = 0x0144 # CB_DELETESTRING
+    CBEM_GETCOMBOCONTROL = WM_USER+6
+    CBEM_GETEDITCONTROL = WM_USER+7
+    CBEM_SETEXSTYLE = WM_USER+8
+    CBEM_SETEXTENDEDSTYLE = WM_USER+14
+    CBEM_GETEXSTYLE = WM_USER+9
+    CBEM_GETEXTENDEDSTYLE = WM_USER+9
+    CBEM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT
+    CBEM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT
+    CBEM_HASEDITCHANGED = WM_USER+10
+    CBEM_INSERTITEMW = WM_USER+11
+    CBEM_SETITEMW = WM_USER+12
+    CBEM_GETITEMW = WM_USER+13
+
+    if RWin::UNICODE
+      CBEM_INSERTITEM = CBEM_INSERTITEMW
+      CBEM_SETITEM = CBEM_SETITEMW
+      CBEM_GETITEM = CBEM_GETITEMW
+    else
+      CBEM_INSERTITEM = CBEM_INSERTITEMA
+      CBEM_SETITEM = CBEM_SETITEMA
+      CBEM_GETITEM = CBEM_GETITEMA
+    end
+
+    CBEM_SETWINDOWTHEME = CCM_SETWINDOWTHEME
+
+    CBES_EX_NOEDITIMAGE = 0x1
+    CBES_EX_NOEDITIMAGEINDENT = 0x2
+    CBES_EX_PATHWORDBREAKPROC = 0x4
+    CBES_EX_NOSIZELIMIT = 0x8
+    CBES_EX_CASESENSITIVE = 0x10
+    
+    CBEN_FIRST = -800
+    CBEN_GETDISPINFOA = CBEN_FIRST-0
+    CBEN_INSERTITEM = CBEN_FIRST-1
+    CBEN_DELETEITEM = CBEN_FIRST-2
+    CBEN_BEGINEDIT = CBEN_FIRST-4
+    CBEN_ENDEDITA = CBEN_FIRST-5
+    CBEN_ENDEDITW = CBEN_FIRST-6
+    CBEN_GETDISPINFOW = CBEN_FIRST-7
+    CBEN_DRAGBEGINA = CBEN_FIRST-8
+    CBEN_DRAGBEGINW = CBEN_FIRST-9
+
+    if defined?(Encoding)
+      CBEN_GETDISPINFO = CBEN_GETDISPINFOW
+      CBEN_DRAGBEGIN = CBEN_DRAGBEGINW
+      CBEN_ENDEDIT = CBEN_ENDEDITW
+    else
+      CBEN_GETDISPINFO = CBEN_GETDISPINFOA
+      CBEN_DRAGBEGIN = CBEN_DRAGBEGINA
+      CBEN_ENDEDIT = CBEN_ENDEDITA
+    end
+    
+    CBENF_KILLFOCUS = 1
+    CBENF_RETURN = 2
+    CBENF_ESCAPE = 3
+    CBENF_DROPDOWN = 4
+    
+    CBEMAXSTRLEN = 260
+  end
+  
+  # A combo box control which provides native support for item images.
+  #<br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  #window-controls">Windows Control section of Microsoft Docs.</a>
+  class ComboboxEx < WinControl
+    include ModCommCtrl
+    include ModComboCommon
+#    include Enumerable
+    
+    API.typealias("INT_PTR", 'I')
+    COMBOBOXEXITEM = API.defstruct "
+      UINT mask;
+      INT_PTR iItem;
+      LPTSTR pszText;
+      int cchTextMax;
+      int iImage;
+      int iSelectedImage;
+      int iOverlay;
+      int iIndent;
+      LPARAM lParam;"
+    
+    NMCOMBOBOXEX = API.defstruct "
+      NMHDR hdr;
+      COMBOBOXEXITEM ceItem;"
+    
+    NMCBEDRAGBEGIN = API.defstruct "
+      NMHDR hdr;
+      int iItemid;
+      TCHAR szText[#{CBEMAXSTRLEN}];"
+    
+    NMCBEENDEDIT = API.defstruct "
+      NMHDR hdr;
+      BOOL fChanged;
+      int iNewSelection;
+      TCHAR szText[#{CBEMAXSTRLEN}];
+      int iWhy;"
+    
+    # Wrapper of the index of an item
+    class Item 
+      include RC
+      
+      def initialize(owner, idx)
+        @owner = owner
+        @index = idx
+      end
+      
+      def text()
+        if @owner.alive?
+          buff = TCHAR[CBEMAXSTRLEN]
+          cbxitem = COMBOBOXEXITEM[CBEIF_TEXT, @index, buff, CBEMAXSTRLEN]
+          @owner.SendMessage(CBEM_GETITEM, 0, cbxitem)
+          buff.to_s
+        else
+          @owner._items[@index][0]
+        end
+      end
+      def text=(txt)
+        if @owner.alive?
+          cbxitem = COMBOBOXEXITEM[CBEIF_TEXT, @index, txt, txt.size]
+          @owner.SendMessage(CBEM_SETITEM, 0, cbxitem)
+        else
+          @owner._items[@index][0] = txt
+        end
+      end
+      
+      def image()
+        if @owner.alive?
+          cbxitem = COMBOBOXEXITEM[CBEIF_IMAGE, @index]
+          @owner.SendMessage(CBEM_GETITEM, 0, cbxitem)
+          cbxitem.iImage
+        else
+          @owner._items[@index][1]
+        end
+      end
+      def image=(img)
+        if @owner.alive?
+          cbxitem = COMBOBOXEXITEM[CBEIF_IMAGE | CBEIF_SELECTEDIMAGE, @index]
+          cbxitem.iImage = img
+          @owner.SendMessage(CBEM_SETITEM, 0, cbxitem)
+        else
+          if @owner._items[@index][1].is_a?(Array) 
+            @owner._items[@index][1][0] = img
+          else
+            @owner._items[@index][1] = img
+          end
+        end
+      end
+      
+      def selectedimage()
+        if @owner.alive?
+          cbxitem = COMBOBOXEXITEM[CBEIF_SELECTEDIMAGE, @index]
+          @owner.SendMessage(CBEM_GETITEM, 0, cbxitem)
+          cbxitem.iSelectedImage
+        else
+          @owner._items[@index][2]
+        end
+      end
+      def selectedimage=(isel)
+        if @owner.alive?
+          cbxitem = COMBOBOXEXITEM[CBEIF_SELECTEDIMAGE, @index]
+          cbxitem.iSelectedImage = isel
+          @owner.SendMessage(CBEM_SETITEM, 0, cbxitem)
+        else
+          @owner._items[@index][2] = isel
+        end
+      end
+      
+      def overlay()
+        if @owner.alive?
+          cbxitem = COMBOBOXEXITEM[CBEIF_OVERLAY, @index]
+          @owner.SendMessage(CBEM_GETITEM, 0, cbxitem)
+          cbxitem.iOverlay
+        else
+          @owner._items[@index][3]
+        end
+      end
+      def overlay=(ovl)
+        if @owner.alive?
+          cbxitem = COMBOBOXEXITEM[CBEIF_OVERLAY, @index]
+          cbxitem.iOverlay = ovl
+          @owner.SendMessage(CBEM_SETITEM, 0, cbxitem)
+        else
+          @owner._items[@index][3] = ovl
+        end
+      end
+      
+      def indent()
+        if @owner.alive?
+          cbxitem = COMBOBOXEXITEM[CBEIF_INDENT, @index]
+          @owner.SendMessage(CBEM_GETITEM, 0, cbxitem)
+          cbxitem.iIndent
+        else
+          @owner._items[@index][4]
+        end
+      end
+      def indent=(idt)
+        if @owner.alive?
+          cbxitem = COMBOBOXEXITEM[CBEIF_OVERLAY, @index]
+          cbxitem.iIndent = idt
+          @owner.SendMessage(CBEM_SETITEM, 0, cbxitem)
+        else
+          @owner._items[@index][4] = idt
+        end
+      end
+      
+      def data()
+        if @owner.alive?
+          cbxitem = COMBOBOXEXITEM[CBEIF_LPARAM, @index]
+          @owner.SendMessage(CBEM_GETITEM, 0, cbxitem)
+          ObjectSpace._id2ref(cbxitem.lParam)
+        else
+          @owner._items[@index][5]
+        end
+      end
+      def data=(dat)
+        if @owner.alive?
+          cbxitem = cbxitem[CBEIF_LPARAM, @index]
+          @owner.SendMessage(CBEM_GETITEM, 0, cbxitem)
+          lp = cbxitem.lParam
+          if (lp&1)==0 && lp>NilID
+            @owner._ar_data.delete(ObjectSpace._id2ref(cbxitem.lParam)) # delete old data
+            @owner._ar_data << dat
+          end
+          cbxitem.lParam = dat.__id__
+          @owner.SendMessage(CBEM_SETITEM, 0, cbxitem)
+        else
+          @owner._items[@index][5] = dat
+        end
+      end
+    end
+    
+    ####################### Main #######################
+    
+    WinStyles = {
+      :simple => CBS_SIMPLE,
+      :dropdown => CBS_DROPDOWN,
+      :dropdownlist => CBS_DROPDOWNLIST
+    }
+#    def self.sym2style(*args) _sym2style(WinStyles, args); end
+    
+    CbesExStyles = {
+      :noeditimage => CBES_EX_NOEDITIMAGE,
+      :noeditimageindent => CBES_EX_NOEDITIMAGEINDENT,
+      :pathwordbreakproc => CBES_EX_PATHWORDBREAKPROC,
+      :nosizelimit => CBES_EX_NOSIZELIMIT,
+      :casesensitive => CBES_EX_CASESENSITIVE
+    }
+#    def self.sym2exstyle(*args) _sym2style(CbesExStyles, args); end
+    
+    PreDefinedEvents = {
+      :selchange    => [WM_COMMAND, CBN_SELCHANGE, 'hi'],
+      :dblclk       => [WM_COMMAND, CBN_DBLCLK, 'hi'],
+      :setfocus     => [WM_COMMAND, CBN_SETFOCUS, 'hi'],
+      :killfocus    => [WM_COMMAND, CBN_KILLFOCUS, 'hi'],
+      :editchange   => [WM_COMMAND, CBN_EDITCHANGE, 'hi'],
+      :editupdate   => [WM_COMMAND, CBN_EDITUPDATE, 'hi'],
+      :dropdown     => [WM_COMMAND, CBN_DROPDOWN, 'hi'],
+      :closeup      => [WM_COMMAND, CBN_CLOSEUP, 'hi'],
+      :selendok     => [WM_COMMAND, CBN_SELENDOK, 'hi'],
+      :selendcancel => [WM_COMMAND, CBN_SELENDCANCEL, 'hi'],
+      :setcursor    => [WM_NOTIFY, NM_SETCURSOR, 'xs', NMMOUSE],
+      :getdispinfo  => [WM_NOTIFY, CBEN_GETDISPINFO, 'xs', NMCOMBOBOXEX],
+      :insertitem   => [WM_NOTIFY, CBEN_INSERTITEM, 'xs', NMCOMBOBOXEX],
+      :deleteitem   => [WM_NOTIFY, CBEN_DELETEITEM, 'xs', NMCOMBOBOXEX],
+      :beginedit    => [WM_NOTIFY, CBEN_BEGINEDIT, 'xs', NMCBEENDEDIT],
+      :endedit      => [WM_NOTIFY, CBEN_ENDEDIT, 'xs', NMCBEENDEDIT],
+      :dragbegin    => [WM_NOTIFY, CBEN_DRAGBEGIN, 'xs', NMCBEDRAGBEGIN]
+    }
+    DefaultEvents = [:selchange]
+    include ModIME
+    
+    attr_reader :_items, :_ar_data
+    
+    def initialize(*args)
+      super
+      @_classname = "ComboBoxEx32"
+      @_extendedstyle = 0
+      @_items ||= []
+      @_ar_data = []
+      @_cbeitem4delete = COMBOBOXEXITEM[CBEIF_LPARAM] # for delete method
+      @_acceptable_events = PreDefinedEvents.dup
+      self.style |= CBS_DROPDOWNLIST if (st = self.style & 0x00000003) == 0
+      @_droppedheight = @_h
+    end
+    
+    #
+    def idcmd=(id)
+      case self.style  # show editbox
+      when CBS_SIMPLE , CBS_DROPDOWN # for IME
+        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.set_msgtranslator(WM_NOTIFY) unless parent.get_msgtranslator(WM_NOTIFY)
+      parent.register_event(id, WM_NOTIFY, CBEN_DELETEITEM, "__deleteitem__", 'xs',
+                              NMCOMBOBOXEX, self) # for internal use
+      super
+    end
+    
+    #
+    def create()
+      super
+      self.extendedstyle = @_extendedstyle if @_extendedstyle != 0
+      self.imagelist = @_imagelist if @_imagelist
+      self.droppedwidth = @_droppedwidth if @_droppedwidth
+      @_items.each_with_index{|val, idx| insert_item(idx, *val)}
+      self.cursel = @_cursel if @_cursel
+    end
+    
+    # Gets the extended styles of this control.<br>
+    # Retuens combination of the integer values.
+    def extendedstyle()
+      alive? ? SendMessage(CBEM_GETEXTENDEDSTYLE, 0, 0) : @_extendedstyle
+    end
+    
+    # Sets the extended styles of this control.<br>
+    # Give combination of the integer values.
+    def extendedstyle=(es)
+      alive? ? SendMessage(CBEM_SETEXTENDEDSTYLE, 0, es) : @_extendedstyle = es
+    end
+    
+    # Gets an imagelist assigned to this ComboboxEx control.
+    def imagelist()
+      alive? ? APP.hrsc2ref(SendMessage(CBEM_GETIMAGELIST, 0, 0)) : @_imagelist
+    end
+    
+    # Assignes an imagelist to this ComboboxEx control.
+    def imagelist=(il)
+      il = Imagelist.loadb64(il) if il.is_a?(String)
+      alive? ? SendMessage(CBEM_SETIMAGELIST,0,il._himagelist) : @_imagelist=il
+    end
+    
+    # Gets the minimum allowable width of this Combobox control.
+    def droppedwidth()
+      if alive?
+        hchildcombo = SendMessage(CBEM_GETCOMBOCONTROL, 0, 0)
+        API.SendMessage(hchildcombo, CB_GETDROPPEDWIDTH, 0, 0)
+      else
+        @_droppedwidth
+      end
+    end
+    
+    # Sets the minimum allowable width of this Combobox control.
+    def droppedwidth=(w)
+      alive? ? SendMessage(CB_SETDROPPEDWIDTH, w.to_i, 0) : @_droppedwidth = w
+    end
+    
+    # Sets the items to this ComboboxEx control befor creation.<br>
+    # Give arrays of [[<i>text</i>, <i>image</i>, <i>indent</i>, <i>data</i>], ... ] as <i> args</i>.
+    def items=(*args)
+      raise "This method can only use before create." if self.alive?
+      args = args[0].is_a?(Array) ? args[0] : args
+      @_items ||= []
+      args.each{|i|
+        txt, image, indent, data = i
+        @_items << [txt, image, indent, data]
+      }
+    end
+    
+    # Retreives a number of the items in this Combobox control.
+    def count()
+      alive? ? SendMessage(CB_GETCOUNT, 0, 0) : @_items.size
+    end
+    
+    # Inserts an item with specified arguments.
+    # `image' can be an integer or array of [iImage, iSelectedImage, iOverlay]
+    def insert_item(index, text, image=nil, indent=nil, data=nil)
+      if alive?
+        cbxitem = COMBOBOXEXITEM[CBEIF_STANDARD, index.to_i]#, text.to_s, text.to_s.size]
+        if image.is_a?(Array)
+          cbxitem.iImage = image[0] ? image[0].to_i : -1
+          cbxitem.iSelectedImage = image[1] ? image[1].to_i : -1
+          if image[2]
+            cbxitem.mask |= CBEIF_OVERLAY
+            cbxitem.iOverlay = image[2].to_i
+          end
+        else
+          cbxitem.iImage = image ? image.to_i : -1
+          cbxitem.iSelectedImage = image ? image.to_i : -1
+        end
+        cbxitem.pszText = text.to_s
+        cbxitem.cchTextMax = text.size
+        cbxitem.iIndent = indent.to_i
+        lparam = data.__id__
+        @_ar_data << data if !data.nil? && (lparam&1)==0 && lparam>NilID
+        cbxitem.lParam = lparam
+        SendMessage(CBEM_INSERTITEM, index.to_i, cbxitem)
+      else
+        @_items.insert(index, [text, image, indent, data])
+      end
+    end
+    
+    # Deletes specified index of this CombobxEx control.
+    def delete_item(index)
+      if alive?
+        SendMessage(CBEM_DELETEITEM, index, 0) == 0 ? false : true
+      else
+        @_items.delete_at(index)
+      end
+    end
+    
+    def delete(*args)
+      return super() if args.empty?
+      idx, len = args
+      len ||= 1
+      len.times{ delete_item(idx) }
+    end
+    
+    # insert(index, length=1, *args)
+    # Inserts and replaces at the specified <i>index</i> and <i>length</i> with the <i>items</i>.<br>
+    # Give the arrays of [[<i>text</i>, <i>image</i>, <i>indent</i>, <i>data</i>], ... ] as <i>args</i>.
+    def insert(*args)
+      idx = args.shift
+      idx = self.count if idx == -1
+      case args.size
+      when 2
+        len = args.shift
+      when 1
+        len = 1
+      else
+        raise ArgumentError "Illegal num of args: #{args.size + 1}"
+      end
+      args = args[0]
+      len.times{delete_item(idx)}
+      if args[0].is_a?(Array)
+        args.each_with_index{|arg, i| insert_item(idx + i, *arg)}
+      else
+        insert_item(idx, *args)
+      end
+    end
+    alias []= insert
+    
+    # Retreives a ComboboxEx::Item at specified <i>index</i>.
+    def fetch(index)
+      ComboboxEx::Item.new(self, index)
+    end
+    
+    # Retreives the array of ComboboxEx::Item at the specified index and length.
+    def slice(idx, num=1)
+      if num == 1
+        fetch(idx)
+      else
+        ret = []
+        num.times{|i| ret << fetch(idx + i)}
+        ret
+      end
+    end
+    alias [] slice
+    
+    # Adds the args at last of the items.<br>
+    # Give the arrays of [[<i>text</i>, <i>image</i>, <i>indent</i>, <i>data</i>], ... ] as <i>args</i>.
+    def add(args)
+      if args[0].is_a?(Array) || args[0].is_a?(Item)
+        args.each{|i| insert_item(self.count, *i)}
+      else
+        insert_item(self.count, *args)
+      end
+    end
+    alias << add
+    
+    # each(){|item| ... }
+    # Performs the block for each <i>item</i> in this combobox as a block parameter.
+    def each()
+      count.times{|i| yield fetch(i)}
+    end
+    
+    # Retrieves the index of the currently selected item.
+    def cursel()
+      alive? ? SendMessage(CB_GETCURSEL, 0, 0) : @_cursel
+    end
+    
+    # Changes the currently selected item to specified index.
+    def cursel=(idx)
+      alive? ? SendMessage(CB_SETCURSEL, idx, 0) : @_cursel = idx
+    end
+    
+    # Retrieves the currently selected item as String.
+    def selection()
+      (i=cursel) >= 0 ? fetch(i) : nil
+    end
+
+    protected
+    def _apply_options(arg)
+      if es=CbesExStyles[arg]
+        @_extendedstyle |= es
+      end
+      if st=WinStyles[arg]
+        self.style |= st
+        return nil
+      end
+      super
+    end
+    
+    private
+    def __deleteitem__(nmcomboboxex)
+      return unless alive?
+      return unless nmcomboboxex.hdr.hwndFrom == self._hwnd
+      return unless @_cbeitem4delete
+      item = nmcomboboxex.ceItem
+      SendMessage(CBEM_GETITEM, 0, @_cbeitem4delete)
+      lparam = @_cbeitem4delete.lParam
+      if (lparam&1)==0 && lparam>NilID
+        data = ObjectSpace._id2ref(lparam) #; dp "@data=%p", data
+        if n = @_ar_data.index(data)
+          @_ar_data.delete_at(n)
+        end
+      end
+    end
+  end
+  
+end
+
+#__END__
+
+module WR
+  class Form1 < Form
+    def initialize()
+     img = "JJMAIBAYAAwAAgABoABoAf7/f7/AsAYoBQkImnYAAAAACAIEAgRRAMAaQEADUBQADAwCA2LYAUCFAAAAAAAAAIBsIAAABAQPQQCAgDnANCAWAAYDAYAAQEAkQA/wAAH/BdB/v+AOcBAIBYQgBgo/Bj+Dr8If4TPwq/he/DP+HD8PP4gvxF/iU/E7+Kb8V/4uPxg/jK/Gn+Nz8cv47sIhEIhER0RkIoCIBkABHyNwgISiJGxwLyR6IRCPgWTA5MEQIygcaAIHJIiC4UDjQBByGDsEFwYHHypwg6hCVGDh8oYQBKOJHv98QxJg3nLiSFQD4lmRDgx8Q75l51EYCYH8xX5pAEImj6ackAgZp1gGbQTQmm/OAKcsE2f5vPzi/nO/Ov+eDlAIX9OZJ/vADT/gc7/gEG83+34CBPl/o+AwT8f4ngQE/j8c4CBvx8wIDfr9gcE84HAA6CAgegoJEAGDAoA="
+      resize 640, 480
+      self.font = Font['Meiryo', 18]      
+      @cboxx1 = controls << ComboboxEx[:cboxx1, "", 4, 4, 126, 168, :dropdown, :imagelist=>img]
+      @cboxx2 = controls << ComboboxEx[:cboxx2, "", 132, 4, 126, 168, :droppedwidth=>150]
+      @cboxx1 << [["s1", 1, 0, 1], ["s2", 1, 0, 1]]
+      
+#      list = ['open', 1, 0, 1], ['doc1', 2, 1], ['doc2', 2, 1]
+#      @cboxx1[0, 0] = list
+#      @cboxx1[-1, 0] = list.map{|i| i[0]+='1'; i}
+#      @cboxx1[-1, 0] = ['close', 0]
+#      list = list + list << ['closed', 0]
+#
+#      (1..7).each{|i| @cboxx2 << ["item#{i}", nil, nil, "data=item#{i}"] }
+#      @cboxx1.cursel = 4
+#      @cboxx2.cursel = 6
+    end
+    
+    def created()
+      @s = 'open'
+      @cboxx1 << [["s1", 1, 0, 1], ["s2", 1, 0, 1]]
+#      @cboxx1[0].text = ""
+#      dpp @cboxx1.imagelist
+#      dpp @cboxx2.droppedwidth
+#      @cboxx1[4].image = -1
+#      @cboxx1[4].selectedimage = -1
+#      @cboxx2.style = @cboxx2.style & ~3 | 2
+    end
+    
+    def cboxx1_selchange(*args)
+      dpp @cboxx1.cursel
+    end
+    
+    self.start
+  end
+end if $0 == __FILE__
+