TCanvas3D.RotatedEllipse
TCanvas3D
procedure RotatedEllipse(Left, Top, Right, Bottom, Z: Integer; Const Angle: Double);
Unit
TeCanvas
Description
Draws an ellipse with a rotation angle (from 0 to 360 degree)
Example, 45 degree big ellipse :
procedure TForm1.Chart1AfterDraw(Sender: TObject);
begin
with Chart1.ChartRect do
Chart1.Canvas.RotatedEllipse(Left,Top,Right,Bottom,0,45);
end;