Ich würde gerne alle Controls von einer Form auf ein Image malen.
Ich mache das so, aber das Ergebnis ist irgendwie nicht zufriedenstellend
Die Controls werden in falscher Größe und Position gemalt

Das ist meine Procedure mit der es nicht richtig geht :

markieren

Delphi-Quellcode:

procedure ControlsMalen;
var i : Integer;
begin
  for i := 0 to Form1.ControlCount-1 do begin
   Form2.Image1.Canvas.Brush.Color := clblack;
   Form2.Image1.Canvas.Rectangle(Form1.Controls[i].Left,Form1.Controls[i].Top,
                                 Form1.Controls[i].Width,Form1.Controls[i].Height);
  end;
end;

hi
wenn ich mich nicht vertue müsste es heißen:

markieren

Delphi-Quellcode:

Form2.Image1.Canvas.Rectangle(Form1.Controls[i].Left,Form1.Controls[i].Top,
                              Form1.Controls[i].Left+Form1.Controls[i].Width,
                             Form1.Controls[i].Top+Form1.Controls[i].Height);

ich hoffe ich konnt helfen.

...