wrb 2.0.0

data/lib/wrb/components/progressbar.rb

@@ -0,0 +1,140 @@
+# Progress Bar
+# see <https://msdn.microsoft.com/en-us/library/windows/desktop/bb760818%28v=vs.85%29.aspx>
+
+#require 'wrb/commctrl'
+require 'wrb'
+require 'wrb/commctrlconst'
+
+module WR
+  module RC
+    PBS_SMOOTH   = 0x1
+    PBS_VERTICAL = 0x4
+
+    PBM_SETRANGE    = WM_USER+1
+    PBM_SETPOS      = WM_USER+2
+    PBM_DELTAPOS    = WM_USER+3
+    PBM_SETSTEP     = WM_USER+4
+    PBM_STEPIT      = WM_USER+5
+    PBM_SETRANGE32  = WM_USER+6
+    PBM_GETRANGE    = WM_USER+7
+    PBM_GETPOS      = WM_USER+8
+    PBM_SETBARCOLOR = WM_USER+9
+    PBM_SETMARQUEE  = WM_USER+10
+    PBM_SETBKCOLOR  = CCM_SETBKCOLOR
+
+    
+    #if (_WIN32_WINNT >= 0x0600)
+    PBS_MARQUEE       = 0x8
+    PBS_SMOOTHREVERSE = 0x10
+    
+    PBM_GETSTEP     = WM_USER+13
+    PBM_GETBKCOLOR  = WM_USER+14
+    PBM_GETBARCOLOR = WM_USER+15
+    PBM_SETSTATE    = WM_USER+16
+    PBM_GETSTATE    = WM_USER+17
+    
+    PBST_NORMAL = 1
+    PBST_ERROR  = 2
+    PBST_PAUSED = 3
+    #endif /* (_WIN32_WINNT >= 0x0600) */
+  end
+  
+  # A window that an application can use to indicate the progress of a lengthy operation.
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  # window-controls"> Windows Control section of Microsoft Docs.</a>
+  class Progressbar < WinControl #CommonControl
+    PBRANGE = API.defstruct "
+      int iLow;
+      int iHigh;"
+    
+    WinStyles = {
+      :smooth        => PBS_SMOOTH,
+      :vertical      => PBS_VERTICAL,
+      :marquee       => PBS_MARQUEE,
+      :smoothreverse => PBS_SMOOTHREVERSE
+    }
+    PreDefinedEvents = {}
+    
+#    def self.sym2style(*args) _sym2style(WinStyles, args); end
+    
+    def initialize(*args)
+      super
+      @_classname = "msctls_progress32"
+      @_acceptable_events = PreDefinedEvents.dup
+    end
+    #
+    def create()
+      super
+      self.range = @_range if @_range
+      self.pos = @_pos if @_pos
+      self.barcolor = @_barcolor if @_barcolor
+      self.bkcolor = @_bkcolor if @_bkcolor
+    end
+    
+    # Retrieves information about the current high and low limits of this progress bar control. 
+    def range()
+      if alive?
+        SendMessage(PBM_GETRANGE, 0, range=PBRANGE.new)
+        range.to_a
+      else
+        @_range
+      end
+    end
+    # range=([low,] high)
+    # Sets the minimum and maximum values for this progress bar.
+    def range=(*args)
+      lo, hi = args[0].is_a?(Array) ? args[0] : [0, args[0]]
+      alive? ? SendMessage(PBM_SETRANGE, 0, MAKELPARAM(lo, hi)) : @_range = [lo, hi]
+    end
+    
+    # Gets the current position for this progress bar.
+    def pos()
+      alive? ? SendMessage(PBM_GETPOS, 0, 0) : @_pos
+    end
+    # Sets the specified position for this progress bar.
+    def pos=(ps)
+      alive? ? SendMessage(PBM_SETPOS, ps.to_i, 0) : @_pos = ps
+    end
+    
+    # Retrieves the step increment for this progress bar. 
+    def step
+      alive? ? SendMessage(PBM_GETSTEP, 0, 0) : @_step
+    end 
+    # Specifies the step increment for this progress bar. 
+    def step=(stp)
+      alive? ? SendMessage(PBM_SETSTEP, stp, 0) : @_step = stp
+    end 
+    # Advances the current position for this progress bar by the step increment.
+    def step!()
+      SendMessage(PBM_STEPIT, 0, 0)
+    end
+    
+    # Sets/Unsets the marquee style for this progress bar.
+    def marquee=(f)
+      f ? self.style |= PBS_MARQUEE : self.style &= ~PBS_MARQUEE
+    end
+    
+    # Sets the progress bar to marquee mode.
+    def marquee!(time=0)
+      sw = time ? 1 : 0
+      SendMessage(PBM_SETMARQUEE, sw, time.to_i)
+    end
+    
+    # When visual styles are enabled, this method has no effect
+    def barcolor=(clr)
+      alive? ? SendMessage(PBM_SETBARCOLOR, 0, clr) : @_barcolor=clr
+    end
+    # When visual styles are enabled, this method has no effect
+    def bkcolor=(clr)
+      alive? ? SendMessage(PBM_SETBKCOLOR, 0, clr) : @_bkcolor=clr
+    end
+    
+    protected
+    def _apply_options(arg)
+      if st=WinStyles[arg]
+        self.style |= st
+      end
+      super
+    end
+  end
+end

data/lib/wrb/components/radiobutton.rb

@@ -0,0 +1,49 @@
+module WR
+  require_relative './button' unless defined? Button
+  
+  # This control consists of a round button that indicates a choice the user can make by selecting the button. 
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  # window-controls"> Windows Control section of Microsoft Docs.</a>
+  class Radiobutton < Button
+    DefaultWindowStyle = BS_AUTORADIOBUTTON
+    
+#    def self.sym2style(*args)
+#      _sym2style(Button::WinStyles, args)
+#    end
+    
+    def initialize(*args)
+      super
+      @_style |= DefaultWindowStyle
+    end
+    
+    # Following Radiobutton styles are available.
+    def style=(st)
+      st |= DefaultWindowStyle if st & BS_TYPEMASK == 0
+      super st
+    end
+    
+    # Any other Button's style changes this style to other. So, do not use except following. 
+    WinStyles = {
+      :lefttext    => BS_LEFTTEXT,
+      :rightbutton => BS_RIGHTBUTTON,
+    }
+    
+    #
+    def create()
+      super
+      self.checked = @_checked if @_checked
+    end
+    
+    # Retreives check state of the control. <br> Retuens true/false.
+    def checked()
+      alive? ? (SendMessage(BM_GETCHECK, 0, 0) == 0 ? false : true) : @_checked
+    end
+    alias checked? checked
+    
+    # Sets a check-state of the control. <br> Give an integer as state.
+    def checked=(state)
+      alive? ? SendMessage(BM_SETCHECK, state ? 1 : 0, 0) : @_checked = state
+    end
+  end
+end
+

data/lib/wrb/components/rebar.rb

@@ -0,0 +1,830 @@
+require 'wrb'
+require 'wrb/commctrlconst'
+
+module WR
+  module RC
+    RBSTR_CHANGERECT  = 0x1
+
+    RBS_TOOLTIPS        = 0x100 # Not implemented yet in comctl.dll ver 6
+    RBS_VARHEIGHT       = 0x200
+    RBS_BANDBORDERS     = 0x400
+    RBS_FIXEDORDER      = 0x800
+    RBS_REGISTERDROP    = 0x1000
+    RBS_AUTOSIZE        = 0x2000
+    RBS_VERTICALGRIPPER = 0x4000
+    RBS_DBLCLKTOGGLE    = 0x8000
+
+    RBIM_IMAGELIST = 0x1
+    
+    RBBS_BREAK          = 0x1
+    RBBS_FIXEDSIZE      = 0x2
+    RBBS_CHILDEDGE      = 0x4
+    RBBS_HIDDEN         = 0x8
+    RBBS_NOVERT         = 0x10
+    RBBS_FIXEDBMP       = 0x20
+    RBBS_VARIABLEHEIGHT = 0x40
+    RBBS_GRIPPERALWAYS  = 0x80
+    RBBS_NOGRIPPER      = 0x100
+    RBBS_USECHEVRON     = 0x200
+    RBBS_HIDETITLE      = 0x400
+    RBBS_TOPALIGN       = 0x800
+
+    RBBIM_STYLE      = 0x1
+    RBBIM_COLORS     = 0x2
+    RBBIM_TEXT       = 0x4
+    RBBIM_IMAGE      = 0x8
+    RBBIM_CHILD      = 0x10
+    RBBIM_CHILDSIZE  = 0x20
+    RBBIM_SIZE       = 0x40
+    RBBIM_BACKGROUND = 0x80
+    RBBIM_ID         = 0x100
+    RBBIM_IDEALSIZE  = 0x200
+    RBBIM_LPARAM     = 0x400
+    RBBIM_HEADERSIZE = 0x800
+    RBBIM_DEFAULT    = RBBIM_TEXT | RBBIM_STYLE | RBBIM_CHILD | RBBIM_CHILDSIZE | RBBIM_SIZE |
+                       RBBIM_ID #RBBIM_LPARAM # | RBBIM_IMAGE 
+    
+    RB_INSERTBANDA      = WM_USER+1
+    RB_DELETEBAND       = WM_USER+2
+    RB_GETBARINFO       = WM_USER+3
+    RB_SETBARINFO       = WM_USER+4
+    RB_SETBANDINFOA     = WM_USER+6
+    RB_SETPARENT        = WM_USER+7
+    RB_HITTEST          = WM_USER+8
+    RB_GETRECT          = WM_USER+9
+    RB_INSERTBANDW      = WM_USER+10
+    RB_SETBANDINFOW     = WM_USER+11
+    RB_GETBANDCOUNT     = WM_USER+12
+    RB_GETROWCOUNT      = WM_USER+13
+    RB_GETROWHEIGHT     = WM_USER+14
+    RB_IDTOINDEX        = WM_USER+16
+    RB_GETTOOLTIPS      = WM_USER+17
+    RB_SETTOOLTIPS      = WM_USER+18
+    RB_SETBKCOLOR       = WM_USER+19
+    RB_GETBKCOLOR       = WM_USER+20
+    RB_SETTEXTCOLOR     = WM_USER+21
+    RB_GETTEXTCOLOR     = WM_USER+22
+    RB_SIZETORECT       = WM_USER+23
+    RB_SETCOLORSCHEME   = CCM_SETCOLORSCHEME
+    RB_GETCOLORSCHEME   = CCM_GETCOLORSCHEME
+    RB_BEGINDRAG        = WM_USER+24
+    RB_ENDDRAG          = WM_USER+25
+    RB_DRAGMOVE         = WM_USER+26
+    RB_GETBARHEIGHT     = WM_USER+27
+    RB_GETBANDINFOW     = WM_USER+28
+    RB_GETBANDINFOA     = WM_USER+29
+    RB_MINIMIZEBAND     = WM_USER+30
+    RB_MAXIMIZEBAND     = WM_USER+31
+    RB_GETDROPTARGET    = CCM_GETDROPTARGET
+    RB_GETBANDBORDERS   = WM_USER+34
+    RB_SHOWBAND         = WM_USER+35
+    RB_SETPALETTE       = WM_USER+37
+    RB_GETPALETTE       = WM_USER+38
+    RB_MOVEBAND         = WM_USER+39
+    RB_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT
+    RB_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT
+    RB_GETBANDMARGINS   = WM_USER+40
+    RB_SETWINDOWTHEME   = CCM_SETWINDOWTHEME
+    RB_PUSHCHEVRON      = WM_USER+43
+    
+    if RWin::UNICODE
+      RB_INSERTBAND     = RB_INSERTBANDW
+      RB_GETBANDINFO    = RB_GETBANDINFOW
+      RB_SETBANDINFO    = RB_SETBANDINFOW
+    else
+      RB_INSERTBAND     = RB_INSERTBANDA
+      RB_GETBANDINFO    = RB_GETBANDINFOA
+      RB_SETBANDINFO    = RB_SETBANDINFOA
+    end
+    
+    RBN_FIRST         = -831
+    RBN_HEIGHTCHANGE  = RBN_FIRST - 0
+    RBN_GETOBJECT     = RBN_FIRST - 1
+    RBN_LAYOUTCHANGED = RBN_FIRST - 2
+    RBN_AUTOSIZE      = RBN_FIRST - 3
+    RBN_BEGINDRAG     = RBN_FIRST - 4
+    RBN_ENDDRAG       = RBN_FIRST - 5
+    RBN_DELETINGBAND  = RBN_FIRST - 6
+    RBN_DELETEDBAND   = RBN_FIRST - 7
+    RBN_CHILDSIZE     = RBN_FIRST - 8
+    RBN_CHEVRONPUSHED = RBN_FIRST - 10
+    RBN_MINMAX        = RBN_FIRST - 21
+    RBN_AUTOBREAK     = RBN_FIRST - 22
+
+    RBAB_AUTOSIZE = 0x1
+    RBAB_ADDBAND  = 0x2
+    
+    RBHT_NOWHERE = 0x1
+    RBHT_CAPTION = 0x2
+    RBHT_CLIENT  = 0x3
+    RBHT_GRABBER = 0x4
+    RBHT_CHEVRON = 0x8
+  end
+  
+  #This control acts as a container for child windows.<br>
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  # window-controls"> Windows Control section of Microsoft Docs.</a>
+  class Rebar < WinControl
+    
+    RBNM_ID     = 0x1
+    RBNM_STYLE  = 0x2
+    RBNM_LPARAM = 0x4
+
+    NMREBARCHILDSIZE = API.defstruct "
+      NMHDR hdr;
+      UINT uBand;
+      UINT wID;
+      RECT rcChild;
+      RECT rcBand;"
+
+    NMREBAR = API.defstruct "
+      NMHDR hdr;
+      DWORD dwMask;
+      UINT uBand;
+      UINT fStyle;
+      UINT wID;
+      LPARAM lParam;"
+
+    NMRBAUTOSIZE = API.defstruct "
+      NMHDR hdr;
+      BOOL fChanged;
+      RECT rcTarget;
+      RECT rcActual;"
+
+    NMREBARCHEVRON = API.defstruct "
+      NMHDR hdr;
+      UINT uBand;
+      UINT wID;
+      LPARAM lParam;
+      RECT rc;
+      LPARAM lParamNM;"
+      
+    NMREBARAUTOBREAK = API.defstruct "
+      NMHDR hdr;
+      UINT uBand;
+      UINT wID;
+      LPARAM lParam;
+      UINT uMsg;
+      UINT fStyleCurrent;
+      BOOL fAutoBreak;"
+      
+    RB_HITTESTINFO = API.defstruct "
+      POINT pt;
+      UINT flags;
+      int iBand;"
+  
+    REBARINFO = API.defstruct "
+      UINT   cbSize;
+      UINT   fMask;
+      HANDLE himl;"
+  
+    REBARBANDINFO = API.defstruct "
+      UINT     cbSize;
+      UINT     fMask;
+      UINT     fStyle;
+      COLORREF clrFore;
+      COLORREF clrBack;
+      LPTSTR   lpText;
+      UINT     cch;
+      int      iImage;
+      HWND     hwndChild;
+      UINT     cxMinChild;
+      UINT     cyMinChild;
+      UINT     cx;
+      HBITMAP  hbmBack;
+      UINT     wID;
+      UINT     cyChild;
+      UINT     cyMaxChild;
+      UINT     cyIntegral;
+      UINT     cxIdeal;
+      LPARAM   lParam;
+      UINT     cxHeader;"
+    
+    class Band # wrapper of REBARBANDINFO and holder of its index
+      include RC
+      RbbStyles = {
+        :break          => RBBS_BREAK,
+        :fixedsize      => RBBS_FIXEDSIZE,
+        :childedge      => RBBS_CHILDEDGE,
+        :hidden         => RBBS_HIDDEN,
+        :novert         => RBBS_NOVERT,
+        :fixedbmp       => RBBS_FIXEDBMP,
+        :variableheight => RBBS_VARIABLEHEIGHT,
+        :gripperalways  => RBBS_GRIPPERALWAYS,
+        :nogripper      => RBBS_NOGRIPPER,
+        :usechevron     => RBBS_USECHEVRON,
+        :hidetitle      => RBBS_HIDETITLE,
+        :topalign       => RBBS_TOPALIGN,
+      }
+      
+      def self.[](*args) self.new(*args); end
+      
+      attr_reader :owner, :idcmd
+      
+      def initialize(*args) # [owner, index] or [[owner], childwin, iimage, text, xsize, style
+        # dp "@%p", args
+        @owner = args.shift if args[0].is_a?(Rebar)
+        if args.size == 1 && args[0].is_a?(Integer)
+          @index = args[0]
+          @bandinfo = REBARBANDINFO[REBARBANDINFO::Size]
+          return
+        end
+        raise ArgumentError, "1st argument must be Symbol" unless args[0].is_a?(Symbol)
+        hsh = args.pop if args.last.is_a?(Hash)
+        @name = args.shift
+        if @owner
+          @idcmd = @owner.new_control_id
+          @owner._add_accessor(@idcmd, @name)
+        end
+        @style = 0
+        while args.last.is_a?(Symbol)
+          @style |= RbbStyles[args.pop].to_i
+        end
+#        dpp args.last
+        if args.last.is_a?(Window) #|| args.last.is_a?(Array)
+          @childwin = args.pop
+          class << @childwin
+            attr_accessor :__associated_band_id
+          end
+          @childwin.__associated_band_id = @idcmd
+          raise ArgumentError, "Child Window not found." if !@childwin.is_a?(RWin::Window) && !(@childwin.is_a?(Array) && @childwin[0]<RWin::Window)
+          @owner.controls << @childwin
+        end
+        
+        @iimage, @text, @_cx, style = args
+        @_cxideal = @cx
+#        dpp @iimage, @text, @_cx, style, @style
+        @style |= style.to_i
+        hsh.each{|k, v| __send__(k.to_s + "=", v)} if hsh
+        @mask = RBBIM_DEFAULT
+        @mask |= RBBIM_IMAGE if @iimage
+      end
+      
+      def owner=(tgt)
+        raise "owner was already asigned" if @owner
+        @owner = tgt;
+        @idcmd = @owner.new_control_id
+        @owner._add_accessor(@idcmd, @name)
+        @childwin.parent = @owner #; dp "@%p", @owner
+      end
+      
+      def idcmd()
+        if @owner.alive?
+          @bandinfo.fMask = RBBIM_ID
+          @owner.SendMessage(RB_GETBANDINFO, @index, @bandinfo)
+          @bandinfo.wID
+        else
+          @idcmd
+        end
+      end
+      
+      def name()
+        id = idcmd
+        (r = @owner._accessors.find{|k, v| v==id}) && r[0]
+      end
+      def name=(nm)
+        @owner._delete_accessor(name)
+        @owner._add_accessor(idcmd, nm)
+      end
+      
+      def delete()
+        @owner.delete(@index)
+      end
+      
+      def style()
+        if @owner.alive?
+          @bandinfo.fMask = RBBIM_STYLE
+          @owner.SendMessage(RB_GETBANDINFO, @index, @bandinfo)
+          @bandinfo.fStyle
+        else
+          @style
+        end
+      end
+      def style=(*args) #; dp "@%p", args
+        args = args[0] if args[0].is_a?(Array)
+        st = 0
+        while args.last.is_a?(Symbol)
+          st |= RbbStyles[args.pop].to_i
+        end
+        st |= args[0].to_i
+        if @owner.alive?
+          @bandinfo.fMask = RBBIM_STYLE
+          @bandinfo.fStyle = st
+          @owner.SendMessage(RB_SETBANDINFO, @index, @bandinfo)
+        else
+          @style = st
+        end
+      end
+      
+      def childwin()
+        if @owner.alive?
+          @bandinfo.fMask = RBBIM_CHILD
+          @owner.SendMessage(RB_GETBANDINFO, @index, @bandinfo)
+          APP.hwnd2ref(@bandinfo.hwndChild)
+        else
+          @childwin
+        end
+      end
+      def childwin=(newchild)
+        if @owner.alive?
+          childwin.delete if childwin
+          class << newchild
+            attr_accessor :__associated_band_id
+          end
+          newchild.__associated_band_id = idcmd
+          @owner.controls << newchild
+          @bandinfo.hwndChild = newchild._hwnd
+          @bandinfo.cxMinChild = newchild.w
+          @bandinfo.cyMinChild = newchild.h
+          @bandinfo.fMask = RBBIM_CHILD | RBBIM_CHILDSIZE
+          @owner.SendMessage(RB_SETBANDINFO, @index, @bandinfo)
+        else
+          @childwin.delete
+          @chilewin = (@owner.controls << newchild)
+        end
+      end
+      
+      def text()
+        if @owner.alive?
+          @bandinfo.fMask = RBBIM_TEXT
+          @bandinfo.lpText = TCHAR[256]
+          @bandinfo.cch = 256
+          @owner.SendMessage(RB_GETBANDINFO, @index, @bandinfo)
+          @bandinfo.lpText.to_s
+        else
+          @text
+        end
+      end
+      alias caption text
+      def text=(txt)
+        if @owner.alive?
+          @bandinfo.fMask = RBBIM_TEXT
+          @bandinfo.lpText = txt
+          @bandinfo.cch = txt.size
+          @owner.SendMessage(RB_SETBANDINFO, @index, @bandinfo)
+        else
+          @text = txt
+        end
+      end
+      alias caption= text=
+      
+      def iimage()
+        if @owner.alive?
+          @bandinfo.fMask = RBBIM_IMAGE
+          @owner.SendMessage(RB_GETBANDINFO, @index, @bandinfo)
+          @bandinfo.iImage
+        else
+          @iimage
+        end
+      end
+      def iimage=(img)
+        if @owner.alive?
+          @bandinfo.fMask = RBBIM_IMAGE
+          @bandinfo.iImage = img
+          @owner.SendMessage(RB_SETBANDINFO, @index, @bandinfo)
+        else
+          @iimage = img
+        end
+      end
+      
+      def data()
+        if @owner.alive?
+          @bandinfo.fMask = RBBIM_LPARAM
+          @owner.SendMessage(RB_GETBANDINFO, @index, @bandinfo)
+          ObjectSpace._id2ref(@bandinfo.lParam)
+        else
+          @data
+        end
+      end
+      def data=(dtnew)
+        if @owner.alive?
+          dtold = self.data
+          if idx=@owner._ar_data.index(dtold)
+            @owner._ar_data.delete_at(idx)
+          end
+          lparam = dtnew.__id__
+          @owner._ar_data << @data if (lparam&1)==0 && lparam>NilID
+          @bandinfo.fMask = RBBIM_LPARAM
+          @bandinfo.lParam = lparam
+          @owner.SendMessage(RB_SETBANDINFO, @index, @bandinfo)
+        else
+          @data = dtnew
+        end
+      end
+      
+      def color()
+        if @owner.alive?
+          @bandinfo.fMask = RBBIM_COLORS
+          @owner.SendMessage(RB_GETBANDINFO, @index, @bandinfo)
+          [@bandinfo.clrFore, @bandinfo.clrBack]
+        else
+          [@_forecolor, @_backcolor]
+        end
+      end
+      def color=(*clrs)
+        fore, back = clrs[0]
+        if @owner.alive?
+          @bandinfo.fMask = RBBIM_COLORS
+          @owner.SendMessage(RB_GETBANDINFO, @index, @bandinfo)
+          @bandinfo.clrFore = fore if fore
+          @bandinfo.clrBack = back if back
+          @owner.SendMessage(RB_SETBANDINFO, @index, @bandinfo)
+        else
+          @mask |= RBBIM_COLORS
+          @_forecolor = fore
+          @_backcolor = back
+        end
+      end
+      def forecolor() self.color[0]; end
+      def forecolor=(clr) self.color = clr; end
+      def backcolor() self.color[1]; end
+      def backcolor=(clr) self.color = nil, clr; end
+      
+      def bitmap()
+        if @owner.alive?
+          @bandinfo.fMask = RBBIM_BACKGROUND
+          @owner.SendMessage(RB_GETBANDINFO, @index, @bandinfo)
+          APP.hrsc2ref(@bandinfo.hbmBack)
+        else
+          @_bitmap
+        end
+      end
+      def bitmap=(bmp)
+        bmp = WR::Bitmap.loadb64(bmp) if bmp.is_a?(String)
+        if !bmp.is_a?(RWin::Bitmap)
+          raise ArgumentError, "Argument must be RWin::Bitmap"
+        end
+        
+        if @owner.alive?
+          @bandinfo.fMask = RBBIM_BACKGROUND
+          @bandinfo.hbmBack = bmp._hddbitmap
+          @owner.SendMessage(RB_SETBANDINFO, @index, @bandinfo)
+        else
+          @mask |= RBBIM_BACKGROUND
+          @_bitmap = bmp
+        end
+      end
+      
+      def size()
+        if @owner.alive?
+          @bandinfo.fMask = RBBIM_SIZE
+          @owner.SendMessage(RB_GETBANDINFO, @index, @bandinfo)
+          @bandinfo.cx
+        else
+          @_cx
+        end
+      end
+      def size=(len)
+        if @owner.alive?
+          @bandinfo.fMask = RBBIM_SIZE
+          @bandinfo.cx = len
+          @owner.SendMessage(RB_SETBANDINFO, @index, @bandinfo)
+        else
+          @mask |= RBBIM_SIZE
+          @_cx = len
+        end
+      end
+      
+      def idealsize
+        if @owner.alive?
+          @bandinfo.fMask = RBBIM_IDEALSIZE
+          @owner.SendMessage(RB_GETBANDINFO, @index, @bandinfo)
+          @bandinfo.cxIdeal
+        else
+          @_cxideal
+        end
+      end
+      def idealsize=(len)
+        if @owner.alive?
+          @bandinfo.fMask = RBBIM_IDEALSIZE
+          @bandinfo.cxIdeal = len
+          @owner.SendMessage(RB_SETBANDINFO, @index, @bandinfo)
+        else
+          @mask |= RBBIM_IDEALSIZE
+          @_cxideal = len
+        end
+      end
+      
+      def minchildsize()
+        if @owner.alive?
+          @bandinfo.fMask = RBBIM_CHILDSIZE
+          @owner.SendMessage(RB_GETBANDINFO, @index, @bandinfo)
+          @bandinfo.cxMinChild
+        else
+          @_cxminchild
+        end
+      end
+      def minchildsize=(len)
+        if @owner.alive?
+          @bandinfo.fMask = RBBIM_CHILDSIZE
+          @bandinfo.cxMinChild = len
+          @owner.SendMessage(RB_SETBANDINFO, @index, @bandinfo)
+        else
+          @mask |= RBBIM_CHILDSIZE
+          @_cxminchild = len
+        end
+      end
+      
+      def rect
+        @owner.SendMessage(RB_GETRECT, @index, rc=RECT.new)
+        rc
+      end
+      
+      def _rebarbandinfo() #; dpp  @text, @style
+        bandinfo = REBARBANDINFO[REBARBANDINFO::Size, @mask]
+        bandinfo.fStyle = ((@style==0) ? RBBS_CHILDEDGE : @style)
+        if @text
+          bandinfo.lpText = @text
+          bandinfo.cch = @text.size
+        end
+        if @childwin
+          @childwin.create if !@childwin.alive?
+          bandinfo.hwndChild = @childwin._hwnd
+          bandinfo.cxMinChild = @childwin.w
+          bandinfo.cyMinChild = @childwin.h
+        end
+        bandinfo.iImage = @iimage if @iimage
+        bandinfo.wID = @idcmd
+        if (@mask & RBBIM_COLORS) > 0
+          bandinfo.clrFore = @_forecolor || @owner.SendMessage(RB_GETTEXTCOLOR, 0, 0)
+          bandinfo.clrBack = @_backcolor || @owner.SendMessage(RB_GETBKCOLOR, 0, 0)
+        end
+        bandinfo.hbmBack = @_bitmap._hddbitmap(@owner) if @_bitmap
+        bandinfo.cx = @_cx if @_cx
+        bandinfo.cxIdeal = @_cxideal if @_cxideal
+        bandinfo.cxMinChild = @_cxminchild if @_cxminchild
+        
+        lparam = @data.__id__
+        @owner._ar_data << @data if (lparam&1)==0 && lparam>NilID
+        bandinfo.lParam = lparam
+        bandinfo
+      end
+    end # class Band
+    
+    ########################## Main ########################
+    include ModCommCtrl
+    include ModParent
+    include ModAccessor
+    
+    WinStyles = {
+      :varheight       => RBS_VARHEIGHT,
+      :bandborders     => RBS_BANDBORDERS,
+      :fixedorder      => RBS_FIXEDORDER,
+      :registerdrop    => RBS_REGISTERDROP,
+      :autosize        => RBS_AUTOSIZE,
+      :verticalgripper => RBS_VERTICALGRIPPER,
+      :dblclktoggle    => RBS_DBLCLKTOGGLE
+#      :tooltips        => RBS_TOOLTIPS, # Not impremented yet in comctl.dll ver 6
+    }
+    DefaultWindowStyle = CCS_TOP
+#    def self.sym2style(*args) _sym2style(WinStyles, args); end
+    
+#    RBNBandTemplate = 'x' + NMREBAR.to_template(:uBand, :wID)
+#    RBNChevronTtemplate = 'x' + NMREBARCHEVRON.to_template(:uBand, :wID, :lParamNM)
+    
+    PreDefinedEvents = {
+      :customdraw      => [WM_NOTIFY, NM_CUSTOMDRAW , 'xs', NMCUSTOMDRAW],
+      :nchittest       => [WM_NOTIFY, NM_NCHITTEST, 'xs', NMMOUSE],
+      :releasedcapture => [WM_NOTIFY, NM_RELEASEDCAPTURE, 'xs', NMHDR],
+      :heightchange    => [WM_NOTIFY, RBN_HEIGHTCHANGE, 'xs', NMHDR],
+      :layoutchanged   => [WM_NOTIFY, RBN_LAYOUTCHANGED, 'xs', NMHDR],
+      :autosize        => [WM_NOTIFY, RBN_AUTOSIZE, 'xs',  NMRBAUTOSIZE],
+      :begindrag       => [WM_NOTIFY, RBN_BEGINDRAG, 'xs', NMREBAR],
+      :enddrag         => [WM_NOTIFY, RBN_ENDDRAG, 'xs', NMREBAR],
+      :deletingband    => [WM_NOTIFY, RBN_DELETINGBAND, 'xs', NMREBAR],
+      :deletedband     => [WM_NOTIFY, RBN_DELETEDBAND, 'xs', NMREBAR],
+      :childsize       => [WM_NOTIFY, RBN_CHILDSIZE, 'xs', NMREBARCHILDSIZE],
+      :chevronpushed   => [WM_NOTIFY, RBN_CHEVRONPUSHED, 'xs', NMREBARCHEVRON],
+      :minmax          => [WM_NOTIFY, RBN_MINMAX, nil], # ???_minmax()
+      :autobreak       => [WM_NOTIFY, RBN_AUTOBREAK, 'xs', NMREBARAUTOBREAK]
+#     :getobject       => [WM_NOTIFY, RBN_GETOBJECT, 'xs']
+    }
+    DefaultEvents = []
+    
+    attr_reader :_ar_data
+    def initialize(*args)
+      super
+      @_classname = "ReBarWindow32"
+      @_ar_data = []
+      @_bands = []
+      @_exstyle = WS_EX_TOOLWINDOW
+      @_acceptable_events = PreDefinedEvents.dup
+    end
+    #
+    def controls()
+      @controls ||= Controls.new(self, parent)
+      @controls
+    end
+    #
+    def new_control_id()
+      parent.new_control_id
+    end
+    #
+    def create()
+      icex = INITCOMMONCONTROLSEX[INITCOMMONCONTROLSEX::Size, ICC_COOL_CLASSES | ICC_BAR_CLASSES]
+      API.InitCommonControlsEx(icex)
+      super
+#      SendMessage(RB_SETBARINFO, 0, REBARINFO[REBARINFO::Size, 0, 0])
+      parent.register_event(WM_SIZE, '__rebar_resize__', 'ii', self)
+      self.imagelist = @_imagelist if @_imagelist
+      self.tooltips = @_tooltips if @_tooltips
+      self.textcolor = @_textcolor if @_textcolor
+      
+      @_bands.each{|i| insert(-1, i)}
+      @_bands.clear
+      @_bands = nil
+    end
+    
+    # Retrieves the count of bands currently in this rebar control.
+    def count()
+      alive? ? SendMessage(RB_GETBANDCOUNT, 0, 0) : @_bands.size
+    end
+    
+    # Inserts a new band in a rebar control.<br>
+    # Give a Rebar::Band or array of [childwin, iimage=nil, text=nil, xsize=nil, style=nil] as args.
+    def insert(idx, args)
+      if args.is_a?(Band)
+        args.owner = self unless args.owner
+        band = args
+      else
+        band = Band.new(self, *args)
+      end
+      if alive?
+        SendMessage(RB_INSERTBAND, idx, band._rebarbandinfo)
+      else
+        idx = @_bands.size if idx>@_bands.size || idx==-1
+        @_bands.insert(idx, band)
+      end
+      band
+    end
+    
+    # Deletes a band and a child window from this rebar control.
+    def delete(idx=nil)
+      return super() unless idx
+      if alive?
+        band = Band.new(self, idx)
+        childwin = band.childwin
+        parent.controls.delete(childwin) if childwin
+        (n=@_ar_data.index(band.data)) && @_ar_data.delete_at(n)
+        _delete_accessor(band.name)
+        SendMessage(RB_DELETEBAND, idx, 0)
+        parent.refresh
+      else
+        @_bands.delete_at(idx)
+      end
+    end
+  
+    # Appends a new band in a rebar control.
+    def <<(arg)
+      if arg.is_a?(Array) && !arg[0].is_a?(Symbol)
+        arg.each{|i| insert(-1, i)}
+      else
+        insert(-1, arg)
+      end
+    end
+    
+    # Retreives a Rebar::Band at specified index.
+    def [](idx)
+      self.alive? ? Band.new(self, idx) : @_bands[idx]
+    end
+    
+    # Inserts multiple bands in this rebar control by specified arguments.
+    def []=(idx, *args)
+      num = args[0].is_a?(Integer) ? args.shift : 1
+      num.times{delete(idx)}
+      raise ArgumentError, "Num of arguments must be 2 or more" unless args[0].is_a?(Array)
+      if args[0][0].is_a?(Array) && !(args[0][0][0].is_a?(Class))
+        args[0].each_with_index{|v, i| insert(idx+i, v)}
+      else
+        insert(idx, args[0])
+      end
+    end
+    
+    # Assignes an imagelist to this rebar control.
+    def imagelist=(il)
+      il = Imagelist.loadb64(il) if il.is_a?(String)
+      if alive?
+        barinfo = REBARINFO[REBARINFO::Size, RBIM_IMAGELIST, il._himagelist]
+        SendMessage(RB_SETBARINFO, 0, barinfo)
+      else
+        @_imagelist = il
+      end
+    end
+    # Gets an imagelist assigned to this rebar control.
+    def imagelist()
+      if alive?
+        barinfo = REBARINFO[REBARINFO::Size, RBIM_IMAGELIST]
+        SendMessage(RB_GETBARINFO, 0, barinfo)
+        APP.hrsc2ref(barinfo.himl)
+      else
+        @_imagelist
+      end
+    end
+    
+    # Sets the text color of a rebar control.
+    def textcolor=(clr)
+      alive? ? SendMessage(RB_SETTEXTCOLOR, 0, clr) : @_textcolor = clr
+    end
+    # Gets the text color of this rebar control. 
+    def textcolor()
+      alive? ? SendMessage(RB_GETTEXTCOLOR, 0, 0) : @_textcolor
+    end
+    
+    # Sets the tooltip control that the rebar control will use to display tooltips.
+    def tooltips=(tip)
+      alive? ? SendMessage(RB_SETTOOLTIPS, tip.hWnd, 0) : @_tooltips = tip
+    end
+    # Retrieves the tooltip control that the rebar control uses to display tooltips.
+    def tooltips()
+      alive? ? APP.hwnd2ref(SendMessage(RB_GETTOOLTIPS, 0, 0)) : @_tooltips
+    end
+    
+    # Determines which portion of a rebar band is at a given point on the screen. 
+    def hittest(x, y, flag=nil)
+      hittestinfo = RB_HITTESTINFO[POINT[x, y]]
+      SendMessage(RB_HITTEST, 0, hittestinfo)
+      flag ? [hittestinfo.iBand, hittestinfo.flags] : hittestinfo.iBand
+    end
+    
+    # each(){|band| ... }
+    # Performs the block for each <i>band</i> in this rebar control as a block parameter.
+    def each()
+      count.times{|i| yield self[i]}
+    end
+    
+    protected
+    def _apply_options(arg)
+      if st = WinStyles[arg]
+        self.style |= st
+      end
+      super
+    end
+    
+    private
+#    def __deleteband__(idx, wid)
+    def __deleteband__(nmrebar)
+      
+#      bandinfo = REBARBANDINFO[REBARINFO::Size, RBBIM_LPARAM] # ???
+#      lparam = bandinfo.lParam                                # ??? always 0
+      lparam = nmrebar.lParam  # ???
+      if (lparam&1)==0 && lparam>NilID
+        data = ObjectSpace._id2ref(lparam)
+        if n = @_ar_data.index(data)
+          @_ar_data.delete_at(n)
+        end
+      end
+    end
+    
+    def __rebar_resize__(wp, lp)
+      SendMessage(WM_SIZE, wp, lp) if alive?
+    end
+    
+    def _band_id2ref(id)
+      if alive?
+        idx = SendMessage(RB_IDTOINDEX, id, 0)
+        Band.new(self, idx)
+      else
+        @_bands.find{|i| i.idcmd == id}
+      end
+    end
+    
+    def _define_access_method(name, obj) #; dp "@%p, %p", name, obj
+      instance_eval "def #{name}() _band_id2ref(@_accessors[:#{name}]); end"
+      instance_eval "def _#{name}() _band_id2ref(@_accessors[:#{name}]); end"
+    end
+  end
+end
+
+__END__
+module WR
+  class Form1 < Form
+    def initialize()
+      self.font = Font["Meiryo", 18]
+      inheritfont true #Font["Meiryo", 18]
+      resize 640, 480
+      controls << Rebar[:rebar1, '', 0, 0, 0, 0, :varheight]
+      tb1 = Toolbar[:toolbar1, "", 0, 0, 200, 28, :list, :noresize, :nodivider, :tooltips, :transparent]
+      controls.rebar1 << [:band1, "band", Button[:button1, 'Button1', 0, 0, 80, 24]]
+      controls.rebar1 << [:band2, "toolbar", tb1]
+      tb1.imagelist = :systemsmall
+      tb1 << [:bt1, :filenew, 'New', :infotip=>'New!!']
+      tb1 << [:bt1, :fileopen, 'Open']
+      tb1 << [:bt1, :filesave, 'Save']
+      controls.rebar1 << [:band3, 'band3', 2, Combobox[:cmb1, '', 0, 0, 100, 100]]
+      controls.rebar1.band1.color = 0xff0000, 0xffffff
+      controls.rebar1.band2.color = 0xffff00, 0
+#      
+      controls << Button[:button2, "Set Bitmap", 0, 100, 100, 24]
+    end
+    
+    def button1_clicked(*args)
+      dpp args
+    end
+    
+    def button2_clicked(*args)
+      controls.rebar1.band1.bitmap = "IRNGwDAAAAAAAAAG0AcBRALAIAAAAAIQEwAIADEBk4ECQJjgWGwGAwGAwGAwGAwGAwGAwGAwGAwGAwICfwJeQCAQCAQCAQCAQCAQCAQCAQCAQEBHYK+QMAf7/f7/f7/f7/f7/f7/f7/gHVBOCBh8DD4ITQMPgwfBvmDB8JD4GHxGphgfBg+Bh8PP4gpw8PiQfDA+Eh8VP4MHx4DjAfGPCOLMbD42HxxTjW/JDCPB8GBpMJgB/v8AP9/ybWkgfJSOBa0pf5VPwLZguzLT+XLMIdoSBg=="
+    end
+    
+    self.start
+  end
+end if $0 == __FILE__