Alle Controlumrisse auf Image malen

[Neutral General]

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

Das ist meine Procedure mit der es nicht richtig geht :

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;

[pirechner]

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

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.

[Neutral General]

... :wall: :mrgreen: