Иллюстрированный самоучитель по Kylix


Листинг 13 20 Сохранение графики в файл



Листинг 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;

- Начало -
- Вперед -



- Начало - - Назад - - Вперед -


Книжный магазин