Размер Image изменяется на размер картинки, а сама она рисуется на области первой картинки

[RPGer]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtDlgs, ExtCtrls, StdCtrls, jpeg;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    OpenPictureDialog1: TOpenPictureDialog;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jpgfoto: TJPEGImage;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
  jpgfoto.LoadFromFile(OpenPictureDialog1.FileName);
  Image1.Height:=jpgfoto.Height;
  Image1.Width:=jpgfoto.Width;
  Image1.Left:=0;
  Image1.Top:=0;
  Image1.Canvas.Draw(0,0,jpgfoto);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
jpgfoto:= TJPEGImage.Create;
end;

end.

Непойму почему трабла. Компилю прогу, открываю картинку.

Все нормально, но когда я во 2 раз загрузаю картинку(другую), она становится криво.

Тоесть размер имэйджа изменяется на размер картинки, а сама она рисуется на области первой картинки. Объясните в чем косяк.

[BOBAH13]

Удивительно. Вы пишите

Image1.Canvas.Draw(0,0,jpgfoto);

а потом говорите "а сама она рисуется на области первой картинки"... слов нет

[RPGer]

А что разве код

Image1.Canvas.Draw(0,0,jpgfoto);

рисует не на всем имейдже?
Дело в том что отображается только та часть рисунка 2 которая входит в область 1-го. =(

[mihali4]

Так вы именно это и задали...
Почитайте про функцию Assign, она вам поможет.

[RPGer]

Тоесть чтоб картинка на канве рисовалась корректно мне нужно использовать Image1.Canvas.Assign(jpgfoto)??

[lexaltd]

Image1.Picture.Assign(jpgfoto);
Или так напиши
Image1.Picture.Bitmap.Height :=jpgfoto.Height;
Image1.Picture.Bitmap.Width := jpgfoto.Width;

[RPGer]

Image1.Picture.Bitmap.Height :=jpgfoto.Height;
Image1.Picture.Bitmap.Width := jpgfoto.Width;

=) Спасибо именно это мне и надо было. Теперь все как задумывалось. Ошибка моя в том что я думал, что размеры битмапа в рисунке равны размерам рисунка =) оказывается нет))). Большое спасибо за ответы и за внимание.