OpenPictureDialog и SavePictureDialog

  

Рассмотри два Компонента delphi OpenPictureDialog и delphi SavePictureDialog это диалоговые окна предназначенные для открытия графических файлов из названий которых понятно что OpenPictureDialog предназначен для открытия, а SavePictureDialog для сохранения изображений. Их отличия от компонентов OpenDialog и SaveDialog небольшие.Первое, в них предусмотрены фильтры для выбора графических файлов (с расширениями .ICO, .EMF, .BMP и.WMF). Второе, в диалоговое окно включено панель для предварительного просмотра выбираемого изображения (рисунок 2).

Внешний вид проекта

Рис.1

Приведу пример использования компонентов. На форму разместим компоненты OpenPictureDialog и SavePictureDialog, а также две кнопки Button и компонент Image, который используется для отображения графических файлов.

компоненты OpenPictureDialog и SavePictureDialog на форме

Рис.2

Код нашего примера

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm5.Button1Click(Sender: TObject);
begin
if OpenPictureDialog2.Execute and
FileExists(OpenPictureDialog1.FileName) then
// если выбрали файл.
// загружаем его в Imagel:
Image2.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
if SavePictureDialog2.Execute
then Image2.Picture.SaveToFile(SavePictureDialog1.FileName);
// сохранение изображения
end;

Свойство OpenPictureDialog. Filter, по умолчанию, установлен для показа изображений следующих форматов:

JPEG файлы — *.jpeg;
JPEG файлы — *.jpg;
Растровое изображение — *.bmp;
Значок(иконка) — *.ico;
Метафайл расширенного формата — *.emf;
Метафайл расширение — *.wmf;

Важно: для выбора JPEG формата следует добавить модуль JPEG в раздел uses

Добавить модуль JPEG в раздел uses