Работа 3. Создание главного и вспомогательного меню. Использование зависимых и независимых переключателей.
Пример 3.1 Сконструируйте своеобразный текстовый редактор, изображенный на рисунке 1). Содержание пунктов главного меню раскрыто на рисунках 2) и 3). Все изображенные на форме элементы управления должны действовать по назначению. Вспомогательное меню создано для компонента RichEdit1.
1) .
3)
Решение.
Программные строки для пункта файл главного меню:
Очистить или создать: RichEdit1.Lines.Clear;
Открыть: RichEdit1.Lines.LoadFromFile('c:\primer3.rtf');
Сохранить: RichEdit1.Lines.SaveToFile('c:\primer3.rtf');
Для распечатки текста можно использовать диалоговое окно печати. Для этого установите на форму компонент PrintDialog из страницы Dialogs палитры компонентов и напишите для пункта ПЕЧАТЬ код следующего содержания: if PrintDialog1.Execute then RichEdit1.Print(RichEdit1.Text);
Для выхода из программы дают команду закрытия формы: Form1.Close;
Программные строки для пункта настройки главного меню:
например: для цвета - красный: RichEdit1.SelAttributes.Color:=clRed;
для стиля - курсив: RichEdit1.SelAttributes.Style:=[fsItalic];
Упражнение 1.1 По аналогии создайте обработчики для остальных пунктов главного меню.
Упражнение 1.2 Создайте вспомогательное меню для компонента RichEdit. Например, с такими же командами как в пункте: настройки главного меню.
Пример 3.2 Сконструируйте форму изображенную на рисунке. Напишите обработчики для компонентов в нижней части окна. Их действия относятся к надписи на панели: «Атрибуты шрифта».
Для переключателя стиля «полужирный» (см. рис.) необходимо написать следующий обработчик OnClick:
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then panel2.Font.Style:=[fsbold] else panel2.Font.Style:=[];
end;
Упражнение 2.1. Напишите обработчики для переключателей «курсив», «подчеркнутый», «зачеркнутый».
Для выбора шрифта (см. рис.) используются группа из трех зависимых переключателей. Обработчик имеет вид:
procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
if RadioGroup2.ItemIndex=0 then panel2.Font.Name:='Arial';
if RadioGroup2.ItemIndex=1 then panel2.Font.Name:='Times New Roman';
if RadioGroup2.ItemIndex=2 then panel2.Font.Name:='Symbol';
end;
Упражнение 2.2. Напишите аналогичный обработчик для переключателей цвета.
Для установки размера шрифта используется кнопка «ОК», которая считывает размер из окна Edit. Напишите обработчик OnClick для кнопки, следующего содержания:
panel2.Font.Size:=StrToInt(Edit1.Text);
Упражнение 2.3. Установите свойства Align и Alignment для всех компонентов формы этого примера в соответствии с приведенным рисунком.
Упражнение 2.4. Установите на панель с надписью «Атрибуты шрифта» компонент Edit и повторите решение этого примера.
Упражнение 2.5. Установите на панель с надписью «Атрибуты шрифта» компонент RichEdit и повторите решение этого примера. Объясните разницу в результатах упражнений 4 и 5.