Компонент Окно выбора шрифта

(TFontDialog)

Компонент предназначен для вызова стандартного диалогового окна выбора шрифта, доступного в системе. В соответствии с полями этого окна компонент имеет набор свойств, которые приведены ниже.

Таблица 4.29. Свойства класса TFontDialog

СвойствоНазначение

Device Устройство, для которого отображается список доступных шрифтов. Возможные

значения — fdScreen (экран), fdPrinter (принтер) и fdBoth (как экран, так и принтер)

Font Выбранный пользователем шрифт (тип TFont)

MaxFontSize Максимальный размер шрифта, ограничивающий содержимое показываемого

списка шрифтов

MinFontSize Минимальный размер шрифта, ограничивающий содержимое показываемого

списка шрифтов

Options Дополнительные характеристики внешнего вида диалогового окна

Если, например, на форме имеется надпись Labell, то при щелчке на кнопке Buttonl следующий обработчик вызовет диалоговое окно выбора шрифта. После того как пользователь сделает выбор, шрифт, которым сделана надпись, изменится.

procedure TForml.ButtonlClick(Sender: TObject);

begin

ifFontDialogl.Execute then

Labell.Font.Assign fFontDialogl.Font);

end;

Компонент Окно выбора цвета (TColorDialog)

С помощью данного компонента вызывается стандартное диалоговое окно выбора цвета (рис. 4.1).

Свойство Color (тип ТСоЬг) содержит выбранный пользователем цвет, а свойство CustomColors (тип TStnngs) хранит в текстовом формате описание дополнительных пользовательских цветов. Цвет в этом формате задается шестью символами, определяющими в шестнадцатеричном виде значение цвета в соответствии с требованием цветовой системы RGB. Каждый байт задается двумя символами, например FFFFFF или 08ЕЕ08. Имеется такж е свойство Options, присутствующее у всех подобных компонентов и позволяющее выполнять тонкие специфические настройки работы окна.

В следующем примере демонстрируется, как при щелчке на кнопке Buttonl происходит вызов окна выбора цвета. Выбранный цвет будет использован для изменения цвета фигуры Shapel.

procedure TForml.ButtonlClick(Sender: TObject);

begin

ifColorDialogl.Execute

then Shapel.Color := ColorDialogl.Color;

end;

Пример приложения для тестирования

Type vopr=record

Vo:string[40];Ot1:string[40];t2:string[40];Ot2:string[40];P:byte;End;

A:array[1..3] of vopr; I,bal:integer;

Procedure tform1.formcreate(sender:tobject);

Begin i:=0;bal:=0;

A[1].vo:=’2x2=?’;

A[1].ot1:=’22’;

A[1].ot2:=’4’;

A[1].ot3:=’6’;

A[1].p:=2;

A[2].vo:=’2x3=?’;

A[2].ot1:=’6’;

A[2].ot2:=’4’;

A[2].ot3:=’23’;

A[2].p:=1;

A[3].vo:=’2x4=?’;

A[3].ot1:=’24’;

A[3].ot2:=’4’;

A[3].ot3:=’8’;

A[3].p:=3;

end;

Procedure tform1.button1click(sender:tobject);

Begin

Radiogroup1.itemindex:=-1;

I:=i+1;

Radiogroup1.items[0]:=a[i].ot1;

Radiogroup1.items[1]:=a[i].ot2;

Radiogroup1.items[2]:=a[i].ot3;

If i>3 then begin

Button1.enabled:=false;

Label1.caption:=inttostr(bal);

End;

end;

Procedure tform1.radiogroup1click(sender:tobject);

Begin

If radiogroup1.itemindex+1=a[i].p then

Bal:=bal+1;

end;

statusbar1.panels[0].text:=timetostr(time());