wrb 2.0.0

data/lib/wrb/components/static.rb

@@ -0,0 +1,198 @@
+require 'wrb'
+
+module WR
+  module RC
+    SS_LEFT = 0x00000000
+    SS_CENTER = 0x00000001
+    SS_RIGHT = 0x00000002
+    SS_ICON = 0x00000003
+    SS_BLACKRECT = 0x00000004
+    SS_GRAYRECT = 0x00000005
+    SS_WHITERECT = 0x00000006
+    SS_BLACKFRAME = 0x00000007
+    SS_GRAYFRAME = 0x00000008
+    SS_WHITEFRAME = 0x00000009
+    SS_USERITEM = 0x0000000A
+    SS_SIMPLE = 0x0000000B
+    SS_LEFTNOWORDWRAP = 0x0000000C
+    SS_OWNERDRAW = 0x0000000D
+    SS_BITMAP = 0x0000000E
+    SS_ENHMETAFILE = 0x0000000F
+    SS_ETCHEDHORZ = 0x00000010
+    SS_ETCHEDVERT = 0x00000011
+    SS_ETCHEDFRAME = 0x00000012
+    SS_TYPEMASK = 0x0000001F
+    SS_REALSIZECONTROL = 0x00000040
+    SS_NOPREFIX = 0x00000080
+    SS_NOTIFY = 0x00000100
+    SS_CENTERIMAGE = 0x00000200
+    SS_RIGHTJUST = 0x00000400
+    SS_REALSIZEIMAGE = 0x00000800
+    SS_SUNKEN = 0x00001000
+    SS_EDITCONTROL = 0x00002000
+    SS_ENDELLIPSIS = 0x00004000
+    SS_PATHELLIPSIS = 0x00008000
+    SS_WORDELLIPSIS = 0x0000C000
+    SS_ELLIPSISMASK = 0x0000C000
+
+    STM_SETICON  = 0x0170
+    STM_GETICON  = 0x0171
+    STM_SETIMAGE = 0x0172
+    STM_GETIMAGE = 0x0173
+    STM_MSGMAX   = 0x0174
+    
+    STN_CLICKED = 0
+    STN_DBLCLK  = 1
+    STN_ENABLE  = 2
+    STN_DISABLE = 3
+    
+    IMAGE_BITMAP = 0
+    IMAGE_ICON = 1
+    IMAGE_CURSOR = 2
+    IMAGE_ENHMETAFILE = 3
+  end
+  
+  #This control provides the user with informational text that typically require no response. 
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  # window-controls"> Windows Control section of Microsoft Docs.</a>
+  class Static  < WinControl
+    include ModStdCtrl
+    
+    WinStyles = {
+      :left => SS_LEFT,
+      :center => SS_CENTER,
+      :right => SS_RIGHT,
+      :icon => SS_ICON,
+      :blackrect => SS_BLACKRECT,
+      :grayrect => SS_GRAYRECT,
+      :whiterect => SS_WHITERECT,
+      :blackframe => SS_BLACKFRAME,
+      :grayframe => SS_GRAYFRAME,
+      :whiteframe => SS_WHITEFRAME,
+      :useritem => SS_USERITEM,
+      :simple => SS_SIMPLE,
+      :leftnowordwrap => SS_LEFTNOWORDWRAP,
+      :ownerdraw => SS_OWNERDRAW,
+      :bitmap => SS_BITMAP,
+      :enhmetafile => SS_ENHMETAFILE,
+      :etchedhorz => SS_ETCHEDHORZ,
+      :etchedvert => SS_ETCHEDVERT,
+      :etchedframe => SS_ETCHEDFRAME,
+      :realsizecontrol => SS_REALSIZECONTROL,
+      :noprefix => SS_NOPREFIX,
+      :notify => SS_NOTIFY,
+      :centerimage => SS_CENTERIMAGE,
+      :rightjust => SS_RIGHTJUST,
+      :realsizeimage => SS_REALSIZEIMAGE,
+      :sunken => SS_SUNKEN,
+      :editcontrol => SS_EDITCONTROL,
+      :endellipsis => SS_ENDELLIPSIS,
+      :pathellipsis => SS_PATHELLIPSIS,
+      :wordellipsis => SS_WORDELLIPSIS,
+#      :typemask => SS_TYPEMASK,
+#      :ellipsismask => SS_ELLIPSISMASK
+    }
+    PreDefinedEvents = {
+      :clicked => [WM_COMMAND, STN_CLICKED, 'hi'],
+      :dblclk  => [WM_COMMAND, STN_DBLCLK, 'hi'],
+      :enable  => [WM_COMMAND, STN_ENABLE, 'hi'],
+      :disable => [WM_COMMAND, STN_DISABLE, 'hi']
+    }
+    
+    # ( No default event )
+    DefaultEvents=[]
+    
+#    def self.sym2style(*args) _sym2style(WinStyles, args); end
+    
+    def initialize(*args)
+      super
+      @_classname = "STATIC"
+      @_acceptable_events = PreDefinedEvents.dup
+    end
+    #
+    def create()
+      super
+      self.icon = @_icon if @_icon
+      self.bitmap = @_bitmap if @_bitmap
+      self.cursor = @_cursor if @_cursor
+    end
+    
+    # Retreives an Icon whicih asociated with this static control
+    def icon()
+      alive? ? APP.hrsc2ref(SendMessage(STM_GETIMAGE, IMAGE_ICON, 0)) : @_icon
+    end
+    # Associates an Icon with this static control.
+    def icon=(ico)
+      alive? ?  SendMessage(STM_SETIMAGE, IMAGE_ICON, ico._hicon) : @_icon=ico
+    end
+    
+    # Retreives a Bitmap whicih asociated with this static control
+    def bitmap()
+      alive? ? APP.hrsc2ref(SendMessage(STM_GETIMAGE, IMAGE_BITMAP, 0)) : @_bitmap 
+    end
+    # Associates a Bitmap with this static control.
+    def bitmap=(bmp)
+      alive? ? SendMessage(STM_SETIMAGE, IMAGE_BITMAP, bmp._hddbitmap) : @_bitmap=bmp
+    end
+    
+    # Retreives a Cursor whicih asociated with this static control
+    def cursor()
+      alive? ? APP.hrsc2ref(SendMessage(STM_GETIMAGE, IMAGE_CURSOR, 0)) : @_cursor
+    end
+    # Associates a Cursor with this static control.
+    def cursor=(cur)
+      alive? ? SendMessage(STM_SETIMAGE, IMAGE_CURSOR, bmp._hcursor) : @_cursor=cur
+    end
+    
+    protected
+    def _apply_options(arg)
+      if st=WinStyles[arg]
+        @_style |= st
+        return nil
+      end
+      super
+    end
+  end
+end
+
+module WR
+  class MyForm < Form
+    class MyStatic < Static
+      def create()
+        super
+        self.style |= SS_OWNERDRAW
+        parent.register_event WM_DRAWITEM, '__mystatic_ownerdraw', 'xs', DRAWITEMSTRUCT, self
+      end
+      def __mystatic_ownerdraw(di)
+        return unless di.ctlID == self.idcmd
+        cv = Canvas.new(di.hDC)
+        cv.Transparent
+        cv.TextOut(0, 0, self.caption)
+      end
+    end
+    
+    
+    def initialize()
+      resize 640, 480
+      _<< MyStatic[:st1, "Static", 0, 0, 64, 64, :icon]
+      _<< MyStatic[:st2, "Static", 0, 64, 64, 64, :bitmap]
+      _.st1.icon = Icon.fromfile('../resources/win32.ico')
+      _.st2.bitmap = Bitmap.fromfile('../resources/clip.bmp')
+      _<< MyStatic[:mstt1, "MyStatic", 0, 128, 100, 24, :ownerdraw]
+      register_event WM_PAINT, 'self_paint', 'c'
+    end
+    
+    def created()
+      _.st1.icon = Icon.fromfile('../resources/win32.ico') # not work  after created
+      dpp _st1.icon # not work  after created
+#      _.st2.bitmap = Bitmap.fromfile('../resources/clip.bmp')
+#      dpp _st2.bitmap
+    end
+    
+    def self_paint(cv)
+      cv.FillRect(0, 0, w, h, 0xffffff)
+    end
+    
+    self.start
+  end
+end if __FILE__ == $0

data/lib/wrb/components/statusbar.rb

@@ -0,0 +1,490 @@
+require 'wrb'
+require 'wrb/commctrlconst'
+
+module WR
+  module RC
+    SB_SETTEXTA       = WM_USER+1
+    SB_GETTEXTA       = WM_USER+2
+    SB_GETTEXTLENGTHA = WM_USER+3
+    SB_SETPARTS       = WM_USER+4
+    SB_GETPARTS       = WM_USER+6
+    SB_GETBORDERS     = WM_USER+7
+    SB_SETMINHEIGHT   = WM_USER+8
+    SB_SIMPLE         = WM_USER+9
+    SB_GETRECT        = WM_USER+10
+    SB_SETTEXTW       = WM_USER+11
+    SB_GETTEXTLENGTHW = WM_USER+12
+    SB_GETTEXTW       = WM_USER+13
+    SB_ISSIMPLE       = WM_USER+14
+    SB_SETICON        = WM_USER+15
+    SB_SETTIPTEXTA    = WM_USER+16
+    SB_SETTIPTEXTW    = WM_USER+17
+    SB_GETTIPTEXTA    = WM_USER+18
+    SB_GETTIPTEXTW    = WM_USER+19
+    SB_GETICON        = WM_USER+20
+    SB_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT
+    SB_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT
+    
+    if RWin::UNICODE
+      SB_SETTEXT       = SB_SETTEXTW
+      SB_GETTEXT       = SB_GETTEXTW
+      SB_GETTEXTLENGTH = SB_GETTEXTLENGTHW
+      SB_SETTIPTEXT    = SB_SETTIPTEXTW
+      SB_GETTIPTEXT    = SB_GETTIPTEXTW
+    else
+      SB_SETTEXT       = SB_SETTEXTA
+      SB_GETTEXT       = SB_GETTEXTA
+      SB_GETTEXTLENGTH = SB_GETTEXTLENGTHA
+      SB_SETTIPTEXT    = SB_SETTIPTEXTA
+      SB_GETTIPTEXT    = SB_GETTIPTEXTA
+    end
+      
+    SBT_NOBORDERS      = 0x0100
+    SBT_POPOUT         = 0x0200
+    SBT_RTLREADING     = 0x0400
+    SBT_TOOLTIPS       = 0x0800
+    SBT_NOTABPARSING   = 0x0800
+    SBT_OWNERDRAW      = 0x1000
+    
+    SBARS_SIZEGRIP     = 0x100
+    SBARS_TOOLTIPS     = 0x800
+    
+    SB_SETBKCOLOR = CCM_SETBKCOLOR
+    
+    SBN_FIRST = -880
+    SBN_SIMPLEMODECHANGE = SBN_FIRST - 0
+    
+    SB_SIMPLEID = 0xff
+  end
+  
+  # A horizontal window at the bottom of a parent window in which an application can display various kinds of status information. 
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  # window-controls"> Windows Control section of Microsoft Docs.</a>
+  class Statusbar < WinControl
+    include ModParent
+    class Part  # wrapper of index
+      include RC
+#      include ModUtil
+      SB_MAXTEXTSISE = 127
+      
+      PartTypes ={
+        :noborders    => SBT_NOBORDERS,
+        :popout       => SBT_POPOUT,
+        :rtlreading   => SBT_RTLREADING,
+        :notabparsing => SBT_NOTABPARSING,
+        :ownerdraw    => SBT_OWNERDRAW
+      }
+      
+      def initialize(*args)
+        @owner = args.shift if args[0].is_a?(Statusbar)
+        raise ArgumentError, "No index given" unless args[0].is_a?(Integer)
+        @_index = args.shift
+        return if args.empty?
+        typ = 0
+        while args.last.is_a?(Symbol)
+          if pt=PartTypes[args.pop]
+            typ |= pt
+          end
+        end #; dp "@%p", args
+        self.width = args.shift if args[0].is_a?(Integer)
+        txt, img, ty  = args
+        typ |= ty.to_i
+        @_text, @_iimage, @_type = txt, img, typ
+      end
+      
+      def index()
+        @_index
+      end
+      def index=(idx)
+        @_index = idx
+      end
+      
+      def set_attributes_on_create(idx)
+        raise RuntimeError "Window not alive #{@owner}" unless @owner.alive?
+        @_index = idx
+        self.type = @_type if @_type
+        self.text = @_text if @_text
+        self.iimage = @_iimage if @_iimage
+        self.tiptext = @_tiptext if @_tiptext
+      end
+      
+      def owner=(tgt)
+        @owner = tgt
+      end
+      
+      def type()
+        if @owner.alive?
+          r = @owner.SendMessage(SB_GETTEXTLENGTH, @_index, 0)
+          r==0 ? @_type : HIWORD(r)
+        else
+          @_type
+        end
+      end
+      def type=(typ)
+        if @owner.alive?
+          if typ.is_a?(Symbol)
+            typ = PartTypes[typ] || 0
+          end
+          txt = self.text
+          @owner.SendMessage(SB_SETTEXT, @_index | typ, _I(txt))
+          @owner.refresh
+        else
+          @_type = typ
+        end
+      end
+      
+      def text()
+        if @owner.alive?
+          len = (@owner.SendMessage(SB_GETTEXTLENGTH, @_index, 0) & 0xff) + 1
+          buff = TCHAR[len]
+          len = @owner.SendMessage(SB_GETTEXT, @_index, buff);
+          len==0 ? @_text : buff.to_s[0, len & 0xff].rstrip
+        else
+          @_text
+        end
+      end
+      def text=(txt)
+        if @owner.alive?
+          style = SPLITPARAM(@owner.SendMessage(SB_GETTEXT, @_index, 0))[1]
+          @owner.SendMessage(SB_SETTEXT, @_index | style, _I(txt))
+        else
+          @_text = txt
+        end
+      end
+      
+      def width()
+        @owner.alive? ? @owner._get_width(@_index)||@_width : @_width
+      end
+      
+      def width=(w)
+        @owner.alive? ? @owner._set_width(@_index, w) : @_width=w
+      end
+      
+      def rect()
+        rect = RECT.new
+        @owner.SendMessage(SB_GETRECT, @_index, rect)
+        rect
+      end
+      
+      def tiptext() # Causes SEGV if not defined tiptext
+        buff = TCHAR[SB_MAXTEXTSISE];
+        @owner.SendMessage(SB_GETTIPTEXT, MAKELPARAM(@_index, SB_MAXTEXTSISE), buff)
+        buff.to_s
+      end
+      def tiptext=(txt)
+        if txt.nil?
+          str = ""
+        else
+          str = API.encode_internal(txt)
+          raise ArgumentError, "text size must less than #{SB_MAXTEXTSISE}", caller(1) if str.size > SB_MAXTEXTSISE
+        end
+        if @owner.alive?
+          @owner.SendMessage(SB_SETTIPTEXT, @_index, str)
+        else
+          @_tiptext = str
+        end
+      end
+      
+      def icon()
+        @owner._get_icon(@_index)
+      end
+      def icon=(ico)
+        @owner._set_icon(@_index, ico)
+      end
+      
+      def iimage()
+        return nil unless (ico=@owner.__send__(:_get_icon, @_index))
+        @owner.imagelist._icons.index{|i| ico._hicon == i}
+      end
+      def iimage=(idx) # NG, icon will be destroyed soon.
+        raise RuntimeError, "imagelist does not exists", caller(1) unless @owner.imagelist
+        ico = idx ? @owner.imagelist.icon(idx) : nil
+        @owner.imagelist.set_hicon(idx, ico._hicon) if idx
+        @owner.__send__(:_set_icon, @_index, ico)
+      end
+      
+      def _part()
+        [@_width, @_text, @_iimage, @_type]
+      end
+    end
+        
+    ################### Main ###################
+    include ModCommCtrl
+#    include ModParent
+    
+    WinStyles = {
+      :sizegrip => SBARS_SIZEGRIP,
+      :tooltips => SBARS_TOOLTIPS
+    }
+    
+    PreDefinedEvents = {
+      :click => [WM_NOTIFY, NM_CLICK, 'xs', NMMOUSE],
+      :dblclk => [WM_NOTIFY, NM_DBLCLK, 'xs', NMMOUSE],
+      :rclick => [WM_NOTIFY, NM_RCLICK, 'xs', NMMOUSE],
+      :rdblclk => [WM_NOTIFY, NM_RDBLCLK, 'xs', NMMOUSE],
+      :simplemodechange => [WM_NOTIFY, SBN_SIMPLEMODECHANGE, 'i']
+    }
+    DefaultEvents = []
+    
+    IARRAY = API.defstruct 'int[256]'
+    
+    attr_reader :_icons
+    def initialize(*args)
+      super
+      @_classname = "msctls_statusbar32"
+      @_acceptable_events = PreDefinedEvents.dup
+      @_widths = []
+      @minus1pos = @_widths.index(-1)
+      @_parts = []
+    end
+    #
+    def create()
+      super
+      parent.register_event(WM_SIZE, '__statusbar_resize__', 'ii', self) # refrection
+      if @_simple
+        SendMessage(SB_SETTEXT, SB_SIMPLEID, _I(self.caption))
+        self.simple = @_simple;
+      end
+      @_parts.each_with_index{|v, i| insert(i, v)}
+      @_parts.clear
+    end
+    
+    # Sets a caption of this status bar.<br>
+    # If simple mode displayd this, oherwise not.
+    def caption=(str)#; dp "@simple=%p, caption=%p", simple, caption
+      if simple
+        SendMessage(SB_SETTEXT, SB_SIMPLEID, _I(str))
+      else
+        super
+      end
+    end
+    
+    # Inserts a part into this statusbar with specified index and argument.<br>
+    # Give an array of [width, text, image, type] or a Statusbar::Part as argument.
+    def insert(idx, arg) # dpp idx, arg, @_widths
+      if alive?
+        if arg.is_a? Array
+          width, txt, img, typ = arg #arg.shift
+          typ ||= 0
+        elsif arg.is_a? Part
+          width, txt, img, typ = arg._part
+        else
+          raise ArgumentError, "Argument must be an Array or Part but got #{arg.inspect}(#{arg.class})"
+        end
+        raise ArgumentError, "-1 value must be only 1 in the parts" if @minus1pos && width==-1
+        @_widths.insert(idx, width)
+        n = @_widths.size
+        @minus1pos = idx if width==-1
+        _set_parts(@_widths)
+        parts=[]
+        n.times{|i|
+          buff = TCHAR[Part::SB_MAXTEXTSISE]
+          ty = SendMessage(SB_GETTEXT, i, buff)
+          parts << [buff.to_s, SPLITPARAM(ty)]
+        }
+        #txt, img, typ = part._part
+        parts.insert(idx, [txt, [0, typ], img])
+        if @imagelist
+          if img
+          ico = @imagelist.icon(img)
+            @imagelist.set_hicon(img, ico._hicon)
+          else 
+            ico = nil
+          end
+          _insert_icon(idx, ico)
+        end
+        parts.each_with_index{|v, i|
+          SendMessage(SB_SETTEXT, i | v[1][1], _I(v[0]))
+          SendMessage(SB_SETICON, i, @_icons[i] ?  @_icons[i]._hicon : 0) if @_icons
+        }
+      else
+        @_parts.insert(idx, arg.is_a?(Part) ? arg : Part.new(self, idx, *arg))
+      end
+    end
+    
+    # If index given, deletes specified index of pars, otherwise deletes this statusbar.
+    def delete(idx=nil)
+      return super() unless idx
+      n = @_widths.size
+      @_widths.delete_at(idx)
+      if alive?
+        parts=[]
+        n.times{|i|
+          buff = TCHAR[Part::SB_MAXTEXTSISE]
+          typ = SendMessage(SB_GETTEXT, i, buff)
+          parts << [buff, SPLITPARAM(typ)] # => [type, cch]
+        }
+        parts.delete_at(idx)
+        @_icons.delete_at(idx)
+        _set_parts(@_widths)
+        parts.each_with_index{|v, i|
+          SendMessage(SB_SETTEXT, i | v[1][1], _I(v[0]))
+          SendMessage(SB_SETICON, i, @_icons[i] ?  @_icons[i]._hicon : 0)
+        }
+      else
+        @_parts.delete_at(idx)
+      end
+    end
+    
+    # Retreives an information of specified index in this status bar.<br>
+    # Retruns a Statusbar::Part.
+    def [](idx)
+      if alive?
+        _check_index(idx)
+        Part.new(self, idx)
+      else
+        part = @_parts[idx]
+        part.index = idx
+        part
+      end
+    end
+    
+    # []=(index, nums=1, *args)
+    # Inserts and replaces multiple parts by specified index and nums and args.
+    def []=(idx, *args)
+      n = args[0].is_a?(Integer) ? args.shift : 1
+      args = args[0]
+      n.times{delete(idx)}
+      if args[0].is_a?(Array) && args[0][0].is_a?(Integer)
+        args.each_with_index{|v, i| insert(idx + i, v)}
+      else
+        insert(idx, args)
+      end
+    end
+    
+    # If a control given, adds it in this statusbar, otherwize adds a part at last.
+    def <<(arg)
+      if arg.is_a?(Window)
+        controls << arg
+      else
+        self[count, 0] = arg
+      end
+    end
+    
+    # Sets a minimum height of this status bar.
+    def minheight=(h)
+      alive? ? SendMessage(SB_SETMINHEIGHT, h, 0) : @_minheight = h
+    end
+    
+    # Gets an imagelist assigned to this status bar.
+    def imagelist()
+      @imagelist
+    end
+    # Assignes an imagelist to this status bar.
+    def imagelist=(il)
+      raise ArgumentError, "size of argument must be [16, 16]", caller(1) if il.iconsize!=[16,16]
+      @imagelist = il
+      class << @imagelist
+        attr_reader :_icons
+        def set_hicon(idx, hicon)
+          @_icons ||= []
+          @_icons[idx] = hicon
+        end
+        def get_hicon(idx)
+          @_icons ||= []
+          @_icons[idx]
+        end
+      end
+    end
+    
+    # Gets the count of the parts in this status bar.
+    def count()
+      alive? ? @_widths.size : @_parts.size
+    end
+    
+    # Retreives wheter this status bar is in the simple mode or not.
+    def simple()
+      alive? ? SendMessage(SB_ISSIMPLE, 0, 0)!=0 || nil : @_simple
+    end
+    alias simple? simple
+    
+    # Sets or resets the simple mode to this control.
+    def simple=(f)
+      alive? ? SendMessage(SB_SIMPLE, f ? 1 : 0, 0) : @_simple = f
+    end
+    
+    # each(){|part| ... }
+    # Performs the block for each <i>part</i> in this statusbar as a block parameter.
+    def each()
+      count.times{|i| yield self[i]}
+    end
+    
+    #
+    def _get_width(idx)
+      @_widths[idx]
+    end
+    #
+    def _set_width(idx, w)
+      if w == -1
+        if @minus1pos && @minus1pos != idx
+          raise ArgumentError, "-1 value must be only 1 in the parts"
+        end
+        @minus1pos = idx
+      else
+        @minus1pos = nil if @minus1pos == idx
+      end
+      idx = @_widths.size if idx > @_widths.size
+      @_widths[idx] = w
+      _set_parts(@_widths) if alive?
+    end
+    
+    protected
+    def _apply_options(arg)
+      if st=WinStyles[arg]
+        self.style |= st
+        return nil
+      end
+      super
+    end
+    
+    private
+    def _set_parts(args)
+      ar = args.inject([]){|r, i| r << r.last.to_i + (i<0 ? 0 : i)}
+      if args.last == -1
+        ar[args.size-1] = -1
+      else
+        @minus1pos = args.index(-1)
+      end
+      @buffer = IARRAY[ar]
+      SendMessage(SB_SETPARTS, args.size, @buffer)
+      refresh_parts()
+    end
+    
+    def __statusbar_resize__(wp, lp)
+      SendMessage(WM_SIZE, wp, lp); 
+      refresh_parts()
+    end
+    
+    def _check_index(idx)
+      idx = idx > @_parts.size ? @_parts.size : idx
+    end
+    
+    def refresh_parts()
+      return unless alive?
+      return unless @minus1pos
+      size = SendMessage(SB_GETPARTS, 0, 0)
+      _w, h = self.clientsize
+      w = _w - @buffer[size-1]
+      for i in @minus1pos..(size-1)
+        @buffer[i] += w
+      end
+      SendMessage(SB_SETPARTS, size, @buffer)
+    end
+    
+    def _insert_icon(idx, ico)
+      @_icons ||= []
+      @_icons.insert(idx, ico)
+    end
+    def _get_icon(idx) #; dpp @_icons, idx
+      @_icons ||= []
+      @_icons[idx]
+    end
+    def _set_icon(idx, ico)
+      @_icons ||= []
+      @_icons[idx] = ico
+      if alive?
+        SendMessage(SB_SETICON, idx, ico ? ico._hicon : 0)
+      end
+    end
+  end
+end