Компонент 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;

Дата добавления: 2014-01-07