Problem mit CreatePolygonRgn

[Valrien]

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

[marabu]

Zitat:

Das erste ist, dass stets eine Linie vom Nullpunkt aus zum Polygon gemalt wird.

Dann vermute ich, dass der Nullpunkt zum Zeitpunkt des Zeichnens auch in der Punkteliste enthalten ist. Einfach mal nachschauen.

Zitat:

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.

Das hat eher nichts mit dem FillMode-Parameter zu tun. Ich vermute ihr habt das Polygon bereits einmal verschoben und die Variable region nicht angepasst.

Grüße vom marabu

[Gandalfus]

der Anfangs Punkt muss 2 mal drin sein (am anfang und am ende)

[marabu]

@Gandalfus: Wieso "muss" der Ausgangspunkt zweimal angegeben werden?

Zitat von Microsoft:

Polygon(): The polygon is closed automatically by drawing a line from the last vertex to the first.

Zitat von Microsoft:

CreatePolygonRgn(): The system closes the polygon automatically, if necessary, by drawing a line from the last vertex to the first. The resulting region is stored in the CRgn object.

Grüße vom marabu

[edit]Schreibfehler[/edit]

[Gandalfus]

Zitat von marabu:

@Gandalfus: Wieso "muss" der Ausgangspunkt zweimal angegeben werden?

Gar nicht das war falsch.