Delphi. Учимся на примерах
вернуться

Парижский Сергей Михайлович
Шрифт:

procedure TForm1.N9Click(Sender: TObject);

begin

 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.

Рис. 7.3. Пример шифрования со смещением 10

Полный исходный код модуля

Полный исходный код модуля программы Блокнот-шифровальщик представлен в листинге 7.1.