oh danke
Habe es mittlerweile auch schon zusammengebracht.
Delphi-Quellcode:
var
pPoints : TArrayOfArrayOfFloatPoint;
begin
setlength(pPoints, 2);
pPoints[0] := Circle(mPoint.X, mPoint.Y, radius);
pPoints[1] := Grow(pPoints[0], width);
GR32_Polygons.PolyPolygonFS(Bitmap, pPoints, Color);
end;
falls es noch wer braucht.