Steema Central

Code: Select all

type TGermanWindRose = class(TWindRoseSeries)
  protected
    Function GetCircleLabel(Const Angle:Double; Index:Integer):String; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ GermanWindRose }
function TGermanWindRose.GetCircleLabel(const Angle: Double;
  Index: Integer): String;
var tmp : Double;
begin
  if MirrorLabels then tmp:=360-Angle
                   else tmp:=Angle;

  Case Round(tmp) of
      0: result:='N';
     15: result:='NNNW';
     30: result:='NNW';
     45: result:='NW';
     60: result:='NWW';
     75: result:='NWWW';
     90: result:='W';
    105: result:='SWWW';
    120: result:='SWW';
    135: result:='SW';
    150: result:='SSW';
    165: result:='SSSW';
    180: result:='S';
    195: result:='SSSO';
    210: result:='SSO';
    225: result:='SO';
    240: result:='SOO';
    255: result:='SOOO';
    270: result:='O';
    285: result:='NOOO';
    300: result:='NOO';
    315: result:='NO';
    330: result:='NNO';
    345: result:='NNNO';
    360: result:='N';
  else result:='';
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.AddSeries(TGermanWindRose);
  Chart1.Series[0].FillSampleValues(10);
end;