JavaScript Editor js editor     Web development 

Main Page

Creates a custom toolbar.



Use the ToolBar object to create your own toolbars for your applications.

The following list describes the properties of a custom toolbar:

  • Toolbars are always on top.

  • Toolbars automatically dock when they are moved to the edge of the main Visual FoxPro window.

  • When toolbars are not docked, they have a half-height title bar.

  • When the size of a toolbar is changed, the controls are arranged to fit.

  • You can move a toolbar by clicking and dragging in any area of the toolbar that is not a control.

  • Many controls placed on the toolbar do not receive the focus when they are chosen.

  • Access keys in controls placed in a toolbar are disabled.

Although any control can be placed on a toolbar, some controls, such as a list box, may be too large to fit properly in a docked toolbar. These controls can be programmatically removed from the toolbar when the toolbar is docked and replaced with a smaller version of the same control or a different control.

For additional information about creating toolbars, see Designing Menus and Toolbars.


The following example demonstrates how you can create a toolbar from the Toolbar class. Visual FoxPro rearranges the buttons when the toolbar is resized. When the ToolBar object is created, Visual FoxPro automatically places the controls from left to right in the order they are added to the class definition, ignoring the controls' Top and Left properties.

В Copy Code
PUBLIC tbrDesktop
tbrDesktop = CREATEOBJ('myToolBar')

DEFINE CLASS myToolBar AS Toolbar
   ADD OBJECT btnBold AS CommandButton
   ADD OBJECT sep1 AS Separator
   ADD OBJECT btnItalics AS CommandButton
   btnBold.Height = 20
   btnBold.Width = 50
   btnBold.Caption = "Bold"
   btnItalics.Height = 20
   btnItalics.Width = 50
   btnItalics.Caption = "Italic"
   btnItalics.FontBold = .F.
   Left = 1
   Top = 1
   Width = 25

   Caption = "Desktop Attributes"
   PROCEDURE Activate 
      this.btnBold.FontBold = _SCREEN.FontBold
      this.btnItalics.FontItalic = _SCREEN.FontItalic
   PROCEDURE btnBold.Click
      _SCREEN.FontBold = !_SCREEN.FontBold
      This.FontBold =_SCREEN.FontBold
      _SCREEN.FontItalic = !_SCREEN.FontItalic
      This.FontItalic = _SCREEN.FontItalic

See Also

JavaScript Editor js editor     Web development