Steema Central

Code: Select all

procedure TForm1.btnBuildClick(Sender: TObject);

Var tmpSeries : TCircularGauge;

begin
   tmpSeries := TCircularGauge.Create(Self);
   tmpSeries.Maximum  := 10;
   tmpSeries.Value    := 2.4;
    tmpSeries.ParentChart       := Chart1;
   Chart1.BottomAxis.Increment := 0.5       {<-------}
end;

procedure TForm1.btnSaveClick(Sender: TObject);
begin
 SaveChartToFile(TCustomChart(Chart1), 'Test.Tee', True, True);
end;

procedure TForm1.btnLoadClick(Sender: TObject);
begin
  LoadChartFromFile(TCustomChart(Chart1), 'Test.Tee');
end;