Steema Central

Code: Select all

uses Series, TeePDFCanvas;

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  Chart1.Title.Caption:='Concentric Donuts';

  for i:=0 to 2 do
    with Chart1.AddSeries(TPieSeries) as TPieSeries do
    begin
      FillSampleValues(4);
      Marks.Hide;
      MultiPie:=mpConcentric;
    end;

  TeeSaveToPDFFile(Chart1, 'C:\tmp\Chart1.pdf');
end;

Code: Select all

uses TeePDFCanvas;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.View3D:=false;
  Chart1.Legend.Visible:=false;

  with Chart1.AddSeries(TRoseSeries) as TRoseSeries do
  begin
    Pointer.Visible:=false;
    Pen.Visible:=false;
    Color:=clWhite;
    CircleBackColor:=RGB(0,0,128);

    GetHorizAxis.Grid.Visible:=false;
    GetVertAxis.Grid.Visible:=false;
    GetHorizAxis.MinorTicks.Visible:=false;
    CircleLabelsRotated:=true;
    LabelsMargin:=10;

    OnGetCircleLabel:=roseGetCircleLabels;
  end;

  Chart1.Axes.Visible:=false;

  TrackBar1.Max:=200;
  TrackBar1.Min:=10;
  TrackBar1.Position:=29;
  TrackBar1.Frequency:=10;
end;

procedure TForm1.recalcAngles;
var i: Integer;
begin
  with Chart1[0] as TRoseSeries do
  begin
    for i:=0 to Count-1 do
      AngleValue[i]:=i*360/Count;

    AngleIncrement:=(AngleValue[1]-AngleValue[0]) / 2;
  end;
end;

procedure TForm1.roseGetCircleLabels(Sender:TCustomPolarSeries; const Angle:Double; Index:Integer;
                                     var Text:String);
var i: Integer;
begin
  Text:='';
  with Chart1[0] as TRoseSeries do
    for i:=0 to Count-1 do
      if Round(Angle-AngleIncrement)=Round(AngleValue[i]) then
        Text:=Labels[i];
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
var i, tmpValue: Integer;
begin
  with Chart1[0] as TRoseSeries do
  begin
    Clear;
    for i:=0 to TrackBar1.Position-1 do
    begin
      tmpValue:=Round(random*100);
      AddPolar(tmpValue, tmpValue, IntToStr(tmpValue));
    end;
      recalcAngles;
  end;

  Label1.Caption:='Num Values: ' + IntToStr(TrackBar1.Position);
end;

Code: Select all

Series1.CircleLabelsInside:=false;