Bezier-Kurven-Polygon ausfüllen

[igel457]

Danke für die Antwort. Ich probiere es mal aus.

EDIT:
So, funktioniert. Danke für die Hilfe. Mein Code sieht jetzt so aus:

Delphi-Quellcode:

procedure BezierPolygon(Canvas:TCanvas;Points:array of TPoint);
begin
  BeginPath(Canvas.Handle);
  Canvas.PolyBezier(points);
  EndPath(Canvas.Handle);
  FillPath(Canvas.Handle);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  pusat: array of TPoint;
  i: Integer;
begin
  SetLength(pusat, 4);
  for i := Low(pusat) to High(pusat) do
  begin
    pusat[i].x := Random(Width);
    pusat[i].y := Random(Height);
  end;
  Canvas.Brush.Color := clBlack;
  BezierPolygon(Canvas,pusat);
end;

Danke für die Hilfe!

Igel457