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

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

Расположите на форме 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

;
 

Другое по теме:

• Как проинсталлировать свои шрифты
• Определение типа используемого шрифта
• PopupComponent и шрифты