wrb 2.0.0

data/lib/wrb/components/timer.rb

@@ -0,0 +1,117 @@
+require 'wrb'
+module WR
+  
+  # Handles a timer of a Window.
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/api/_winmsg/">
+  # Windows and Messages section of Microsft Docs</a>
+  class Timer
+    include RC
+    
+    API.defun 'SetTimer(hwnd, idcmd, elapse, timerfunc)'
+    API.defun 'KillTimer(hwnd, idcmd)'
+    attr_accessor :name, :parent
+    attr_reader :idcmd
+    
+=begin
+singleton methods
+  self.new(parent=nil, name=nil, elapse)
+=end
+    
+    # self.[](parent=nil, name=nil, elapse)
+    # Sets timer with specified arguments, but not starting.<br>
+    def self.[](*args)
+      self.new(*args)
+    end
+    
+    def initialize(*args)
+      @parent = args.shift if args[0].is_a?(RWin::Window)
+      optionfuncs = args.pop if args.last.is_a?(Hash)
+      @name, @elapse = args
+      optionfuncs.each{|k, v| __send__(k.to_s + '=', v)} if optionfuncs
+    end
+    
+    # Sets the idcmd value used when registers event of "???_elapsed" to parent of this timer.
+    def idcmd=(id)
+      @parent.set_msgtranslator(WM_TIMER) unless @parent.get_msgtranslator(WM_TIMER)
+      @idcmd = id
+      @parent.register_event(@idcmd, WM_TIMER, 0, "#{name}_elapsed")
+    end
+    
+    # Starts this timer according to the parameters that was set at initializing.<br>
+    # If reached time-out, it will sends `???_elapsed' event to parent.<br>
+    # If `started' paremeter is not set, it does nothing.
+    def create()
+      API.SetTimer(@parent._hwnd, @idcmd, @elapse, 0) if @parent && @parent.alive? && @_start && @elapse>0
+    end
+    
+    # Starts this timer forcely. <br>
+    # If reached time-out, it will sends `???_elapsed' event to parent.
+    def start()
+      @_start = true
+      API.SetTimer(@parent._hwnd, @idcmd, @elapse, 0) if @parent && @parent.alive? && @elapse>0
+      self
+    end
+    
+    # Retreives whether this timer was started.
+    def started()
+      @_start
+    end
+    
+    # Sets or resets whether this timer is started at the creation.
+    def started=(f)
+      @parent && @parent.alive? ? (f ? start : stop) : @_start=f
+    end
+    
+    # Stops and resets elapsed time of this timer.
+    def stop()
+      @_start = nil
+      API.KillTimer(@parent._hwnd, @idcmd) if @parent && @parent.alive?
+      self
+    end
+    
+    # Retreives the time-out value, in milliseconds of this timer.
+    def elapse()
+      @elapse
+    end
+    # Sets the time-out value, in milliseconds to this timer.
+    def elapse=(elps)
+      @elapse = elps
+      API.SetTimer(@parent._hwnd, @idcmd, elapse, 0) if @parent && @parent.alive?
+    end
+    
+    #
+    def delete
+      if @parent && @parent.alive?
+        API.KillTimer(@parent._hwnd, @idcmd)
+        @parent.controls._delete(self)
+      end
+    end
+    
+  end
+end
+
+module WR
+  class MyForm < Form
+    def initialize()
+      _<< Button[:bt1, 'Stop', 0, 0, 80, 24]
+      _<< Button[:bt2, 'Button1', 80, 0, 80, 24]
+      _<< Timer[:timer1, 500, :started=>true]
+      _<< Timer[:timer2, 1000, :started=>true]
+      self.events = :paint
+    end
+    
+    def timer2_elapsed(); dpp 'timer2'
+    end
+    def timer1_elapsed(); dpp 'timer1'
+      self.caption = Time.now.to_s
+    end
+    
+    def bt1_clicked(*)
+      dpp _.timer1.elapse
+      _.timer1.stop 
+      dpp _.timer1.started
+    end
+    
+    self.start
+  end
+end if $0 == __FILE__

data/lib/wrb/components/toolbar.rb

@@ -0,0 +1,1107 @@
+require 'wrb'
+
+module WR
+  module RC
+    TB_ENABLEBUTTON         = WM_USER +  1
+    TB_CHECKBUTTON          = WM_USER +  2
+    TB_PRESSBUTTON          = WM_USER +  3
+    TB_HIDEBUTTON           = WM_USER +  4
+    TB_INDETERMINATE        = WM_USER +  5
+    TB_ISBUTTONENABLED      = WM_USER +  9
+    TB_ISBUTTONCHECKED      = WM_USER + 10
+    TB_ISBUTTONPRESSED      = WM_USER + 11
+    TB_ISBUTTONHIDDEN       = WM_USER + 12
+    TB_ISBUTTONINDETERMINATE= WM_USER + 13
+    TB_SETSTATE             = WM_USER + 17
+    TB_GETSTATE             = WM_USER + 18
+    TB_ADDBITMAP            = WM_USER + 19
+    TB_DELETEBUTTON         = WM_USER + 22
+    TB_GETBUTTON            = WM_USER + 23
+    TB_BUTTONCOUNT          = WM_USER + 24
+    TB_COMMANDTOINDEX       = WM_USER + 25
+    TB_CUSTOMIZE            = WM_USER + 27
+    TB_GETITEMRECT          = WM_USER + 29
+    TB_BUTTONSTRUCTSIZE     = WM_USER + 30
+    TB_SETBUTTONSIZE        = WM_USER + 31
+    TB_SETBITMAPSIZE        = WM_USER + 32
+    TB_AUTOSIZE             = WM_USER + 33
+    TB_GETTOOLTIPS          = WM_USER + 35
+    TB_SETTOOLTIPS          = WM_USER + 36
+    TB_SETPARENT            = WM_USER + 37
+    TB_SETROWS              = WM_USER + 39
+    TB_GETROWS              = WM_USER + 40
+    TB_GETBITMAPFLAGS       = WM_USER + 41
+    TB_SETCMDID             = WM_USER + 42
+    TB_CHANGEBITMAP         = WM_USER + 43
+    TB_GETBITMAP            = WM_USER + 44
+    TB_REPLACEBITMAP        = WM_USER + 46
+    TB_SETINDENT            = WM_USER + 47
+    TB_SETIMAGELIST         = WM_USER + 48
+    TB_GETIMAGELIST         = WM_USER + 49
+    TB_LOADIMAGES           = WM_USER + 50
+    TB_GETRECT              = WM_USER + 51
+    TB_SETHOTIMAGELIST      = WM_USER + 52
+    TB_GETHOTIMAGELIST      = WM_USER + 53
+    TB_SETDISABLEDIMAGELIST = WM_USER + 54
+    TB_GETDISABLEDIMAGELIST = WM_USER + 55
+    TB_SETSTYLE             = WM_USER + 56
+    TB_GETSTYLE             = WM_USER + 57
+    TB_GETBUTTONSIZE        = WM_USER + 58
+    TB_SETBUTTONWIDTH       = WM_USER + 59
+    TB_SETMAXTEXTROWS       = WM_USER + 60
+    TB_GETTEXTROWS          = WM_USER + 61
+    TB_GETOBJECT            = WM_USER + 62
+    TB_HITTEST              = WM_USER + 69
+    TB_SETDRAWTEXTFLAGS     = WM_USER + 70
+    TB_GETHOTITEM           = WM_USER + 71
+    TB_SETHOTITEM           = WM_USER + 72
+    TB_SETANCHORHIGHLIGHT   = WM_USER + 73
+    TB_GETANCHORHIGHLIGHT   = WM_USER + 74
+    TB_GETINSERTMARK        = WM_USER + 79
+    TB_SETINSERTMARK        = WM_USER + 80
+    TB_INSERTMARKHITTEST    = WM_USER + 81
+    TB_MOVEBUTTON           = WM_USER + 82
+    TB_GETMAXSIZE           = WM_USER + 83
+    TB_SETEXTENDEDSTYLE     = WM_USER + 84
+    TB_GETEXTENDEDSTYLE     = WM_USER + 85
+    TB_GETPADDING           = WM_USER + 86
+    TB_SETPADDING           = WM_USER + 87
+    TB_SETINSERTMARKCOLOR   = WM_USER + 88
+    TB_GETINSERTMARKCOLOR   = WM_USER + 89
+    
+    TB_ADDBUTTONSA          = WM_USER + 20
+    TB_INSERTBUTTONA        = WM_USER + 21
+    TB_SAVERESTOREA         = WM_USER + 26
+    TB_ADDSTRINGA           = WM_USER + 28
+    TB_GETBUTTONTEXTA       = WM_USER + 45
+    TB_GETBUTTONINFOA       = WM_USER + 65
+    TB_SETBUTTONINFOA       = WM_USER + 66
+    TB_MAPACCELERATORA      = WM_USER + 78
+    TB_GETSTRINGA           = WM_USER + 92
+    
+    TB_ADDBUTTONSW          = WM_USER + 68
+    TB_INSERTBUTTONW        = WM_USER + 67
+    TB_SAVERESTOREW         = WM_USER + 76
+    TB_ADDSTRINGW           = WM_USER + 77
+    TB_GETBUTTONTEXTW       = WM_USER + 75
+    TB_GETBUTTONINFOW       = WM_USER + 63
+    TB_SETBUTTONINFOW       = WM_USER + 64
+    TB_MAPACCELERATORW      = WM_USER + 90
+    TB_GETSTRINGW           = WM_USER + 91
+
+    if RWin::UNICODE
+      TB_ADDBUTTONS         = TB_ADDBUTTONSW
+      TB_INSERTBUTTON       = TB_INSERTBUTTONW
+      TB_SAVERESTORE        = TB_SAVERESTOREW
+      TB_ADDSTRING          = TB_ADDSTRINGW
+      TB_GETBUTTONTEXT      = TB_GETBUTTONTEXTW
+      TB_GETBUTTONINFO      = TB_GETBUTTONINFOW
+      TB_SETBUTTONINFO      = TB_SETBUTTONINFOW
+      TB_MAPACCELERATOR     = TB_MAPACCELERATORW
+      TB_GETSTRING          = TB_GETSTRINGW
+    else
+      TB_ADDBUTTONS         = TB_ADDBUTTONSA
+      TB_INSERTBUTTON       = TB_INSERTBUTTONA
+      TB_SAVERESTORE        = TB_SAVERESTOREA
+      TB_ADDSTRING          = TB_ADDSTRINGA
+      TB_GETBUTTONTEXT      = TB_GETBUTTONTEXTA
+      TB_GETBUTTONINFO      = TB_GETBUTTONINFOA
+      TB_SETBUTTONINFO      = TB_SETBUTTONINFOA
+      TB_MAPACCELERATOR     = TB_MAPACCELERATORA
+      TB_GETSTRING          = TB_GETSTRINGA
+    end
+    
+    TBBF_LARGE              = 1
+
+    TBN_FIRST               = -700
+    TBN_GETBUTTONINFOA      = TBN_FIRST - 0
+    TBN_BEGINDRAG           = TBN_FIRST - 1
+    TBN_ENDDRAG             = TBN_FIRST - 2
+    TBN_BEGINADJUST         = TBN_FIRST - 3
+    TBN_ENDADJUST           = TBN_FIRST - 4
+    TBN_RESET               = TBN_FIRST - 5
+    TBN_QUERYINSERT         = TBN_FIRST - 6
+    TBN_QUERYDELETE         = TBN_FIRST - 7
+    TBN_TOOLBARCHANGE       = TBN_FIRST - 8
+    TBN_CUSTHELP            = TBN_FIRST - 9
+    TBN_DROPDOWN            = TBN_FIRST - 10
+    TBN_GETOBJECT           = TBN_FIRST - 12
+    TBN_HOTITEMCHANGE       = TBN_FIRST - 13
+    TBN_DRAGOUT             = TBN_FIRST - 14
+    TBN_DELETINGBUTTON      = TBN_FIRST - 15
+    TBN_GETDISPINFOA        = TBN_FIRST - 16
+    TBN_GETDISPINFOW        = TBN_FIRST - 17
+    TBN_GETINFOTIPA         = TBN_FIRST - 18
+    TBN_GETINFOTIPW         = TBN_FIRST - 19
+    TBN_GETBUTTONINFOW      = TBN_FIRST - 20
+    TBN_RESTORE             = TBN_FIRST - 21
+    TBN_SAVE                = TBN_FIRST - 22
+    TBN_INITCUSTOMIZE       = TBN_FIRST - 23
+    TBN_WRAPHOTITEM         = TBN_FIRST - 24
+    TBN_DUPACCELERATOR      = TBN_FIRST - 25
+    TBN_WRAPACCELERATOR     = TBN_FIRST - 26
+    TBN_DRAGOVER            = TBN_FIRST - 27
+    TBN_MAPACCELERATOR      = TBN_FIRST - 28
+    
+    if RWin::UNICODE
+      TBN_GETDISPINFO       = TBN_GETDISPINFOW
+      TBN_GETINFOTIP        = TBN_GETINFOTIPW
+      TBN_GETBUTTONINFO     = TBN_GETBUTTONINFOW
+    else
+      TBN_GETDISPINFO       = TBN_GETDISPINFOA
+      TBN_GETINFOTIP        = TBN_GETINFOTIPA
+      TBN_GETBUTTONINFO     = TBN_GETBUTTONINFOA
+    end
+    
+    TBNRF_HIDEHELP        = 0x1
+    TBNRF_ENDCUSTOMIZE    = 0x2
+
+    # 5.80 or later
+    CMB_MASKED            = 0x2
+    TBSTATE_CHECKED       = 0x1
+    TBSTATE_PRESSED       = 0x2
+    TBSTATE_ENABLED       = 0x4
+    TBSTATE_HIDDEN        = 0x8
+    TBSTATE_INDETERMINATE = 0x10
+    TBSTATE_WRAP          = 0x20
+    TBSTATE_ELLIPSES      = 0x40
+    TBSTATE_MARKED        = 0x80
+    
+    TBSTYLE_BUTTON       = 0x0
+    TBSTYLE_SEP          = 0x1
+    TBSTYLE_CHECK        = 0x2
+    TBSTYLE_GROUP        = 0x4
+    TBSTYLE_CHECKGROUP   = TBSTYLE_GROUP | TBSTYLE_CHECK
+    TBSTYLE_DROPDOWN     = 0x8
+    TBSTYLE_AUTOSIZE     = 0x10
+    TBSTYLE_NOPREFIX     = 0x20
+    TBSTYLE_TOOLTIPS     = 0x100
+    TBSTYLE_WRAPABLE     = 0x200
+    TBSTYLE_ALTDRAG      = 0x400
+    TBSTYLE_FLAT         = 0x800
+    TBSTYLE_LIST         = 0x1000
+    TBSTYLE_CUSTOMERASE  = 0x2000
+    TBSTYLE_REGISTERDROP = 0x4000
+    TBSTYLE_TRANSPARENT  = 0x8000
+    
+    BTNS_BUTTON        = TBSTYLE_BUTTON
+    BTNS_SEP           = TBSTYLE_SEP
+    BTNS_CHECK         = TBSTYLE_CHECK
+    BTNS_GROUP         = TBSTYLE_GROUP
+    BTNS_CHECKGROUP    = TBSTYLE_CHECKGROUP
+    BTNS_DROPDOWN      = TBSTYLE_DROPDOWN
+    BTNS_AUTOSIZE      = TBSTYLE_AUTOSIZE
+    BTNS_NOPREFIX      = TBSTYLE_NOPREFIX
+    BTNS_SHOWTEXT      = 0x40
+    BTNS_WHOLEDROPDOWN = 0x80
+
+    TBSTYLE_EX_DRAWDDARROWS       = 0x1
+    TBSTYLE_EX_MIXEDBUTTONS       = 0x08
+    TBSTYLE_EX_HIDECLIPPEDBUTTONS = 0x10
+    TBSTYLE_EX_DOUBLEBUFFER       = 0x80
+    
+    TBIF_IMAGE   = 0x00000001
+    TBIF_TEXT    = 0x00000002
+    TBIF_STATE   = 0x00000004
+    TBIF_STYLE   = 0x00000008
+    TBIF_LPARAM  = 0x00000010
+    TBIF_COMMAND = 0x00000020
+    TBIF_SIZE    = 0x00000040
+    TBIF_BYINDEX = 0x80000000
+    TBIF_DEFAULT = TBIF_IMAGE | TBIF_TEXT | TBIF_STATE | TBIF_STYLE | TBIF_LPARAM
+    
+    HINST_COMMCTRL       = -1
+    IDB_STD_SMALL_COLOR  = 0
+    IDB_STD_LARGE_COLOR  = 1
+    IDB_VIEW_SMALL_COLOR = 4
+    IDB_VIEW_LARGE_COLOR = 5
+    IDB_HIST_SMALL_COLOR = 8
+    IDB_HIST_LARGE_COLOR = 9
+    
+    STD_CUT        = 0
+    STD_COPY       = 1
+    STD_PASTE      = 2
+    STD_UNDO       = 3
+    STD_REDOW      = 4
+    STD_DELETE     = 5
+    STD_FILENEW    = 6
+    STD_FILEOPEN   = 7
+    STD_FILESAVE   = 8
+    STD_PRINTPRE   = 9
+    STD_PROPERTIES = 10
+    STD_HELP       = 11
+    STD_FIND       = 12
+    STD_REPLACE    = 13
+    STD_PRINT      = 14
+
+    VIEW_LARGEICONS    = 0
+    VIEW_SMALLICONS    = 1
+    VIEW_LIST          = 2
+    VIEW_DETAILS       = 3
+    VIEW_SORTNAME      = 4
+    VIEW_SORTSIZE      = 5
+    VIEW_SORTDATE      = 6
+    VIEW_SORTTYPE      = 7
+    VIEW_PARENTFOLDER  = 8
+    VIEW_NETCONNECT    = 9
+    VIEW_NETDISCONNECT = 10
+    VIEW_NEWFOLDER     = 11
+    VIEW_VIEWMENU      = 12
+    
+    HIST_BACK           = 0
+    HIST_FORWARD        = 1
+    HIST_FAVORITES      = 2
+    HIST_ADDTOFAVORITES = 3
+    HIST_VIEWTREE       = 4
+    
+    CBM_INIT = 0x04
+  
+    BN_CLICKED       = 0 unless defined? BN_CLICKED # defined in button.rb
+  end
+  
+  # A control that contains one or more buttons. Each button, when clicked by a user, sends a command message to the parent window.
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  # window-controls"> Windows Control section of Microsoft Docs.</a>
+  class Toolbar < WinControl #CommonControl
+    if RWin::X64
+    TBBUTTON = API.defstruct "
+      int iBitmap;
+      int idCommand;
+      BYTE fsState;
+      BYTE fsStyle;
+      BYTE bReserved[6];
+      ULONG_PTR dwData;
+      TCHAR *iString;"
+    else
+    TBBUTTON = API.defstruct "
+      int iBitmap;
+      int idCommand;
+      BYTE fsState;
+      BYTE fsStyle;
+      BYTE bReserved[2];
+      DWORD dwData;
+      TCHAR *iString;"
+    end
+    
+    TBBUTTONINFO =  API.defstruct "
+      UINT cbSize;
+      DWORD dwMask;
+      int idCommand;
+      int iImage;
+      BYTE fsState;
+      BYTE fsStyle;
+      WORD cx;
+      LPARAM lParam;
+      LPTSTR pszText;
+      int cchText;"
+  
+    TBNOTIFY = API.defstruct "
+      NMHDR hdr;
+      int iItem;
+      TBBUTTON tbButton;
+      int cchText;
+      LPTSTR pszText;"
+    
+    TBADDBITMAP = API.defstruct "
+      HANDLE hInst;
+      UINT nID;"
+    
+    NMTBSAVE = API.defstruct "
+      NMHDR hdr;
+      DWORD *pData;
+      DWORD *pCurrent;
+      UINT cbData;
+      int iItem;
+      int cButtons;
+      TBBUTTON tbButton;"
+
+    NMTBRESTORE = API.defstruct "
+      NMHDR hdr;
+      DWORD *pData;
+      DWORD *pCurrent;
+      UINT cbData;
+      int iItem;
+      int cButtons;
+      int cbBytesPerRecord;
+      TBBUTTON tbButton;"
+    
+    NMTBGETINFOTIP = API.defstruct "
+      NMHDR hdr;
+      LPTSTR pszText;
+      int cchTextMax;
+      int iItem;
+      LPARAM lParam;"
+    
+    NMTBDISPINFO = API.defstruct "
+      NMHDR hdr;
+      DWORD dwMask;
+      int idCommand;
+      LPARAM lParam;
+      int iImage;
+      LPTSTR pszText;
+      int cchText;"
+    
+    NMTOOLBAR = API.defstruct "
+      NMHDR hdr;
+      int iItem;
+      TBBUTTON tbButton;
+      int cchText;
+      LPSTR pszText;
+      RECT rcButton;"
+    
+    NMTBHOTITEM = API.defstruct "
+      NMHDR hdr;
+      int   idOld;
+      int   idNew;
+      DWORD dwFlags;"
+    
+    BtnStyles = {
+      :button        => BTNS_BUTTON,
+      :sep           => BTNS_SEP,
+      :check         => BTNS_CHECK,
+      :group         => BTNS_GROUP,
+      :checkgroup    => BTNS_CHECKGROUP,
+      :dropdown      => BTNS_DROPDOWN,
+      :autosize      => BTNS_AUTOSIZE,
+      :noprefix      => BTNS_NOPREFIX,
+      :showtext      => BTNS_SHOWTEXT,
+      :wholedropdown => BTNS_WHOLEDROPDOWN
+    }
+      
+    TbStates = {
+      :checked       => TBSTATE_CHECKED,
+      :pressed       => TBSTATE_PRESSED,
+      :enabled       => TBSTATE_ENABLED,
+      :hidden        => TBSTATE_HIDDEN,
+      :indeterminate => TBSTATE_INDETERMINATE,
+      :wrap          => TBSTATE_WRAP,
+      :disabled      => ~TBSTATE_ENABLED,
+    }
+    
+    # icon indexes for standard bitmap
+    StdBitmapSymbols = {
+      :cut             => STD_CUT,
+      :copy            => STD_COPY,
+      :paste           => STD_PASTE,
+      :undo            => STD_UNDO,
+      :redow           => STD_REDOW,
+      :delete          => STD_DELETE,
+      :filenew         => STD_FILENEW,
+      :fileopen        => STD_FILEOPEN,
+      :filesave        => STD_FILESAVE,
+      :printpre        => STD_PRINTPRE,
+      :properties      => STD_PROPERTIES,
+      :help            => STD_HELP,
+      :find            => STD_FIND,
+      :replace         => STD_REPLACE,
+      :print           => STD_PRINT
+    }
+  
+    # icon indexes for standard view bitmap
+    ViewBitmapSymbols = {
+      :largeicons     => VIEW_LARGEICONS,
+      :smallicons     => VIEW_SMALLICONS,
+      :list           => VIEW_LIST,
+      :details        => VIEW_DETAILS,
+      :sortname       => VIEW_SORTNAME,
+      :sortsize       => VIEW_SORTSIZE,
+      :sortdate       => VIEW_SORTDATE,
+      :sorttype       => VIEW_SORTTYPE,
+      :parentfolder   => VIEW_PARENTFOLDER,
+      :netconnect     => VIEW_NETCONNECT,
+      :netdisconnect  => VIEW_NETDISCONNECT,
+      :newfolder      => VIEW_NEWFOLDER,
+      :viewmenu       => VIEW_VIEWMENU
+    }
+  
+    # icon indexes for standard history bitmap
+    HistBitmapSymbols = {
+      :back           => HIST_BACK,
+      :forward        => HIST_FORWARD,
+      :favorites      => HIST_FAVORITES,
+      :addtofavorites => HIST_ADDTOFAVORITES,
+      :viewtree       => HIST_VIEWTREE
+    }
+    
+    # Wrapper of idcmd, and holder of name and data.<br>
+    # Usage: Toolbar::Button.new([owner], name, ibitmap, text=nil, style=0, state=0, options...)
+    class Button
+      
+      include RC
+#      include ModUtil
+      attr_reader :idcmd
+      
+      def self.[](*args) self.new(*args); end
+      
+      def initialize(*args)
+        if args[0].is_a? Toolbar
+          @owner = args.shift
+        end
+        if args[0].is_a? Symbol
+          optionfuncs = args.pop if args.last.is_a?(Hash)
+          
+          @name = args.shift #; dp "@%p, %p", args, SystemBitmaps
+          @ibitmap = args.shift
+          @style = BTNS_BUTTON
+          @state = TBSTATE_ENABLED
+          while args.last.is_a? Symbol
+            a = args.pop
+            if sty = BtnStyles[a]
+              @style |= sty
+            elsif sta = TbStates[a]
+              if sta < 0
+                @state &= sta
+              else
+                @state |= sta
+              end
+            end
+          end
+          raise ArgumentError, sprintf("Too many arguments: %p", args) if args.size > 4
+          txt, stl, stt, dat = args
+          @text = txt if txt
+          stl>0 ? @style|=stl : @style&=stl if stl
+          stt>0 ? @state|=stt : @state&=stt if stt
+          @data = dat if dat
+          
+#          dp "@name=%p, @idcmd=%p, ibitmap=%p, @text=%p, style=%p, state=%p, data=%p", @name, @idcmd, @ibitmap, @text, @style, @state, @data
+          if optionfuncs
+            if @owner
+              optionfuncs.each{|k, v| __send__(k.to_s + '=', v)}
+            else
+              @__attrs = optionfuncs
+            end
+          end
+        else
+          @idcmd = args[0]
+        end
+      end
+      
+      def owner=(onr) 
+        @owner = onr
+        @__attrs.each{|k, v| __send__(k.to_s + '=', v)} if @__attrs
+      end
+      
+      def idcmd=(id)
+        @idcmd = id
+      end
+      
+      def inspect()
+        sprintf "#<#{self.class}:%x @name=%s, @idcmd=%p>", self.__id__, @name, @idcmd
+      end
+      
+      def delete()
+        @owner.delete(self)
+      end
+      
+      ### attributes ###
+      
+      private
+      def _setsate_sep(st, f)
+        if @owner.alive?
+          @state = @owner.SendMessage(TB_GETSTATE, @idcmd, 0)
+          f ? @state | st : @state & ~st
+          @owner.SendMessage(TB_SETSTATE, @idcmd, @state)
+        else
+          f ? @state | st : @state & ~st
+        end
+      end
+      
+      def _getstate_sep(st)
+        @state = @owner.SendMessage(TB_GETSTATE, @idcmd, 0) if @owner.alive? 
+        (@state & st) > 0
+      end
+      
+      public
+      def enabled() _getsate_sep(TBSTATE_ENABLED); end
+      def enabled=(f) _setsate_sep(TBSTATE_ENABLED, f); end
+      
+      def checked() _getsate_sep(TBSTATE_CHECKED); end
+      def checked=(f) _setsate_sep(TBSTATE_CHECKED, f); end
+      
+      def pressed() _getsate_sep(TBSTATE_PRESSED); end
+      def pressed=(f) _setsate_sep(TBSTATE_PRESSED, f); end
+      
+      def hidden() _getsate_sep(TBSTATE_HIDDEN); end
+      def hidden=(f) _setsate_sep(TBSTATE_HIDDEN, f); end
+      
+      def indeterminate() _getsate_sep(TBSTATE_INDETERMINATE); end
+      def indeterminate=(f) _setsate_sep(TBSTATE_INDETERMINATE, f); end
+      
+      def name() @name; end
+      def name=(str)
+        @owner._delete_accessor(@name)
+        @name = str.intern
+        @owner._add_accessor(self, @name)
+      end
+      
+      def state()
+        @owner.alive? ? @owner.SendMessage(TB_GETSTATE, @idcmd, 0) : @state
+      end
+      def state=(*args)
+        args.flatten!
+        st = self.state
+        while args.last.is_a? Symbol
+          if sta = TbStates[a=args.pop]
+            if sta < 0
+              st &= sta
+            else
+              st |= sta
+            end
+          end
+        end
+        unless args.empty?
+          if args[0] < 0
+            st &= args[0]
+          else
+            st |= args[0]
+          end
+        end
+        @state = st
+        @owner.SendMessage(TB_SETSTATE, @idcmd, st) if @owner.alive?
+      end
+      
+      def style() # NG!!
+        if @owner.alive?
+          tbi = TBBUTTONINFO[TBBUTTONINFO::Size, TBIF_STYLE]
+          @owner.SendMessage(TB_GETBUTTONINFO, @idcmd, tbi)
+#          @owner.SendMessage(TB_GETSTYLE, @idcmd, 0) 
+          tbi.fsStyle
+        else
+          @style
+        end
+      end
+      def style=(args) # NG!!
+        if args.is_a?(Array)
+          st = 0
+          while args.last.is_a? Symbol
+            if sty = BtnStyles[args.pop]
+              st |= sty
+            end
+          end
+          st |= args[0] unless args.empty?
+        else
+          st = args
+        end
+        tbi = TBBUTTONINFO[TBBUTTONINFO::Size, TBIF_STYLE, nil, nil, nil, st]
+        @owner.SendMessage(TB_SETBUTTONINFO, @idcmd, tbi)
+      end
+      
+      def iimage() 
+        @owner.alive? ? @owner.SendMessage(TB_GETBITMAP, @idcmd, 0) : @ibitmap
+      end
+      def iimage=(iimg)
+        @ibitmap = iimg
+        if @owner.alive?
+          tbi = TBBUTTONINFO[TBBUTTONINFO::Size, TBIF_IMAGE, nil, iimg]
+          @owner.SendMessage(TB_SETBUTTONINFO, @idcmd, tbi)
+        end
+      end
+      alias ibitmap iimage
+      alias ibitmap= iimage=
+      
+      def text()
+        if @owner.alive?
+          @owner.SendMessage(TB_GETBUTTONTEXT, @idcmd, buff=TCHAR[32]) #; dpp buff.to_s
+          buff.to_s
+        else
+          @text
+        end
+      end
+      def text=(txt)
+        @text = txt
+        if @owner.alive?
+          tbi = TBBUTTONINFO[TBBUTTONINFO::Size, TBIF_TEXT]
+          tbi.pszText = txt || 0
+          tbi.cchText = txt ? txt.size : 0
+          @owner.SendMessage(TB_SETBUTTONINFO, @idcmd, tbi)
+        end
+      end
+      
+      def data()
+        if @owner.alive?
+          tbi = TBBUTTONINFO[TBBUTTONINFO::Size, TBIF_LPARAM]
+          @owner.SendMessage(TB_GETBUTTONINFO, @idcmd, tbi)
+          ObjectSpace._id2ref(tbi.lParam)
+        else
+          @data
+        end
+      end
+      def data=(dt)
+        @data = dt
+        if @owner.alive?
+          tbi = TBBUTTONINFO[TBBUTTONINFO::Size, TBIF_LPARAM]
+          tbi.lParam = @data.__id__
+          SendMessage(TB_SETBUTTONINFO, @idcmd, tbi)
+        end
+      end
+      
+      def index()
+        @owner.index(self)
+      end
+      
+      def width()
+        if @owner.alive?
+          tbi = TBBUTTONINFO[TBBUTTONINFO::Size, TBIF_SIZE]
+          @owner.SendMessage(TB_GETBUTOONINFO, @idcmd, tbi)
+          tbi.cx
+        else
+          @_width
+        end
+      end
+      def width=(w)
+        if @owner.alive?
+          tbi = TBBUTTONINFO[TBBUTTONINFO::Size, TBIF_SIZE]
+          tbi.cx = w
+          @owner.SendMessage(TB_SETBUTTONINFO, @idcmd, tbi)
+        else
+          @_width = w
+        end
+      end
+      
+      def rect()
+        @owner.SendMessage(TB_GETRECT, @idcmd, rc=RECT.new)
+        rc
+      end
+      
+      def infotip()
+        _T(@owner._infotips[@idcmd])
+      end
+      def infotip=(tiptext)
+        @owner._infotips[@idcmd] = _I(tiptext)
+      end
+      
+      def _tbbutton
+#        ibmp = @ibitmap.is_a?(Symbol) ? SystemBitmaps[@ibitmap] : @ibitmap
+        ibmp = @ibitmap.is_a?(Symbol) ? @owner._systembitmaps[@ibitmap] : @ibitmap
+        TBBUTTON[ibmp, @idcmd, @state, @style, nil, @data.__id__, @text]
+      end
+    end # Button
+    
+    ###################### Main ######################
+    include ModCommCtrl
+    include ModParent
+    include ModAccessor
+    
+    DefaultWindowStyle = CCS_TOP
+    SystemBitmaps = {:noimage=>I_IMAGENONE}
+    
+    WinStyles = {
+      :tooltips     => TBSTYLE_TOOLTIPS,
+      :wrapable     => TBSTYLE_WRAPABLE,
+      :latdrag      => TBSTYLE_ALTDRAG,
+      :flat         => TBSTYLE_FLAT,
+      :list         => TBSTYLE_LIST,
+      :customerase  => TBSTYLE_CUSTOMERASE,
+      :registerdrop => TBSTYLE_REGISTERDROP,
+      :transparent  => TBSTYLE_TRANSPARENT
+    }
+    WinStyles.update(CCStyles)
+#    def self.sym2style(*args) _sym2style(WinStyles, args); end
+    
+    WinExStyles = {
+    }
+#    def self.sym2exstyle(*args) _sym2style(WinExStyles, args); end
+    
+    TbExtendedStyles = {
+      :drawddarrows       => TBSTYLE_EX_DRAWDDARROWS,
+      :mixedbuttons       => TBSTYLE_EX_MIXEDBUTTONS,
+      :hideclippedbuttons => TBSTYLE_EX_HIDECLIPPEDBUTTONS,
+      :doublebuffer       => TBSTYLE_EX_DOUBLEBUFFER
+    }
+#    def self.sym2style(*args) _sym2style(WinStyles, args); end
+    
+    PreDefinedEvents = {
+      :char            => [WM_NOTIFY, NM_CHAR, 'xs', NMCHAR],
+      :click           => [WM_NOTIFY, NM_CLICK, 'xs', NMMOUSE],
+      :customdraw      => [WM_NOTIFY, NM_CUSTOMDRAW , 'xs', NMCUSTOMDRAW],
+      :dblclk          => [WM_NOTIFY, NM_DBLCLK, 'xs', NMMOUSE],
+      :keydown         => [WM_NOTIFY, NM_KEYDOWN, 'xs', NMKEY],
+      :ldown           => [WM_NOTIFY, NM_LDOWN, 'xs', NMMOUSE],
+      :rclick          => [WM_NOTIFY, NM_RCLICK, 'xs', NMMOUSE],
+      :rdblclk         => [WM_NOTIFY, NM_RDBLCLK, 'xs', NMMOUSE],
+      :releasedcapture => [WM_NOTIFY, NM_RELEASEDCAPTURE, 'xs', NMHDR],
+      :tooltipscreated => [WM_NOTIFY, NM_TOOLTIPSCREATED, 'xs', NMTOOLTIPSCREATED],
+      :begindrag       => [WM_NOTIFY, TBN_BEGINDRAG, 'xs', NMTOOLBAR],
+      :enddrag         => [WM_NOTIFY, TBN_ENDDRAG, 'xs', NMTOOLBAR],
+      :beginadjust     => [WM_NOTIFY, TBN_BEGINADJUST, 'xs', NMHDR],
+      :endadjust       => [WM_NOTIFY, TBN_ENDADJUST, 'xs', NMHDR],
+      :reset           => [WM_NOTIFY, TBN_RESET, 'xs', NMHDR],
+      :queryinsert     => [WM_NOTIFY, TBN_QUERYINSERT, 'xs', NMTOOLBAR],
+      :querydelete     => [WM_NOTIFY, TBN_QUERYDELETE, 'xs', NMTOOLBAR],
+      :toolbarchange   => [WM_NOTIFY, TBN_TOOLBARCHANGE, 'xs', NMHDR],
+      :custhelp        => [WM_NOTIFY, TBN_CUSTHELP, 'xs', NMHDR],
+      :dropdown        => [WM_NOTIFY, TBN_DROPDOWN, 'xs', NMTOOLBAR],
+      :hotitemchange   => [WM_NOTIFY, TBN_HOTITEMCHANGE, 'xs', NMTBHOTITEM],
+      :draguot         => [WM_NOTIFY, TBN_DRAGOUT, 'xs', NMTOOLBAR],
+      :deletingbutton  => [WM_NOTIFY, TBN_DELETINGBUTTON, 'xs', NMTOOLBAR],
+      :getdispinfo     => [WM_NOTIFY, TBN_GETDISPINFO, 'xs', NMTBDISPINFO],
+      :getinfotip      => [WM_NOTIFY, TBN_GETINFOTIP, 'xs', NMTBDISPINFO],
+      :getbuttoninfo   => [WM_NOTIFY, TBN_GETBUTTONINFO, 'xs', NMTOOLBAR],
+      :restore         => [WM_NOTIFY, TBN_RESTORE, 'xs', NMTBRESTORE],
+      :save            => [WM_NOTIFY, TBN_SAVE, 'xs', NMTBSAVE],
+      :initcustomize   => [WM_NOTIFY, TBN_INITCUSTOMIZE, 'xs', NMHDR],
+      :dragover        => [WM_NOTIFY, TBN_DRAGOVER, 'xs', NMTBHOTITEM],
+      :mapaccelerator  => [WM_NOTIFY, TBN_MAPACCELERATOR, 'xs', NMCHAR]
+      
+#      :wraphotitem    => [WM_NOTIFY, TBN_WRAPHOTITEM, 'xs', NMTBWRAPHOTITEM],
+#      :dupaccelerator => [WM_NOTIFY, TBN_DUPACCELERATOR, 'xs',],
+#      :wrapaccelerator=> [WM_NOTIFY, TBN_WRAPACCELERATOR, ],
+    }
+    DefaultEvents = []
+    
+    attr_reader :_infotips, :_systembitmaps
+    
+    def initialize(*args)
+      super
+      @_classname = "ToolbarWindow32"
+      @_buttons = [] #Collection.new
+      @_infotips = {}
+      @_acceptable_events = PreDefinedEvents.dup
+      @_systembitmaps = {:noimage=>I_IMAGENONE}
+    end
+    #
+    def idcmd=(id)
+      parent.set_msgtranslator(WM_NOTIFY) unless parent.get_msgtranslator(WM_NOTIFY)
+      parent.register_event(WM_SIZE, '__toolbar_resize__', 'ii', self)
+      parent.register_event(id, WM_NOTIFY, TBN_GETINFOTIP, "__getinfotip__", 'xi', 
+                                                  self) if (self.style & TBSTYLE_TOOLTIPS) != 0
+      super
+    end
+    #
+    def create()
+      if @controls
+        def @controls.receiver=(r)
+          @receiver = r
+        end
+        @controls.receiver = parent
+      end
+      super
+      SendMessage(TB_BUTTONSTRUCTSIZE, TBBUTTON::Size, 0)
+      self.imagelist = @__imagelist if @__imagelist
+      self.extendedstyle = @__extendedstyle if @__extendedstyle
+      @_buttons.each_with_index{|btn, idx|
+        SendMessage(TB_INSERTBUTTON, idx, btn._tbbutton)
+        if @controls && (ctl=@controls.find{|i| i.__associated_toolbar_id == btn.idcmd})
+          ctl.move(btn.rect.left, 0)
+        end
+      } if @_buttons
+      autosize
+      self.tooltips = @__tooltips if @__tooltips
+      @__imagelist = @__extendedstyle = @_buttons = @__tooltips = nil
+    end
+    
+    # Inserts a toolbar button or control at the specified index and argument.<br>
+    # If an array of [name, ibitmap, text=nil, style=0, state=0, options...] given, inserts a toolbar button.<br>
+    # If a symbol of :sep geven, inserts separator.<br>
+    # And if a WinControl given, inserts a control in this toolbar control.
+    def insert(idx, arg) #; dpp idx, arg
+      if arg.is_a?(Array) && arg[0].is_a?(Symbol)
+        tbb = Toolbar::Button[*arg]
+      elsif arg.is_a?(Toolbar::Button)
+        tbb = arg
+      elsif arg.is_a?(Symbol)
+        raise ArgumentError, "Symbol must be `:sep'", caller(1) if arg != :sep
+        tbb = Toolbar::Button[:separator, -1, nil, BTNS_SEP]
+      elsif arg.is_a?(WinControl)
+        @controls ||= Controls.new(self, parent)
+        tbb = Toolbar::Button[arg.name, arg.w, nil, BTNS_SEP]
+        @controls << arg
+        class << arg
+          attr_accessor :__associated_toolbar_id
+        end
+        self._add_accessor(arg, arg.name)
+      else
+        raise ArgumentError, sprintf("Unknown argument: %p", arg)
+      end 
+      tbb.idcmd = parent.new_control_id
+      tbb.owner = self
+      arg.__associated_toolbar_id = tbb.idcmd if arg.respond_to?(:__associated_toolbar_id)
+      topwin = get_toplevel_win()
+      topwin.set_msgtranslator(WM_COMMAND) unless topwin.get_msgtranslator(WM_COMMAND)
+#      parent.set_msgtranslator(WM_COMMAND) unless parent.get_msgtranslator(WM_COMMAND)
+      if tbb.style!=BTNS_SEP;
+        topwin.register_event(tbb.idcmd, WM_COMMAND, BN_CLICKED, "#{tbb.name}_clicked", "h")
+#        parent.register_event(tbb.idcmd, WM_COMMAND, BN_CLICKED, "#{tbb.name}_clicked", "h")
+      end
+      _add_accessor(tbb, tbb.name)
+      if alive? 
+        SendMessage(TB_INSERTBUTTON, idx, tbb._tbbutton)
+        if @controls
+          @controls.each{|i|
+            SendMessage(TB_GETRECT, i.__associated_toolbar_id, rc=RECT.new)
+            i.x = rc.left
+          }
+        end
+        autosize
+      else
+        @_buttons.insert(idx, tbb)
+      end
+      tbb
+    end
+    
+    # Retreives index of a specified object in this toolbar control. <br>
+    # An object can be a Toolbar::Button or a WinControl.
+    def index(obj)
+      if alive?
+        SendMessage(TB_COMMANDTOINDEX, obj.idcmd, 0)
+      else
+        @_buttons.index(obj)
+      end
+    end
+    
+    # Deletes a specified object in this toolbar control.<br>
+    # An object can be a Toolbar::Button or a WinControl.
+    # If no argument given, deletes this toolbar control.
+    def delete(obj=nil)
+      return super() unless obj
+      if alive?
+        idx = self.index(obj)
+        SendMessage(TB_DELETEBUTTON, idx, 0)
+        _delete_accessor(obj.name, obj)
+        if @controls
+          ctl = @controls[obj.name]
+          @controls.delete(ctl) if ctl
+          @controls.each{|i|
+            SendMessage(TB_GETRECT, i.__associated_toolbar_id, rc=RECT.new)
+            i.x = rc.left
+          }
+        end
+      else
+        @_buttons.delete(obj) if @_buttons
+      end
+    end
+    
+    # Adds the multiple arguments at last of this toolbar contol.
+    # Each of arguments can be an argument when inserting in this toolbar control.
+    def <<(*arg)
+      arg = arg[0] if arg[0].is_a?(Array) || arg.size==1
+      if arg.is_a?(Array) && !arg[0].is_a?(Symbol)
+        arg.each{|i| insert(self.buttoncount, i)}
+      else
+        insert(self.buttoncount, arg)
+      end
+    end
+    
+    # Retreives a specified index of object in this toolbar.
+    # Return value may be a Toolbar::Button or a WinControl.
+    def [](idx)
+      if alive?
+        tbb = TBBUTTON.new
+        SendMessage(TB_GETBUTTON, idx, tbb)
+        idcmd2ref(tbb.idCommand)
+      else
+        @_buttons[idx]
+      end
+    end
+    
+    # []=(index, count=1, *args)
+    # Inserts and replaces the multiple arguments at last of this toolbar contol.
+    # Each of arguments can be an argument when inserting in this toolbar control.
+    def []=(idx, *args)
+      num = args[0].is_a?(Integer) ? args.shift : 1
+      num.times{self._delete(self[idx])}
+      if args[0].is_a? Array
+        args[0].each_with_index{|v, i| self.insert(idx+i, v)}
+      else
+        args.each_with_index{|v, i| self.insert(idx+i, v)}
+      end
+    end
+    
+    # each(){|objct| ... }
+    # Performs the block for each <i>object</i> in this toolbar control as a block parameter.<br>
+    # The given parameter will be a Toolbar::Button or a WinControl.
+    def each()
+      self.buttoncount.times{|i|
+        yield self[i]
+      }
+    end
+    
+    # Retreives an object in this toolbar control from specified <i>id</i>.
+    def idcmd2ref(id)
+      if alive?
+        @_accessors.each{|k, v|
+          if v.is_a?(Array)
+            v.each{|i| return i if i.idcmd==id}
+          else
+            return v if v.idcmd==id
+          end
+        }
+        nil
+      else
+        @_buttons.find{|i| i.idcmd == id}
+      end
+    end
+    
+    # Retreives extended styles for this toolbar control. 
+    def extendedstyle() 
+      alive? ? SendMessage(TB_GETEXTENDEDSTYLE, 0, 0) : @__extendedstyle.to_i
+    end
+    # Sets the extended styles for this toolbar control. 
+    def extendedstyle=(xstyle)
+      alive? ? SendMessage(TB_SETEXTENDEDSTYLE, 0, xstyle) : @__extendedstyle = xstyle
+    end
+    
+    # Determines where a point lies in this toolbar control. 
+    def hittest(x, y) 
+      SendMessage(TB_HITTEST, 0, POINT[x, y])
+    end
+    
+    # Retrieves the current width and height of toolbar buttons, in pixels.
+    def buttonsize() 
+      SPLITPARAM(SendMessage(TB_GETBUTTONSIZE, 0, 0))
+    end
+    # Sets the size of buttons on a toolbar.
+    def buttonsize=(arg) 
+      w, h = arg
+      SendMessage(TB_SETBUTTONSIZE, 0, MAKELPARAM(w, h))
+      autosize
+    end
+    
+    # Retrieves a count of the buttons currently in this toolbar. 
+    def buttoncount() 
+      alive? ? SendMessage(TB_BUTTONCOUNT, 0, 0) : @_buttons.size
+    end
+    
+    # Causes this toolbar to be resized. 
+    def autosize() 
+      SendMessage(TB_AUTOSIZE, 0, 0)
+    end
+    
+    # each_buttons(){|button| ... }
+    # Performs the block for each <i>button</i> in this toolbar control as a block parameter.<br>
+    # The given parameter will be a Toolbar::Button.
+    def each_buttons()
+      self.buttoncount.times{|i| yield self[i]} if block_given?
+    end
+    
+    # Adds one or more images to the list of button images available for this toolbar. 
+    def addbitmap(bmp, n=0)
+      if SendMessage(TB_GETIMAGELIST, 0, 0) != 0
+        raise RuntimeError, "Imagelist was already set, so cannot run this method.", caller(2)
+      end
+      if bmp.is_a? TBADDBITMAP
+        hbitmap = bmp
+      elsif bmp.is_a? Integer
+        hbitmap = TBADDBITMAP[nil, bmp]
+      elsif bmp.is_a? RWin::Imagelist
+        h = bmp.getimageinfo(0)[2][3]
+        n = bmp.count
+        cv = RWin::Canvas.new(h * n, h, RWin::API.getSysColor(30))
+        n.times{|i| cv.drawImagelist(bmp, i, i*h, 0)}
+        hbitmap = TBADDBITMAP[nil, cv.hbitmap(self)]
+      elsif bmp.is_a? RWin::Canvas
+        n = bmp.width / bmp.height
+        hbitmap = TBADDBITMAP[nil, bmp.hbitmap(self)]
+      else
+        raise ArgumentError, "argument must be Integer, Imagelist or Canvas", caller(2)
+      end
+      SendMessage(TB_ADDBITMAP, n, hbitmap)
+    end
+    
+    API.loadlib "Comctl32.dll"
+    API.defun "ImageList_GetIconSize(himl, pcx, pcy)"
+    API.defun "ImageList_Destroy(HIMAGELIST himl)"
+    
+    # Retrieves the image list that the toolbar uses to display buttons in their default state. 
+    def imagelist()
+      if alive?
+        himl = SendMessage(TB_GETIMAGELIST, 0, 0)
+        if ret=APP.hrsc2ref(himl)
+          ret
+        elsif himl!=0
+          pcx = API::DWORD[1]
+          pcy = API::DWORD[1]
+          API.ImageList_GetIconSize(himl, pcx, pcy)
+          case pcy[0]
+          when 24
+            :systemlarge
+          when 16
+            :systemsmall
+          else
+            nil
+          end
+        else
+          nil
+        end
+      else
+        @__imagelist
+      end
+    end
+    
+    # Sets the image list that the toolbar uses to display buttons in their default state.
+    def imagelist=(il)
+      if self.alive?
+        if il==:systemsmall
+          return if imagelist==:systemsmall
+          raise "System image must be set initially." if imagelist || @__systemimagelist
+          @_systembitmaps = {:noimage=>I_IMAGENONE}
+          offset = SendMessage(TB_ADDBITMAP, 0, TBADDBITMAP[HINST_COMMCTRL, IDB_STD_SMALL_COLOR])
+          StdBitmapSymbols.each{|k, v| @_systembitmaps[k] = offset + v}
+          offset = SendMessage(TB_ADDBITMAP, 0, TBADDBITMAP[HINST_COMMCTRL, IDB_VIEW_SMALL_COLOR])
+          ViewBitmapSymbols.each{|k, v| @_systembitmaps[k] = offset + v}
+          offset = SendMessage(TB_ADDBITMAP, 0, TBADDBITMAP[HINST_COMMCTRL, IDB_HIST_SMALL_COLOR])
+          HistBitmapSymbols.each{|k, v| @_systembitmaps[k] = offset + v}
+          @__systemimagelist = [:systemsmall, SendMessage(TB_GETIMAGELIST, 0, 0)]
+        elsif il==:systemlarge
+          return if imagelist==:systemlarge
+          raise "System image must be set initially." if imagelist || @__systemimagelist
+          @_systembitmaps = {:noimage=>I_IMAGENONE}
+          offset = SendMessage(TB_ADDBITMAP, 0, TBADDBITMAP[HINST_COMMCTRL, IDB_STD_LARGE_COLOR])
+          StdBitmapSymbols.each{|k, v| @_systembitmaps[k] = offset + v}
+          offset = SendMessage(TB_ADDBITMAP, 0, TBADDBITMAP[HINST_COMMCTRL, IDB_VIEW_LARGE_COLOR])
+          ViewBitmapSymbols.each{|k, v| @_systembitmaps[k] = offset + v}
+          offset = SendMessage(TB_ADDBITMAP, 0, TBADDBITMAP[HINST_COMMCTRL, IDB_HIST_LARGE_COLOR])
+          HistBitmapSymbols.each{|k, v| @_systembitmaps[k] = offset + v}
+          @__systemimagelist = [:systemlarge, SendMessage(TB_GETIMAGELIST, 0, 0)]
+        elsif il.is_a? RWin::Imagelist
+          hi = il._himagelist
+          SendMessage(TB_SETIMAGELIST, 0, hi)
+        elsif il.nil?
+          SendMessage(TB_SETIMAGELIST, 0, 0)
+        else
+          raise ArgumentError, "Argument must be Imagelist or :systemsmall or :systemlarge"
+        end
+      else
+        @__imagelist = il
+      end
+    end
+    
+    # Associates a tooltip control with a toolbar.<br>
+    # Deprecated. Use `TBSTYLE_TOOLTIPS' style and `Tip#infotip=' method instead.
+    def tooltips=(ttp) 
+      if alive?
+        SendMessage(TB_SETTOOLTIPS, ttp ? ttp._hwnd : 0, 0)
+      else
+        @__tooltips = ttp
+      end
+    end
+    
+    protected
+    def _apply_options(arg)
+      if st = WinStyles[arg]
+        self.style |= st
+      end
+      if xst = WinExStyles[arg]
+        self.extendedstyle |= xst
+      end
+      if tbxst=TbExtendedStyles[arg]
+        self.extendedstyle |= tbxst
+      end
+      super
+    end
+    
+    private
+    def __toolbar_resize__(wp, lp)
+      SendMessage(WM_SIZE, wp, lp) if alive?
+    end
+    def __getinfotip__(lparam)
+      infotip = NMTBGETINFOTIP.wrap_pointer(lparam)
+      return unless infotip.hdr.idFrom==idcmd
+      txt = @_infotips[infotip.iItem]
+      if txt
+        infotip.pszText = txt
+        infotip.cchTextMax = txt.size
+      end
+    end
+  end
+end