von TPaintbox in TImage kopieren

[bitsetter]

Hi,

funktioniert es so?

Delphi-Quellcode:

var
  r: TRect;
begin
  image1.Picture.Bitmap.Width:= Image1.Width;
  image1.Picture.Bitmap.Height:= Image1.Height;

  Image1.Width:=PaintBox1.Width;
  Image1.Height:=PaintBox1.Height;
  r:=rect(0,0,Image1.Width,Image1.Height);
  Image1.Picture.Bitmap.Canvas.CopyRect(r,PaintBox1.Canvas,r);

Eventuell war die Breite und Höhe des Bitmaps = 0.