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

Продолжаем изучать Delphi

PrintDialog Компонент Delphi  PrintDialog создает диалог печати. Как и у всех диалогов, любимым методом диалога ...
ColorDialog Компонент Delphi ColorDialog формирует диалоговое окно выбора цвета пользователем, изображенного на ...
FontDialog Компонент Delphi FontDialog выводит на экран стандартное диалоговое окно выбора шрифта (Рисунок 1). ...
SaveDialog Компонент delphi SaveDialog не визуальный компонент предназначенный для поддержки операции сохранени...