Реферат: Программирование. Delphi
Диалог выбора шрифта.
Загрузите опять проект MyEdit и поместите на форму компонент FontDialog. Переместите кнопку Exit вправо и вставьте кнопку с заголовком &Font между кнопками Save As и Exit. В обработчик события OnClick новой кнопки поместите следующий код:
WITH FontDialog1 DO
IF Execute THEN
BEGIN
Memo1.Font:= Font;
Следующую строку поместите в обработчик события OnApply компонента FontDialog:
Memo1.Font:= FontDialog1. Font;
Запустите программу и загрузите файл. С помощью кнопки Font выберите какой-нибудь шрифт. Используя все возможности, создайте самый необычный вариант. Содержимое файла будет отображаться выбранным вами шрифтом с применением указанного размера, стиля и цвета. Опять откройте диалог выбора шрифта и переместите его так, чтобы он не закрывал самого окна редактора. Внесите несколько изменений в окне диалога и щелкните на кнопке Apply (Применить). Изменения станут действительными немедленно, а диалог Font (Шрифт) не закроется. Это упрощает испытание различных возможностей. Обратите внимание, что в этом примере программы, после того как была использована кнопка Apply (Применить), вы никак не сможете отменить внесенные изменения. С другой стороны, это не такая уж и большая беда - если не устраивает только что выбранный шрифт, можно вернуть шрифт, использовавшийся раньше.
Сохраните обновленный проект MyEdit, обладающий теперь возможностью изменять шрифты.
Компонент Memo не обладает способностью отображать больше одного шрифта сразу. Для этого существуют другие компоненты.
Добавим в свою программу диалог выбора цвета.
1. Поместите на новую форму диалог выбора цвета (компонент ColorDialog) и присвойте его свойству Color значение clWhite.
2. Установите свойство Ctl3D формы в False, а в качестве константы цвета также выберите clWhite.
3. Поместите на форму новую кнопку, назовите её Color.
В обработчик события OnClick формы поместите следующие строки:
IF ColorDialog1.Execute THEN
Form1.Color := ColorDialog1.Color;
4. Запустите программу.
Диалог выбора принтера .
Загрузите опять проект MyEdit и поместите на него диалог настройки принтера компонент PrinterSetupDialog). Компонент Bevel расположите таким образом, чтобы осталось место для второго ряда кнопок, где разместите две новые кнопки, оза-аавленные &Print... и P&rint Setup.... Создайте обработчик события OnClick кнопки Print Setup с единственной строкой кода:
PrinterSetupDialog1.Execute;
Запустите программу и щелкните на кнопке Print Setup (кнопка Print пока еще делать ничего не может). Появится диалог.
Подготовка к печати .
Диалог Print Setup (Настройка принтера) используется для выбора и конфигурации принтера. Когда дело дойдет до печати, в действие вступит диалог Print (Печать).
В проект MyEdit добавьте компонент PrintDialog, оставив все его свойства со значениями, установленными по умолчанию. Дважды щелкните на кнопке Print, и замените пару begin-end следующим кодом:
VAR
POutput: TextFile;
N : LongInt;