3. Панель переключателей RadioGroup

и список выключателей CheckListBox

Создадим приложение, позволяющее менять характеристики текста, набранного в строке ввода Edit.

Решение

Для изменения начертания, размера и цвета шрифта будем использовать панели переключателей, а для изменения атрибутов шрифта (зачеркнутый, подчеркнутый) будем использовать список выключателей.

1. Создадим новую папку, например D:\MyProject\RadioCheck.

2. Откроем новое приложение с помощью команды главного меню File | New | Application.

3. На форме Form1 разместим компоненты: два компонента Label, три компонента RadioGroup, компонент CheckListBox. Компонент CheckListBox1 берем со страницы Additional Палитры Компонентов, осталь­ные - со страницы Standard.

4. Свойствам Caption компонентов RadioGroup1, RadioGroup2 и RadioGroup3 зададим значения ‘Начертание’, ‘Размер’ и ‘Цвет’ соответственно.

5. Войдем в свойство Items для каждого указанного выше компонента и щелкнем по кнопке с тремя точками. В появившемся окне StringList editor следует ввести имена переключателей. Для каждого переключателя выделяется одна строка.

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

обычный

курсив

полужирный

полужирный курсив

Для компонента RadioGroup2 :

8

10

12

14

Для компонента RadioGroup3:

черный

зеленый

красный

синий

После завершения ввода нажимаем кнопку ОК.

6. Для всех трех рассматриваемых компонентов установим свойство ItemIndex рав­ным 0. Это означает, что в начале работы программы выделенным переключате­лем будет первый.

7. Для меток Label1 и Label2 свойство Caption установим равным ‘Атрибуты’ и ‘Об­разец’ соответственно.

8. Для компонента CheckListBox1 выберем свойство Items и введем названия вык­лючателей:

Зачеркнутый

Подчеркнутый

9. Для компонента Edit1 установим свойство Text равным: ‘АаВвБбФф’.

10. Перейдем к написанию обработчиков событий. Выполним двойной щелчок на ком­поненте RadioGroup1. В появившемся окне Редактора Кода введем операторы для обработчика события OnClick, которое возникает при выделении нового переклю­чателя на панели:

case RadioGroup1.ItemIndex of

0: Edit1.Font.Style := [ ];

1: Edit1.Font.Style := [fsltalic];

2: Edit1.Font.Style := [fsBold];

3: Edit1.Font.Style := [fsltalic,fsBold];

end;

CheckListBox1ClickCheck(Self);

Вызов обработчика CheckListBox1ClickCheck, который будет создан чуть позже, позволит нам учесть характеристики стиля шрифта, задаваемые при помощи списка выключателей CheckListBox1.

11. Для компонента RadioGroup2 введем следующие операторы в обработчик собы­тия

OnClick:

case RadioGroup2.ItemIndex of

0: Edit1.Font.Size := 8;

1: Edit1.Font.Size := 10;

2: Edit1.Font.Size := 12;

3: Edit1.Font.Size := 14;

end

12. Для компонента RadioGroup3 введем такие операторы в обработчик события

OnClick:

case RadioGroup3.ItemIndex of

0: Edit1.Font.Color := clBlack;

1: Edit1.Font.Color := clGreen;

2: Edit1.Font.Color := clRed;

3: Edit1.Font.Color := clBlue; end

13. Для компонента CheckListBox1 напишем обработчик события OnClickCheck, ко­торое возникает, когда изменяется состояние какого-либо выключателя:

if CheckListBoxl.Checked[0]

then Edit1.Font.Style := Edit1.Font.Style + [fsStrikeOut]

else Edit1.Font.Style := Edit1.Font.Style - [fsStrikeOut];

if CheckListBox1.Checked[ 1 ]

then Edit1.Font.Style := Edit1.Font.Style + [fsUnderline]

else Edit1.Font.Style := Edit1.Font.Style -[fsUnderline];

14. Сохраним приложение, выполнив команду главного меню File|Save All. Запус­тим приложение на выполнение с помощью команды Run|Run.

Выделяя различные переключатели или задавая тот или иной выключатель, будем изменять характеристики текста в строке ввода.

Полный текст сформированного модуля.

Текст модуля Unit1.pas

unit Unit1;