Стр. 232 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
232
ColorDialog1: TColorDialog;
Memo1: TMemo;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
fn:string;
implementation
uses Math;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Caption:='Блокнот';
OpenDialog1.Filter:='Текстовые файлы (*.txt)|*.TXT';
SaveDialog1.Filter:='Текстовые файлы (*.txt)|*.TXT';
Memo1.Anchors:=[akLeft,akTop,akRight,akBottom];