![]() КАТЕГОРИИ:
АстрономияБиологияГеографияДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРиторикаСоциологияСпортСтроительствоТехнологияФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
|
Компонент Delphi SavePictureDialog
Рисунок 39 – Пример использования компонента SavePictureDialog
Чтобы лучше понять его работу создадим приложение (показано на рисунке) состоящее из 2-х кнопок, компонентов OpenPictureDialog и SavePictureDialog и компонента Image. Напишем следующий код для наших двух кнопок: procedure TForm1.Button1Click(Sender: TObject);// код кнопки открывающей файл begin if OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);end; procedure TForm1.Button2Click(Sender: TObject);// код кнопки сохраняющей файлbegin if SavePictureDialog1.Execute then Image1.Picture.SaveToFile(SavePictureDialog1.FileName);end;
Нажав на кнопку Открыть мы сможем загрузить картинку и нажав на кнопку Сохранить создать новый файл с нашей картинкой.
|