我正在使用 TDBChart 来显示 3 个条形数据。你能指出一个为每个酒吧添加趋势线的好例子吗?TeeChart 下载附带的示例根本没有帮助。
谢谢
在这里,您有一个简单的示例,使用随机值创建 3 个 TBarSeries,然后创建 3 个 TTrendFunction(及其各自的 TLineSeries):
uses Series, CurvFitt;
procedure TForm1.FormCreate(Sender: TObject);
var
tmpBar:TBarSeries;
tmpTrend:TTrendFunction;
tmpLine: TLineSeries;
i, nSeries: Integer;
begin
Chart1.Legend.Visible:=false;
Chart1.View3D:=false;
for i:=0 to 2 do
begin
tmpBar:=Chart1.AddSeries(TBarSeries) as TBarSeries;
with tmpBar do
begin
Marks.Visible:=false;
FillSampleValues;
end;
end;
nSeries:=Chart1.SeriesCount;
for i:=0 to nSeries-1 do
begin
tmpBar:=Chart1[i] as TBarSeries;
tmpTrend:=TTrendFunction.Create(Self);
tmpTrend.Period:=3;
tmpLine:=Chart1.AddSeries(TLineSeries) as TLineSeries;
with tmpLine do
begin
Color:=tmpBar.Color;
SetFunction(tmpTrend);
DataSource:=tmpBar;
end;
end;
end;