Комбинированный список в инструментальной линейке

Существует несколько распространенных приложений, которые используют комбинированные списки в инструментальных линейках для того, чтобы показывать списки стилей, шрифтов, размеров шрифта и т. д. Используем в следующем задании такой подход: создадим комбинированный список, чтобы позволить пользователю выбирать шрифт и окно редактирования с прокруткой компонентов (SpinEdit) для установки размера шрифта, каждый с собственной меткой. Два новых компонента и их метки имеют соответствующее сообщение в свойстве Hint. Комбинированный список заполняется, когда начинает работать приложение, копируя названия текущих шрифтов из объекта Screen:

procedure TForm1.Form1Create (Sender:TObject);

Var

I:Integer;

Begin

for I:= 1 to Screen.Fonts.Count

do ComboBox1.Items.Add Screen.Fonts.Strings[I-1]);

{скопируйте название шрифта в комбинированный список}

ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf(Label1.

Font.Name);{выберите текущий шрифт}

End;

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

procedure TForm1.ComboBox1Change(Sender:TObject);

Begin

Label1.Font.Name:=

ComboBox1.Items[ComboBox1.ItemIndex];

End;

Для управляющего элемента редактирования с прокруткой:

procedure TForm1.SpinEdit1Change Sender:TObject);

Begin

if not (SpinEdit1.Text = ‘ ‘)

then Label1.Font.Size:= SpinEdit1.Value;

End;