Компонент Delphi SaveDialog
Компонент
Delphi SaveDialog располагается
на странице Dialogs Палитры компонентов.
Это стандартный диалог сохранения
файлов. По внешнему виду (заголовок по
умолчанию - "Сохранить как") и
функциональности он почти не отличается
от компонента Delphi OpenDialog и имеет те
же свойства и методы.
Рисунок 36 – Пример использования компонента SaveDialog
Например, нам нужно сохранить текст набранный в memo компоненте. Для этого создаем обработчик кнопки сохранения и в нем прописывает следующий код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
Задав произвольное имя файла и нажав кнопку сохранить мы получим файл с набранным нами текстом.
Компонент Delphi OpenPictureDialog
Компонент
Delphi
OpenPictureDialog
располагается на странице Dialogs Палитры
компонентов. Он также как и
компонент OpenDialog вызывает диалог
открытия файла, но только он имеет более
узкое направление работы, а именно с
графическими файлами. По внешнему виду
он отличается наличием в правой стороне
зоны предварительного просмотра картинок
и наличием предустановленного значения
свойства Filter.
Рисунок 37 – Пример использования компонента OpenPictureDialog
Свойство Filter, по умолчанию, установлено для показа графических файлов следующих форматов:
JPEG файлы расширение - *.jpg;
JPEG файлы расширение - *.jpeg;
Растровое изображение расширение - *.bmp;
Значок расширение - *.ico;
Метафайл расширенного формата расширение - *.emf;
Метафайл расширение - *.wmf;
Важное замечание: для того чтобы в фильтре была возможность выбора JPEG формата необходимо добавить модуль JPEG в разделе uses, как показано на рисунке.
Рисунок 38 – Добавления модуля JPEG в раздел uses
Если нам необходимо с помощью кнопки открывать картинку в компоненте Image, то для кнопки следует написать такой обработчик события:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
Компонент Delphi SavePictureDialog
Компонент
Delphi SavePictureDialog располагается
на
странице
Dialogs Палитры
компонентов.
Этот диалог
предназначен для сохранения графических
файлов. По внешнему виду и функциональности
он вобрал в себя свойства и
методы компонентов Delphi OpenPictureDialog и
SaveDialog.
Рисунок 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;
Нажав на кнопку Открыть мы сможем загрузить картинку и нажав на кнопку Сохранить создать новый файл с нашей картинкой.