delphi Tchart畫圖

Tchart畫圖

Tchart初始化：

      Chart1.FreeAllSeries(nil);
     chart1.LeftAxis.SetMinMax(0,JXL);
     chart1.BottomAxis.SetMinMax(KSTime,KSTime+CXTime);

Tchart畫折線圖：

1、設置線條LineSeries的橫座標爲時間格式，雙擊Chart控件在Series頁面下General頁面設置；
2、按時間升序排列查詢數據庫中需要的數據；
3、記錄集中做一個循環，從第一條到最後一條,使用AddXY添加曲線點；
  First;
  While not AdoQuery.Eof do
  begin
    LineSeries.AddXY(AdoQuery.FieldValues[日期], AdoQuery.FieldValues[數值]);
    Next;
  end;
4、LineSeries.Active := True; 完成！
5、動態創建線條曲線時：
  var LS: TLineSeries;
  begin
    //刪除已有Series
    Chart1.FreeAllSeries(nil);
    LS := TLineSeries.Create(Chart1);
    LS.Active := False;
    LS.Title  := '測試';
    LS.LinePen.Width    := 1;
    LS.XValues.DateTime := True;
    //循環添加
    ......
    //添加並顯示
    LS.Active := True;
    Chart1.AddSeries(LS);
  end;

Tchart畫點圖：

     point1 := Tpointseries.Create(Chart1);
     point1.Active := False;
     point1.Title := '有效PCA';
     point1.SeriesColor :=clyellow;
     point1.XValues.DateTime := True;

     point1.AddXY(PCAChangeTime,CXL);

     Chart1.AddSeries(point1);
     point1.Active :=true;

Tchart畫餅圖：

     Chart1.FreeAllSeries(nil);
     Pie := TPieSeries.Create(Chart1);
     Pie.Active := False;
     Pie.AddPie(QS,'全身麻醉',clgreen);
     Pie.AddPie(ZGN,'椎管內麻醉',CLblue);
     Pie.AddPie(FH,'複合麻醉',CLred);
     Pie.AddPie(JM,'靜脈麻醉',CLyellow);
     Pie.AddPie(JB,'局部麻醉',clpurple );
     Pie.AddPie(JC,'基礎麻醉',clLtGray);
     Chart1.AddSeries(Pie);
     Pie.Active := true;

Tchart座標爲時間格式：

LS.XValues.DateTime := True;

Tchart上下座標軸都顯示：

     chart1.Series[0].HorizAxis :=aBothHorizAxis;
     chart1.TopAxis.SetMinMax(0,CXTime);