Delphi. Учимся на примерах
Шрифт:
Обработчик события 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.
Листинг 7.1. Модуль программы Блокнот-шифровальщик
unit Unit1
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls Forms, Dialogs, StdCtrls, Menus;
type TForm1 = class(TForm)
Memo1: TMemo;
menu1: TMainMenu;
File1: TMenuItem;
Edit1: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
FontDialog1: TFontDialog;
N6: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
XoR1: TMenuItem;
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject)
procedure N4Click(Sender: TObject)
procedure N8Click(Sender: TObject)
procedure N5Click(Sender: TObject)
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure XoR1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
xr_num: string;
implementation
{$R *.dfm}
procedure TForm1.N1Click(Sender: TObject);
begin
//начинаем обзор с текущей папки
Поделиться:
Популярные книги
Группа крови на рукаве. Том 2
2. ГК
Фантастика:
боевая фантастика
альтернативная история
постапокалипсис
5.00
рейтинг книги
Я уже барон
2. Дорогой барон!
Фантастика:
боевая фантастика
попаданцы
аниме
5.00
рейтинг книги
Кодекс Крови. Книга ХI
11. РОС: Кодекс Крови
Фантастика:
попаданцы
аниме
фэнтези
5.00
рейтинг книги
Сапер
1. Сапер
Фантастика:
героическая фантастика
попаданцы
альтернативная история
5.29
рейтинг книги
На границе империй. Том 10. Часть 13
Вселенная EVE Online
Фантастика:
космическая фантастика
попаданцы
5.00
рейтинг книги
Абсурдистан
Проза:
современная проза
5.00
рейтинг книги
Московское золото и нежная попа комсомолки. Часть Пятая
5. Летчик Леха
Фантастика:
попаданцы
5.00
рейтинг книги
Кодекс Охотника. Книга XXXVIII
38. Кодекс Охотника
Фантастика:
фэнтези
боевая фантастика
попаданцы
юмористическое фэнтези
5.00
рейтинг книги
На границе империй. Том 10. Часть 10
Вселенная EVE Online
Фантастика:
космическая фантастика
попаданцы
5.00
рейтинг книги
Гримуар темного лорда IV
4. Гримуар темного лорда
Фантастика:
фэнтези
боевая фантастика
попаданцы
аниме
5.00
рейтинг книги
Крепость над бездной
4. Гибрид
Фантастика:
боевая фантастика
попаданцы
аниме
фэнтези
5.00
рейтинг книги
Сирийский рубеж
5. Рубеж
Фантастика:
попаданцы
альтернативная история
5.00
рейтинг книги
Геном хищника. Книга пятая
5. Я - Легенда!
Фантастика:
рпг
фэнтези
попаданцы
6.00
рейтинг книги
Оживший камень
1. Артефактор
Фантастика:
городское фэнтези
попаданцы
аниме
5.00