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

Информатика. Программирование в Delphi
298
StringGrid1.Font:=FontDialog1.Font;
end;
procedure TForm1.N14Click(Sender: TObject);
begin
if ColorDialog1.Execute then
StringGrid1.Color:=ColorDialog1.Color;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
if SaveDialog1.Execute then
savetofile(SaveDialog1.FileName);
end;
procedure TForm1.N4Click(Sender: TObject);
var
r:integer;
begin
r:=MessageDlg('Сохранить файл?',mtInformation,mbYesNoCancel,0);
if r=mrYes then
if SaveDialog1.Execute then
savetofile(SaveDialog1.FileName);
if r=mrCancel then
exit;
if OpenDialog1.Execute then
loadfromfile(OpenDialog1.FileName);
end;
procedure TForm1.N6Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
r:integer;
f:TextFile;
begin
r:=MessageDlg('Сохранить файл?',mtInformation,mbYesNoCancel,0);
if r=mrYes then
if SaveDialog1.Execute then
begin
savetofile(SaveDialog1.FileName);