Изменение параметров шрифта

Цель работы — создать программу, изменяющую параметры текста путем нажатия соответствующих кнопок (рис. 33).

Рис. 33. Окно разработанной программы

Поместим на форму надпись Label и две кнопки Button. В списке свойств метки есть свойство ParentColor. По умолчанию это свойство имеет значение True, т. е. цвет метки будет таким же, как и цвет объекта, которому принадлежит метка. Если изменить цвет метки, то свойство ParentColor изменит свое значение на False. Введем текст «Текст» в значение Caption метки. Начальное значение размера шрифта (например, 24) можно установить в Инспекторе объектов (рис. 34).

С помощью событий (нажатия на кнопку) изменяется размер шрифта.

Напишем на одной из кнопок «Увеличить шрифт», на другой — «Уменьшить шрифт» (рис. 35).

Рис. 34. Изменение значения свойства Size компонента Label

Рис. 35. Окно проекта

Перейдем в Инспекторе объектов на вкладку Events и дважды щелкнем по пустому полю справа от слова OnClick. В редакторе кода появится заготовка процедуры, реагирующей на нажатие кнопки:

procedure TForml. ButtonlClick (Sender: TObject);

begin

end;

TForml — это имя класса, в который включена процедура ButtonlClick. Имя процедуры состоит из имени объекта Buttonl и части имени события Onclick. Параметром процедуры является отправитель сообщения. Для написания процедур обработки событий этот параметр используется редко, так что мы пока не будем обращать на него внимания.

Чтобы увеличить размер шрифта, в тело процедуры вставим одну строчку кода:

Labell.Font.Size := Labell.Font.Size*2;

При каждом нажатии кнопки размеры метки будут увеличиваться в два раза. Но положение левого верхнего угла метки останется неизменным. Из-за этого текст будет уходить за правую границу Формы. При этом автоматически появятся полосы прокрутки.

Ограничим поэтому максимальный (а заодно и минимальный) размер шрифта. В раздел implementation добавим две константы:

const MaxSize = 96;

MinSize = 6;

В процедуре TForml. ButtonlClick перед присваиванием добавим проверку:

if Labell.Font.Size*2 <= MaxSize then Labell.Font.Size := Labell.Font.Size*2;

Чтобы не писать каждый раз префикс Labell. Font, можно воспользоваться оператором with:

with Labell. Font do

begin

if Size * 2 <= MaxSize then Size := Size * 2;

end;

Аналогичную процедуру легко написать и для второй кнопки.

Запустим проект и убедимся, что кнопки увеличения и уменьшения размера шрифта работают правильно, т. е. когда размер шрифта достигает предельного значения, дальнейшего изменения размера не происходит, —нажатия на кнопку не приводят ни к каким действиям. Но тогда не надо и нажимать на кнопку. Попробуем в этой ситуации ее «выключить».

Для этого необходимо установить значение свойства кнопки Enabled равным False по результатам прогноза размера надписи «на шаг вперед»:

with Labell. Font do begin

if Size * 2 < = MaxSize then Size := Size * 2; if Size * 2 > MaxSize then Buttonl. Enabled := False;

end;

После этого надо восстановить работоспособность кнопки Buttonl. Достаточно выполнить присваивание Buttonl. Enabled := True.

Кроме этого, следует учесть, что если кнопка Buttonl выключена, то включить ее можно только с помощью кнопки Button2, и наоборот. Поэтому в процедуру TForml. Button2Click добавляется строка: Buttonl. Enabled := True;

Текст программы

implementation

const

MaxSize = 96;

MinSize = 6;

{$R *.dfm}.

procedure TForml. ButtonlClick (Sender: TObject); begin

if Labell.Font.Size * 2 <= MaxSize then Labell.Font.Size := Labell.Font.Size * 2; if Labell.Font.Size * 2 > MaxSize then Buttonl. Enabled := False;

Button2.Enabled := True; end;

procedure TForml. Button2Click (Sender: TObject); begin

if Labell.Font.Size div 2 >= MinSize then Labell.Font.Size := Labell.Font.Size div 2; if Labell.Font.Size div 2 < MinSize then Button2. Enabled := False;

Buttonl.Enabled := True; end;

end.