Компонент TFontDialog

Компонент TColorDialog

TColorDialog

Этот компонент позволяет выбрать стандартный цвет, либо задать собственный. Основным свойством данного компонента является

Color: TColor;

в котором содержится выбранный цвет.

Пример. Пусть на форме расположена кнопка BitBtn1, по нажатию на которую требуется менять цвет панели Panel1.

Procedure TForm1.Button1Click();

begin

if ColorDialog1.Execute then

Panel1.Color:= ColorDialog1.Color;

end;

TFontDialog

С помощью этого компонент можно выбрать шрифт из множества шрифтов Windows.

Свойства компонента TFontDialog задаются множеством:

Device =(fdScreen, fdPrinter);

- указывает, для какого устройства задается шрифт.

Font: TFont;

- содержит описание выбранного шрифта.

Пример. Пусть на форме расположены компоненты SpeedButton1, FontDialog1, Labe1 и ColorDialog1. По нажатию на SpeedButton1 необходимо осуществить последовательно диалоги выбора цвета и шрифта. Пример:

Procedure TForm1.Button1Click();

begin

if ColorDialog1.Execute then

Form1.Color:= ColorDialog1.Color;

if FontDialog1.Execute then

Label1.Font:= FontDialog1.Font;

end;

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