Click above to get retro games delivered to your door ever month!

 WToolbar               Tool bar (bitmapped button bar) class
 ----------------------------------------------------------------------------
 WToolbar
 Tool bar (bitmapped button bar) class
 ----------------------------------------------------------------------------
 
 Properties
 ClassStyle     The window's class style (a combination of CS_* values)
 Height         The height of the window, in pixels.
 Messages       An array of the messages (WM_*) handled by the window
 Text           The window's status message
 Visible        A logical controlling whether the window is visible
 WndProc        A code block to handle messages (WM_*) for the window
 WndStyle       The control's usual style (a combination of WS_* values)
 
 Methods
 WToolbar:AddWindow()   For internal use.
 WToolbar:DelWindow()   For internal use.
 WToolbar:Init()        Construct a toolbar object
 WToolbar:Move()        Re-position and/or change size of the toolbar's window
 WToolbar:OnLBtnDown()  Mouse left button click
 WToolbar:OnLBtnUp()    Mouse left button release
 WToolbar:OnMouseMove() Notification of mouse movement
 WToolbar:OnSetFocus()  Input focus gained message
 
 Inherits From
 WWindow
 
 Inherited By
 Nothing.
 
 Description
 This class is used for toolbar windows, used to display
 bitmapped buttons.  These buttons are effectively like short-
 cuts for menu items.
 
 An application can have zero, one, or more toolbars.  A frame
 window handles a toolbar automatically.
 
 Example
 // From SOURCE\OO\MDIBARS.PRG:
 METHOD MyInit(oApp, cTitle) CLASS MyMDIWindow
 local     aButtons
 
 // Here's how to see if a resource exists:
 if FindResource( , "open1", RT_BITMAP) != 0
      aButtons :=                                            ;
      { {10, 3, 25, 22, LoadBitmap( , "open1"), "FileOpen",  ;
           WHelp{"Open a file..."}},                         ;
        {38, 3, 25, 22, LoadBitmap( , "print1"), "FilePrint",;
           WHelp{"Print..."}},                               ;
      // . . .
 else
      aButtons :=                                            ;
      { {10, 3, 25, 22, ReadDIB("f:open1.bmp"), "FileOpen",  ;
           WHelp{"Open a file..."}},                         ;
        {40, 3, 25, 22, ReadDIB("f:print1.bmp"), "FilePrint",;
           WHelp{"Print..."}},                               ;
      // . . .
 endif
 
 super:Init(oApp, cTitle)
 
 ::StatusBar = WStatusBar{self}
 ::ToolBar = WToolBar{self, , , aButtons}
 
 return self
 
 See Also  (press Enter)