FastReport 3 中图形控件 TfrxChart 该怎样动态赋值? ( 积分: 100 )

  • 主题发起人 主题发起人 oukin
  • 开始时间 开始时间
O

oukin

Unregistered / Unconfirmed
GUEST, unregistred user!
我在报表中使用了TfrxChart控件,名称是chart1,打印前需要根据实际的数据重新绘制图形
我按照原来使用Tchart控件的习惯编写的代码如下,
编译后发现除了能修改Series[0]标题其它命令均无效,
无法清除已有曲线也无法显示新的曲线,
使用MyChart.SeriesData.Clear 可以清除已有图形,但其它命令仍无效
我使用的FastReport是3.07版的,请各位高手指教
procedure TForm1.frxReport2BeforePrint(c: TfrxReportComponent);
var
MyChart: TfrxChartView;
i, j: Integer;
begin
if c is TfrxChartView then
begin
MyChart := TfrxChartView(c);
If MyChart.Name='Chart1' then
begin
//MyChart.SeriesData.Clear;
MyChart.Chart.Series[0].Title:='good';
MyChart.Chart.Series[0].Clear;
MyChart.Chart.Series[1].Clear;
For i:=1 To 100do
MyChart.Chart.Series[0].AddXY(i,i,'test1');
For j:=1 To 100do
MyChart.Chart.Series[1].AddXY(j,100-j,'test2');
end;
end;
end;
 
我在报表中使用了TfrxChart控件,名称是chart1,打印前需要根据实际的数据重新绘制图形
我按照原来使用Tchart控件的习惯编写的代码如下,
编译后发现除了能修改Series[0]标题其它命令均无效,
无法清除已有曲线也无法显示新的曲线,
使用MyChart.SeriesData.Clear 可以清除已有图形,但其它命令仍无效
我使用的FastReport是3.07版的,请各位高手指教
procedure TForm1.frxReport2BeforePrint(c: TfrxReportComponent);
var
MyChart: TfrxChartView;
i, j: Integer;
begin
if c is TfrxChartView then
begin
MyChart := TfrxChartView(c);
If MyChart.Name='Chart1' then
begin
//MyChart.SeriesData.Clear;
MyChart.Chart.Series[0].Title:='good';
MyChart.Chart.Series[0].Clear;
MyChart.Chart.Series[1].Clear;
For i:=1 To 100do
MyChart.Chart.Series[0].AddXY(i,i,'test1');
For j:=1 To 100do
MyChart.Chart.Series[1].AddXY(j,100-j,'test2');
end;
end;
end;
 
后退
顶部