Figur auf TImage zeichnen.

[bitsetter]

Polygon und Rectangle könnte man dazu auch noch verwenden.

Delphi-Quellcode:

 with Image1.Canvas do
  begin
    Brush.Style:= bsClear;
    Polygon([Point(50,20), Point(300,20),Point(270,70),Point(20,70)]);

    Brush.Style:= bsSolid;
    Polygon([Point(50,10), Point(300,10),Point(270,60),Point(20,60)]);

    MoveTo(300,10);
    LineTo(300,20);
    MoveTo(270,60);
    LineTo(270,70);
    MoveTo(20,60);
    LineTo(20,70);
  end;