Dreiecke zeichnen

[400kmh]

Hallo, ich möchte auf einem Canvas ausgefüllte Dreiecke zeichnen. Wie geht das?

[Eclipticon]

Vielleicht Canvas.Polygon() mit entsprechend gesetztem Canvas.Brush?

[400kmh]

Vielleicht Canvas.Polygon() mit entsprechend gesetztem Canvas.Brush?

Ok, aber was muss Canvas.Polygon(>>hier<<) stehen und in welcher Reihenfolge?

Also, wie übergebe ich die drei nötigen X- und Y-Werte?

[Jim92]

Also ich mach das immer so, hat sich eigentlich bewährt:

Code: Alles auswählen

var
  A, B, C: TPoint;
begin
  WITH Panel1.Canvas do
    begin
      Pen.Color:=Farbe;
      Brush.Color:=Farbe;
      A.x:=Punkt1.X;
      A.y:=Punkt1.Y;
      B.x:=Punkt2.X;
      B.y:=Punkt2.Y;
      C.x:=Punkt3.X;
      C.y:=Punkt3.Y;
      Polygon([A,B,C]);
  end;
end;

Kannst die Definition der Punkte auch hintereinander in einer Reihe schreiben. Das ganze lässt sich auch beliebig erweitern, auf beliebige n-Ecke

[400kmh]

Also ich mach das immer so, hat sich eigentlich bewährt:

Code: Alles auswählen

var
  A, B, C: TPoint;
begin
  WITH Panel1.Canvas do
    begin
      Pen.Color:=Farbe;
      Brush.Color:=Farbe;
      A.x:=Punkt1.X;
      A.y:=Punkt1.Y;
      B.x:=Punkt2.X;
      B.y:=Punkt2.Y;
      C.x:=Punkt3.X;
      C.y:=Punkt3.Y;
      Polygon([A,B,C]);
  end;
end;

Kannst die Definition der Punkte auch hintereinander in einer Reihe schreiben. Das ganze lässt sich auch beliebig erweitern, auf beliebige n-Ecke

Danke, scheint zu funktionieren.