Компонент TToolBar

TToolBar

Компонент TToolBar – это специальный контейнер для создания инструментальных панелей.

TToolBar используется для расположения в ней кнопок, с помощью которых можно оперативно выполнить нужную команду. Кнопки можно группировать и располагать в несколько рядов.

В компонент TToolBar можно поместить любые другие компоненты.

Пример.

На этапе проектирования для первой кнопки SpeedButton1:

GroupIndex: = 1;

Hint: = ’Переключатель всего

светофора’;

ShowHint: = true;

AllowAllUp: = true;

//чтобы кнопка была с фиксацией

Для кнопок 2, 3, 4:

GroupIndex: = 2;

AllowAllUp: = false;

Hint: = ’цвета светофора’;

ShowHint: = true;

Для компонента PaintBox1:

PaintBox1.Align: = alClient; //на всю панель

В разделе Public создадим переменную ColorBrush типа TColor, для хранения цвета светофора.

Procedure TForm1.FormCreate();

begin

ColorBrush: = clAqua;

Panel.Color: = ColorBrush;

end;

Procedure TForm1.SpeedButton1Click();

begin

if SpeedButton1.Down then Panel1.Color: = clBlue

else Panel1.Color: = clAqua;

ColorBrush: = Panel1.Color;

end;

Procedure TForm1.SpeedButton2Click();

begin

with PaintBox1.Canvas do

begin

Brush.Color: = ColorBrush;

Ellipse (5, 55, 50, 100);

Ellipse (5, 105, 50, 150);

Brush.Color: = clRed;

Ellipse (5, 5, 50, 50);

end;

end;