![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Компонент 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;
|