Posted: Thu Feb 12, 2009 3:10 pm
Does the new TPolarGrid series handle the requested type of rose chart?
Steema Software - Customer Support Forums
http://216.92.243.79/support/
Code: Select all
procedure TForm1.FormCreate(Sender: TObject);
var Sector, Track : Integer;
tmp : TChartValue;
ValueIndex: Integer;
begin
with Series1 do
begin
Clear;
NumSectors:=40;
NumTracks:=20;
BeginUpdate;
for Sector:=0 to NumSectors-1 do
for Track:=0 to NumTracks-1 do
begin
tmp:=0.5*Sqr(Cos(Sector/(NumSectors*0.2)))+
Sqr(Cos(Track/(NumTracks*0.2)))-
Cos(Track/(NumTracks*0.5));
ValueIndex:=AddCell(Sector,Track,tmp);
if ((Sector=5) and (Track>10))then
ValueColor[ValueIndex]:=clNone;
end;
EndUpdate;
end;
end;