VPF::Показать файл jpeg без TImage - Форум программистов

Borland_Delphi_6

Дата 8.10.2003, 17:07 (ссылка)

(нет голосов)

Загрузка ...

LoneLINEss

Профиль
Группа: Участник Клуба
Сообщений: 2509
Регистрация: 5.11.2002
Где: in fortune dreams ...

Репутация: нет
Всего: 20

САБЖ. Как загрузит я вроде знаю:
var
a:TJPEGImage;
a.LoadFromFile(filename);
begin
end;
А вот как теперь это показать, желательно в отдельном окне?

--------------------

Blind Guardian Fan :: BMSTU Student :: A polar bear is a rectangular bear after a coordinate transform.

Мои фотографии

<Spawn>

Дата 8.10.2003, 18:34 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 2
Всего: 64

Пожалста:

Unit1:

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, JPEG;

type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Jpg:TJPEGImage=nil;
implementation
uses Unit2;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
if openDialog1.Execute then
try
  Jpg:=TJPEGImage.Create;
  Jpg.LoadFromFile(OpenDialog1.FileName);
  Form2:=TForm2.Create(Self);
  Form2.Width:=Jpg.Width;
  Form2.Height:=Jpg.Height;
  Form2.ShowModal;
finally
  FreeAndNil(Jpg);
  FreeAndNil(Form2);
end;
end;

end.

Unit2:

Код

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm2 = class(TForm)
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
 uses Unit1;
{$R *.dfm}

procedure TForm2.FormPaint(Sender: TObject);
begin
 if Assigned(Jpg) then
  Canvas.Draw(0,0,Jpg);
end;

end.

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »