Page 1 of 1

TpolarSeries and graduation

Posted: Tue Jun 23, 2009 3:31 pm
by 10050873
Hello,

On a TPolarSeries is it possible to change the place of the angle 0° and to increment the angle in clock wise instead of anticlockwise?

Thanks for help

Regards

Re: TpolarSeries and graduation

Posted: Thu Jun 25, 2009 7:31 am
by yeray
Hi Calou,

If you use AddPolar method to populate your series, you could specify your angles, for example:

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
var alfa: integer;
begin
  alfa := 45;

  Series1.AddPolar(0-alfa,100);
  Series1.AddPolar(-45-alfa,200);
  Series1.AddPolar(-90-alfa,150);
end;

Re: TpolarSeries and graduation

Posted: Thu Jun 25, 2009 10:07 am
by 10050873
Hello here is my code with a TRoseSeries
Series1.AddXY(0,20);
Series1.AddXY(30,20);
Series1.AddXY(30,0);
Series1.AddXY(30,40);
Series1.AddXY(60,40);
Series1.AddXY(60,0);
It works good
Now if i do the code below the draw is not correct (i want the same that above but in clockwise)
Series1.AddXY(0,20);
Series1.AddXY(-30,20);
Series1.AddXY(-30,0);
Series1.AddXY(-30,40);
Series1.AddXY(-60,40);
Series1.AddXY(-60,0);

Thanks for help

Re: TpolarSeries and graduation

Posted: Thu Jun 25, 2009 11:53 am
by yeray
Hi Calou,

Try disabling the X order default:

Code: Select all

Series1.XValues.Order := loNone;

Re: TpolarSeries and graduation

Posted: Thu Jun 25, 2009 1:10 pm
by 10050873
Thank you, it works good,

I have an other question. On a Tpolar how could i do to begin the graduation 0° at top instead of on the right?

Thanks

Re: TpolarSeries and graduation

Posted: Thu Jun 25, 2009 1:34 pm
by 10050873
I find the solution with property rotation

Many thanks for help

Re: TpolarSeries and graduation

Posted: Thu Jun 25, 2009 3:33 pm
by yeray
Hi Calou,

I'm glad to hear that!