Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Существует несколько распространенных приложений, которые используют комбинированные списки в инструментальных линейках для того, чтобы показывать списки стилей, шрифтов, размеров шрифта и т. д. Используем в следующем задании такой подход: создадим комбинированный список, чтобы позволить пользователю выбирать шрифт и окно редактирования с прокруткой компонентов (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;
Дата публикования: 2014-10-25; Прочитано: 384 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!