Steema Central

Posted: **Wed Jul 14, 2004 10:33 pm**

Marjan

Re : TChart Polar Series Points Displayed Beyond the Circle.
You wrote in reply
"Hi - Which TeeChart version are you using ? Using TeeChart v7 the following code worked perfectly:
Code:
procedure TForm1.Chart1AfterDraw(Sender: TObject);
begin
Chart1.Canvas.UnClipRectangle;
end;
procedure TForm1.Chart1BeforeDrawSeries(Sender: TObject);
begin
Chart1.Canvas.ClipEllipse(Rect(50,50,250,200),false);
end;
I've used Chart OnBeforeDrawSeries and OnAfterDraw events to perform the clipping on oval region (limited by Rect rectangle))."

Thanks for your reply. Forgive me for not indicating that I am using TeeChart v6 and Delphi v7. In TeeChart v6 the ClipEllipse() procedure is found in the TeCanvas.pas unit and is not associated with any particular class.

Regards

Tony Wright

Posted: **Thu Jul 15, 2004 6:40 am**

Hi, Tony.

Still.... even with Teechart v6.01 it can be done with no problem:

Code: Select all

procedure TForm1.Chart1AfterDraw(Sender: TObject);
begin
  Chart1.Canvas.UnClipRectangle;
end;

procedure TForm1.Chart1BeforeDrawSeries(Sender: TObject);
begin
  ClipEllipse(Chart1.Canvas,Rect(50,50,250,200));
end;

Steema Central

TeeChart v6 Points beyond the circle

TeeChart v6 Points beyond the circle