Управление настройками шрифта

Данный код изменяет стиль шрифта поля редактирования, если оно выбрано. Может быть адаприрован для управления шрифтами в других объектах.

Code:

{

Расположите на форме Edit(Edit1) и ListBox(ListBox1).

Добавьте следующие элементы (Items) к ListBox:

fsBold

fsItalic

fsUnderLine

fsStrikeOut

}

procedure TForm1.ListBox1Click(Sender: TObject);

var

X: Integer;

type

TLookUpRec = record

Name: string;

Data: TFontStyle;

end;

const

LookUpTable: array[1..4] of TLookUpRec =

((Name: 'fsBold'; Data: fsBold),

(Name: 'fsItalic'; Data: fsItalic),

(Name: 'fsUnderline'; Data: fsUnderline),

(Name: 'fsStrikeOut'; Data: fsStrikeOut));

begin

X := ListBox1.ItemIndex;

Edit1.Text := ListBox1.Items[X];

Edit1.Font.Style := [LookUpTable[ListBox1.ItemIndex + 1].Data];

end;

Новые статьи