TdxBar, TdxBars.Add, TdxBarItemLink, TdxBarItemLink.Item, TdxBarColorCombo, TdxBarButton Example

• Jul 29, 2021

This example requires a form with a TdxBarManager and a TdxBarButton object. The following code adds a new toolbar to the form and creates a button with a color combo. The procedures to add the new item controls to the toolbars are similar to this code:

var
  ABarManager : TdxBarManager;
  ABar : TdxBar;
  NewButton : TdxBarButton;
  NewColorCombo : TdxBarColorCombo;
  NewItemLink : TdxBarItemLink;
begin
  // Gets the bar manager
  ABarManager := GetBarManagerByForm(Form1);
  // New toolbar
  ABar := ABarManager.Bars.Add;
  ABar.Caption := 'New toolbar';
  ABar.DockingStyle := dsTop;
  ABar.FloatLeft := Form1.Left+(Form1.Width div 2);
  ABar.FloatTop :=  Form1.Height div 2;
  // New Button
  NewButton := TdxBarButton.Create(Form1);
  // Sets the OnClick event handler.
  // The OnClick1 procedure has been already defined.
  NewButton.OnClick := OnClick1;
  // Creates and adds the new item control to the toolbar
  NewItemLink := ABar.ItemLinks.Add;
  NewItemLink.Item := NewButton;
  NewButton.Caption := 'NewButton';
  // New Color Combo
  NewColorCombo := TdxBarColorCombo.Create(Form1);
  // Creates and adds the new item control to the toolbar
  NewItemLink := ABar.ItemLinks.Add;
  NewItemLink.Item := NewColorCombo;
  NewColorCombo.Color := clNavy;
  // Makes the toolbar visible
  ABar.Visible := True;
end;