ein bild auf ein anderes zeichnen ?

[agm65]

habe jetzt folgendes versucht: und ich bekomme keine anzeige..bzw garnichts aber ich fühle, das ich nahe dran bin ?

Delphi-Quellcode:

var
  Form1: TForm1;
  imgresult,bild1,bild2:Tbitmap;

implementation

{$R *.dfm}

function LoadJPEGPictureFile(Bitmap: TBitmap; FilePath, FileName: string): Boolean;
var
  JPEGImage: TJPEGImage;
begin
  if (FileName = '') then
    Result := False
  else
  begin
    try
      JPEGImage := TJPEGImage.Create;
      try
        JPEGImage.LoadFromFile(FilePath + FileName);

        Bitmap.Assign(JPEGImage);

        Result := True;
      finally
        JPEGImage.Free;
      end;
    except
      Result := False;
    end;
  end;
end;




procedure TForm1.FormCreate(Sender: TObject);
begin
imgresult := tbitmap.Create;
bild1 := tbitmap.Create;
bild2 := tbitmap.Create;

LoadJPEGPictureFile(bild1,'h:\' , '1.jpg' );
LoadJPEGPictureFile(bild2,'h:\' , 'bg.jpg' );

imgresult.canvas.draw(0,0,bild2);
imgresult.canvas.draw(0,0,bild1);


PaintBox.canvas.draw(0,0,imgresult);

end;