Sign in Join
FPDoc Onlineexperiment

TToolButtonStyle enumeration

In unit ComCtrls

Enumerated type with values representing the display styles and behaviors for buttons on a TToolBar control.

Declaration

pascal
TToolButtonStyle = (tbsButton,tbsCheck,tbsDropDown,tbsSeparator,
 tbsDivider,tbsButtonDrop)

Description

Values in TToolButtonStyle indicate the visual display for a tool button and its behavior when clicked. TToolButtonStyle is the type used to implement the Style property in the TToolButton class.

See also

Example: ttoolbutton.pas

pascal
{ To use this example, create a new application and add the example code
  to the unit. Remember to add the ComCtls unit in the uses clause. }

procedure AddButtons(ToolBar: TToolBar; const ButtonCaptions: array of String);
var
  i: integer;
begin
  for i := 0 to High(ButtonCaptions) do
  begin
    with TToolButton.Create(ToolBar) do
    begin
      Parent := ToolBar;
      Caption := ButtonCaptions[i];
      if (ButtonCaptions[i] = '|') then
        Style := tbsSeparator
      else
        Style := tbsButton;
      AutoSize := True;
    end;
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
  ToolBar: TToolBar;
begin
  ToolBar := TToolBar.Create(Self);
  ToolBar.Parent := Self;
  ShowMessage(IntToStr(ToolBar.ButtonCount));
  AddButtons(ToolBar, ['New', 'Save', '|', 'Cut', 'Copy', 'Paste']);
  ToolBar.ShowCaptions := True;
  ToolBar.Height := 40;
  ToolBar.ButtonWidth := 75;
  ShowMessage(IntToStr(ToolBar.ButtonCount));
end;

Values

tbsButtonThe button appears and functions like a normal button.
tbsCheckClicking the button toggles the Down property. Once selected, the button remains selected until clicked again.
tbsDropDownThe button displays a downwards-pointing arrow (suitable for accessing a drop-down menu).
tbsSeparatorThe button appears as an empty space on the toolbar (used to separate other controls).
tbsDividerThe button appears as a vertical line on the toolbar (used to separate other controls).
tbsButtonDrop

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.