Hi Leute!
Ich programmiere erst seit kurzem und bin zur zeit dabei mit Polygon zu arbeiten.
Jedoch blicke ich hier nicht ganz durch.
Ich habe ein Image und einen Button.
Wenn ich den Button klicke soll ein Dreieck gezeichnet werden(im Image).
hierzu habe ich diesen Quelltext:
procedure Dreieck_gs_poly(LO:TPoint; g,h: Integer);
procedure TForm1.Dreieck_gs_poly(LO:TPoint; g,h: Integer);
begin
with Image1.Canvas do begin
Polygon ([Point(LO.x, LO.y),
Point(LO.x+g,LO.y),
Point(LO.x+ (g div 2), LO.y - h)])
end;
end;
procedure TForm1.BDreieckClick(Sender: TObject);
var punkt : TPoint; grundseite,hoehe: integer;
begin
punkt.X := SEx.value ;
punkt.Y := SEy.value ;
grundseite := Ses.value ;
hoehe := SEh.value ;
Dreieck_gs_poly(punkt, grundseite,hoehe);
end;
// SEx, SEy, Ses, SEh sind Spinedits
Jetzt würde ich gerne wissen, wie ich 4 Dreiecke programmiere, die mit den Ecken an einanderhängen und zusammen einen 4-eckigen stern ergeben, am besten mit Polygon.
Ungefähr so:
http://www.bilder-hochladen.net/files/635m-2-jpg.html