Hallo Alle!

Wie kann ich mit Delphi so eine Figur auf einem Image zeichnen. Muss ich da jeden Pixel einzeln zeichnen, oder gibt es da Hilfen?

Gruß
Heike

einfach die Methoden LineTo und MoveTo von Canvas nutzen

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

zusammenfalten · markieren

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;