PolarChart Zoom gets reset!

[Bill]

Hi,

I create a TChart and drop a TPolarSeries and add some polar points. Set the Chart Legend to Check Boxes. Add the following code.

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{

Chart1->View3D = 1;

for(int i = 0; i < 360; i+= 10)
Series1->AddPolar(i, 10, "", clBlack);

Chart1->View3DOptions->Zoom = 150;

}

Run the program and click on the Series1 CheckBox. Click the CheckBox again to amke the series visible. Chart1->View3DOptions->Zoom now is reset to 100!

[Narcís]

Hi Bill,

Thanks for reporting. I could reproduce the issue here using code snippet below and added it (TV52015739) to the defect list to be investigated.

Code: Select all

uses Series, TeePolar;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.View3D:=True;
  Chart1.Legend.CheckBoxes:=True;
  Chart1.AddSeries(TPolarSeries.Create(Self)).FillSampleValues;
  Chart1.View3DOptions.Zoom:=150;
end;