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);