> if N9.Checked then //если флажок установлен
> begin
> N9.Checked:= False; //сбрасываем флажок
> //Отображаем горизонтальную полосу прокрутки
> Memo1.ScrollBars:= ssBoth;
> end
> else begin //если флажок не установлен
> N9.Checked:= True; //устанавливаем флажок
> //убираем горизонтальную полосу прокрутки
> Memo1.ScrollBars:= ssVertical;
> end;
>end;
По этой команде меню мы проверяем, какое состояние сейчас у пункта Формат→Перенос по словам. Если флажок установлен, то мы сбрасываем его и отображаем горизонтальную полосу прокрутки. В противном случае, устанавливаем флажок и убираем горизонтальную полосу прокрутки.
Обработчик события OnClick для пункта Формат→Шрифт:
>procedure TForm1.N10Click(Sender: TObject);
>begin
> //Определяем все настройки шрифта и отображаем их
> //в диалоговом окне
> FontDialog1.Font.Color:= Memo1.Font.Color; //цвет шрифта
> FontDialog1.Font.Style:= Memo1.Font.Style; //стиль
> FontDialog1.Font.Size:= Memo1.Font.Size; //размер
> FontDialog1.Font.Charset:= Memo1.Font.Charset; //кодировка
> FontDialog1.Font.Name:= Memo1.Font.Name; //название шрифта
> if FontDialog1.Execute then
> begin // применяем все выбранные настройки
> Memo1.Font.Color:= FontDialog1.Font.Color;
> Memo1.Font.Style:= FontDialog1.Font.Style;
> Memo1.Font.Size:= FontDialog1.Font.Size;
> Memo1.Font.Charset:= FontDialog1.Font.Charset;
> Memo1.Font.Name:= FontDialog1.Font.Name;
> end;
>end;
Перед тем как открыть диалоговое окно выбора шрифта, мы определяем все текущие настройки шрифта, чтобы затем отобразить их в диалоговом окне. После того как пользователь нажал в этом окне кнопку OK, все выбранные настройки шрифта применяются к полю Memo.
Теперь осталось только реализовать автоматическую загрузку файлов, связанных с нашим блокнотом в файл-менеджерах. Для этого создадим обработчик события OnCreate главной формы:
>procedure TForm1.FormCreate(Sender: TObject);
>var
> Str: String; //путь к параметру
> i: Integer;
>begin
> xr_num:= '2'; //по умолчанию смещение = 2
> if (ParamCount > 0) then begin
> Str:= ParamStr(1); //Формируем путь к аргументу
> for i:=2 to ParamCount do Str:= Str + ' ' + ParamStr(i);
> end;
> {Если на вход программы поступили параметры, то отображаем содержимое соответствующего файла в поле Memo}
> if Str <> '' then Memo1.Lines.LoadFromFile(str);
>end;
Здесь мы задаем начальное значение для смещения и проверяем, поступили ли на вход программы какие-либо параметры. Если да, то узнаем путь к файлу и отображаем его содержимое в поле Memo. Пример шифрования со смещением 10 представлен на рис. 7.3.
