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