Steema Central

Code: Select all

const
    SectorNames : array[0..9] of string =
    (
      'POSSESSION', 'OFFENSIVENESS', 'HIGH PRESS', 'CROSSING',
      'FAST TEMPO', 'SUSTAINED THREAT', 'BUILD UP', 'MAINTENANCE',
      'COUNTER ATTACK', 'DIRECT PLAY'
    ) ;

    TeePiStep:Double      = Pi/180.0;

var Series1: TPolarGridSeries;

procedure TForm1.FormCreate(Sender: TObject);
var Sector, Track, tmpIndex: Integer;
begin
  //Chart1.Title.Visible:=false;
  Chart1.View3D:=false;
  Chart1.Legend.Visible:=false;
  Chart1.Axes.Left.Visible:=false;
  Chart1.Axes.Left.Grid.Color:=clWhite;
  Chart1.Axes.Left.Grid.Style:=psDot;
  Chart1.Axes.Top.Visible:=false;
  Chart1.Axes.Bottom.Visible:=false;
  Chart1.Axes.Bottom.Grid.Visible:=false;
  Chart1.Axes.Right.Ticks.Visible:=false;
  Chart1.Axes.Right.MinorTicks.Visible:=false;
  Chart1.Axes.Right.LabelsFont.Color:=clWhite;
  Chart1.Axes.Right.LabelsFont.Size:=6;
  Chart1.Axes.Right.Axis.Visible:=false;
  Chart1.Axes.Left.Increment:=50;
  Chart1.AxisBehind:=false;
  Chart1.OnBeforeDrawSeries:=Chart1BeforeDrawSeries;

  Series1:=Chart1.AddSeries(TPolarGridSeries) as TPolarGridSeries;
  with Series1 do
  begin
    Palette.UseColorRange:=false;
    Color:=RGB(55, 47, 45);
    Pen.Color:=Color;
    CirclePen.Visible:=false;
    RotationAngle:=110;
    OnGetCircleLabel:=polarGetCircleLabels;

    NumSectors:=10;
    NumTracks:=255;
    for Sector:=0 to NumSectors-1 do
    begin
      for Track:=0 to NumTracks-1 do
      begin
        tmpIndex:=AddCell(Sector,Track,0);

        if (
           ((Sector=0) and (Track>110)) or
           ((Sector=1) and (Track>120)) or
           ((Sector=2) and (Track>100)) or
           ((Sector=3) and (Track>90)) or
           ((Sector=4) and (Track>180)) or
           ((Sector=5) and (Track>140)) or
           ((Sector=6) and (Track>160)) or
           ((Sector=7) and (Track>120)) or
           ((Sector=8) and (Track>140)) or
           ((Sector=9) and (Track>70))
           ) then
          SetNull(tmpIndex);
      end;
    end;
  end;

  Chart1.Draw;
end;

procedure TForm1.polarGetCircleLabels(Sender:TCustomPolarSeries; const Angle:Double; Index:Integer;
                                     var Text:String);
begin
  Text:=SectorNames[Index];

  if (Index>3) and (Index<5) then
    Chart1.Canvas.Pen.Style:=psSolid
  else
    Chart1.Canvas.Pen.Style:=psDash;
end;

procedure TForm1.Chart1BeforeDrawSeries(Sender: TObject);
var p : TPolarGridSeries;
begin
  p:=TPolarGridSeries(Chart1[0]);

  Chart1.Canvas.Brush.Style:=bsSolid;
  Chart1.Canvas.Brush.Color:=rgb(67, 152, 67);

  Chart1.Canvas.Ellipse(p.CircleRect);
end;

procedure TForm1.Chart1GetAxisLabel(Sender: TChartAxis;
  Series: TChartSeries; ValueIndex: Integer; var LabelText: String);
begin
  if (Sender=Chart1.Axes.Right) then
  begin
    if LabelText='0' then
      LabelText:='-100%'
    else if LabelText='50' then
      LabelText:='-50%'
    else if LabelText='100' then
      LabelText:='0%'
    else if LabelText='150' then
      LabelText:='50%'
    else if LabelText='200' then
      LabelText:='100%'
    else if LabelText='250' then
      LabelText:='150%';
  end;

end;

procedure TForm1.Chart1AfterDraw(Sender: TObject);
var tmpValue: Double;
    tmpX, tmpY: Integer;
begin
  Chart1.Canvas.Pen.Color:=clWhite;
  Chart1.Canvas.Pen.Width:=2;

  Series1.DrawRing(100, 0);

  tmpValue:=18;
  Chart1.Canvas.Pen.Width:=1;

  while tmpValue<(360-MinAxisIncrement) do
  begin
    Series1.AngleToPos(TeePiStep*tmpValue,Series1.XRadius,Series1.YRadius,tmpX,tmpY);
    Chart1.Canvas.LineWithZ(Series1.CircleXCenter,Series1.CircleYCenter,tmpX,tmpY,Series1.EndZ);

    tmpValue:=tmpValue+36;
  end;
end;

Code: Select all

Series1.DrawStyle := dsCircled;