Ваш браузер устарел. Рекомендуем обновить его до последней версии.





 


 



Delphi

 

 


    Урок 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.


Flag Counter
Яндекс.Метрика
200stran.ru: показано число посетителей за сегодня, онлайн, из каждой страны и за всё время
Besucherzahler russain brides
счетчик посещений

Выбери лучшее!

allbest