Registriert seit: 15. Mär 2007
4.121 Beiträge
Delphi 12 Athens
|
AW: Vector Pie mit der graphics32
27. Jan 2016, 07:47
Vielleicht schaust du dir auch mal Gr32_Ex an.
Da wird gezeigt das ArrayOfFloatPoint mit gPolyBezier(xBitmap, PP, xColor, xOptions, true);
abgerundet wird.
Das könnte vielleicht für dich interessant sein:
Delphi-Quellcode:
{ draw elliptic and transformed pie }
procedure gPieET(xBitmap : tBitmap32;
const xCenter : tFixedPoint;
const xA, xB : GR32.tFixed;
const xStartAngle, xEndAngle : double; { values in radians }
const xAT : TFloatMatrix; { affine transformation matrix }
const xColor : tColor32;
const xOptions : tPolygonDrawOptions = pdoFloat);
var
PP : TArrayOfFixedPoint;
L : integer;
begin
SetLength(PP, 0);
LoadArcCurve(xCenter, xA, xB, xStartAngle, xEndAngle, PP);
{ connect with center }
L := Length(PP);
SetLength(PP, L + 3);
PP[L] := PP[L-1];
PP[L + 1] := xCenter;
PP[L + 2 ] := xCenter;
TransformArrayOfFixedPoint(PP, xAT);
gPolyBezier(xBitmap, PP, xColor, xOptions, true);
PP := nil;
end;
Rollo
|
|
Zitat
|