8. Стандартный диалог для выбора шрифта

Рассмотрим диалоговые окна для задания шрифта. Он расположен на вкладке Dialogs Палитры Компонентов:

Двойным щелчком расположите его на форме. Разместите на форме также обычную кнопку и Label с вкладки Standard. Именно для этого Label'а мы и будем задавать разные шрифты. Стандартные значения для наших компонентов можете оставить без изменения - сейчас это не принципиально. Сделайте двойной щелчок на кнопке для создания заготовки кода. В полученную заготовку напишите следующие строки:

procedure TForm1.Button1Click(Sender: TObject);

begin

//Показываем диалог

FontDialog1.Execute;

//Задаем шрифт для label'а

Label1.Font:=FontDialog1.Font;

end;

Запускаем программу (F9). После запуска мы можем менять шрифт у надписи:

Если цвет нашего Label'а был первоначально красный, то при первом вызове диалогового окна для шрифта будет отмечен не красный цвет, а стандартный:

Для разрешения этой проблемы добавьте следующую строку:

...

Begin

FontDialog1.Font:=Label1.Font;

//Показываем диалог

FontDialog1.Execute;

//Задаем шрифт для label'а

Label1.Font:=FontDialog1.Font;

End;

Теперь все будет нормально.

Упражнения:

Создайте свой проект, используя рассмотренные компоненты на одну из следующих тем (можно предложить свою тему):

1. Анкетирование по какому-либо признаку

2. Тестирование знаний по какой-либо теме

3. Список студентов и их оценки за сессию

4. Блокнот дел по текущему дню

5. Телефонный справочник

6. Заполнение данных о работодателе

7. Расчет квартплаты по внесенным данным квартиросъемщика

8. Подписка на печатные издания

9. Справочник лекарственных средств

10. Регистрация паспорта

11. Получение водительских прав в автошколе

12. Тест по правилам дорожного движения

13. Состав команд России по футболу

14. Составление киноафишы по кинотеатрам

15. Продажа авиабилетов

16. Регистрация абонентов библиотеки

17. Формирование фактуры на приходящий товар

18. Регистрация больных в поликлинике

19. Составление прогноза погоды на неделю, месяц, год

20. Составление программы телепередач на неделю

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