Урок 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.
Выбери лучшее! allbest |