Frame auf TImage32 "zeichnen"

[Jens01]

So hasts funktioniert!
Self = TForm
img1 = TImage32

Delphi-Quellcode:

  img1.Bitmap.Clear(clWhite32);
  img1.Bitmap.SetSize(Self.Width, Self.Height);
  img1.Bitmap.Lock;
  try
    Self.PaintTo(img1.Bitmap.Handle, 0, 0);
  finally
    img1.Bitmap.Unlock;
  end;