Сохранение графики в файл

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

Содержание

Вперед

Содержание Назад Вперед

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---

---

---