8. Дополнительные компоненты Компонент tBitBtn
TBitBtn |
|
Данный компонент является разновидностью TButton и позволяет расположить на ее поверхности наряду с текстом растровое изображение. В дополнение к свойствам TButton имеются следующие свойства:
Glyph: TBitmap
- с помощью этого свойства можно определить растровое изображение, помещаемое на поверхность кнопки;
Kind: TBitBtnKind
- это свойство позволяет выбрать одну из разновидностей кнопок, если в программе необходимо реализовать стандартные действия (прервать, закрыть, игнорировать и т.д.).
Компонент tSpeedButton
TSpeedButton |
|
Эта кнопка отличается от TBitBtn следующим:
в ней не предусмотрен вывод надписи;
она может фиксироваться в утопленном состоянии;
не может использоваться для закрытия модального окна (ShowModal).
Свойством
AllowAllUp: Boolean
- определяется поведение кнопки
Кнопка TSpeedButton может использоваться как одиночная, так и в группе. Чтобы установить возможность использования кнопки отдельно или в группе можно воспользоваться свойством:
GroupIndex.
При этом, если этому свойству установлено значение
GroupIndex = 0; – одиночная кнопка;
GroupIndex <>0;– кнопка в группе.
Проверить состояние кнопки можно с помощью логического свойства
Down:
Если этому свойству установлено значение
Down : = true; – кнопка нажата (утоплена);
Down : = false; – кнопка отжата.
Компонент 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;
9. Организация стандартных диалогов
Windows поддерживает диалог с помощью типовых диалоговых окон (выбор файла, шрифта, цвета и т.д.). В Delphi реализованы классы и объекты, которые позволяют создавать и использовать такие окна. Работа со стандартными диалоговыми окнами осуществляется в следующей последовательности:
необходимо разместить на форме соответствующую диалоговую компоненту и настроить ее свойства;
вызов в обработчике события стандартного диалога осуществляется с помощью метода Execute. Этот метод представляет собой функцию, которая отображает на экране диалоговое окно и в конце диалога возвращает результат true или false.
результаты выполнения диалога используются в дальнейшем в программе с помощью свойств диалогового окна.