Сохранение графики в файл
Листинг 13.20.Сохранение графики в файл
var Form1: TForm1 ;
CurrentFile:String; implementation
{$R *.XFM}
procedure TForm1.Save1Click(Sender: TObject);
begin
if CurrentFile <>
'' then
Image1.Picture.SaveToFile(CurrentFile) { файл уже существует } else SaveAslClick(Sender);
{ иначе нужно ввести имя файла } end;
procedure TForm1.SaveAslClick(Sender: TObject);
begin
if SaveDialog1.Execute then { Получить имя файла } begin
CurrentFile := SaveDialog1.FileName; { сохранить файл с именем,
заданным пользователем }
Save1Click(Sender);
{ вызов метода сохранения файла } end;
end;
Назад
Содержание
Вперед
