Урок 4

Урок 4 Просмотр файлов изображений

Пример 1 Приложение позволяет просматривать файлы изображений. Для начала на форму положите компоненты Image1 и OpenPictureDialog1 (Открытие файла изображения) из вкладки Dialogs (Диалоги). Пока возможен просмотр только в форматах BMP и WMF. Для просмотра файлов в формате JPG и PNG необходимо будет в список uses добавить две библиотеки Vcl.Imaging.JPEG и Vcl.Imaging.pngimage. Размеры рабочей части окна приложения автоматически принимают размеры загруженного изображения. Для того что бы загрузить в Image1 следующее изображение нужно кликнуть на предыдущее.

unit Unit9;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtDlgs, Vcl.ExtCtrls,

Vcl.Imaging.JPEG, // для загрузки файлов в формате JPG

Vcl.Imaging.pngimage; // для загрузки файлов в формате PNG

type
        TForm9 = class(TForm)
        Image1: TImage;
        OpenPictureDialog1: TOpenPictureDialog;
        procedure Image1Click(Sender: TObject);
    private
        { Private declarations }
    public
        { Public declarations }
    end;

var
Form9: TForm9;

implementation

{$R *.dfm}

procedure TForm9.Image1Click(Sender: TObject);
begin

    // ЕСЛИ в окне открытия изображения выбран файл
    // ТО поместить картинку в Image1
    if OpenPictureDialog1.Execute then
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

    // Image1 принимает размеры картинки
    Image1.Width := Image1.Picture.Width;
    Image1.Height := Image1.Picture.Height;

    // окно приложения принимает размеры Image1
    Form9.ClientWidth := Image1.Width;
    Form9.ClientHeight := Image1.Height;

end;

end.