Wir sind momentan dabei, ein Grafikprogramm für die Schule zu erstellen. Dabei stoßen jedoch insbesondere beim Polygon auf Probleme.
Das erste ist, dass stets eine Linie vom Nullpunkt aus zum Polygon gemalt wird.
Delphi-Quellcode:
procedure TPolygon.PunktHinzufuegen(Punkt: TPoint);
{Punkt wird zu beiden Listen fest hinzugefügt}
begin
inc(size);
setlength(Punktliste, size);
Punktliste[size-1] := Punkt;
end;
procedure TPolygon.Zeichnen;
{Polygon wird gezeichnet unter Berücksichtung der gewählten Einstellungen}
begin
with Zeichenflaeche do begin
pen.Color := Linienfarbe;
pen.Style := Linienart;
pen.Width := Linienbreite;
brush.Style := Fuellmuster;
brush.Color := Fuellfarbe;
If BeginnPolygon = false then //Punktauswahl für Polygon abgeschlossen
Polygon(Punktliste) //Polygon zeichnen
else begin
setlength(hilfsliste, size+1);
hilfsliste[0] := Punktliste[0];
hilfsliste[size] := EPunkt;
Polyline(Hilfsliste); //Linie zeichnen
end;
end;
end;
Das zweite ist, dass man das Polygon nicht richtig anfassen kann. Wir verwenden dafür die Region aus der Win-
Api. Liegt es vielleicht daran, dass dieses Alternate falsch gesetzt ist? Man kann immer nur den unteren Teil des Polygons anfassen und einen Bereich, der unterhalb liegt.
Delphi-Quellcode:
procedure TPolygon.SetRegion;
{Setzen einer Region, um einfach abfragen zu können,
ob ein Punkt dort drinnen liegt}
begin
region := CreatePolygonRgn(Punktliste, size, Alternate);
end;
function TPolygon.InRegion(Punkt : TPoint):boolean;
{überprüft, ob ein Punkt in einer Region liegt
True: Punkt in Objekt}
begin
result := PTinRegion(region, Punkt.x, Punkt.y);
end;
Schon mal danke
Val