如題,網上找了一圈沒找到答案,不過看到之前也有人在其他版本 遇到這個問題。直接貼過來。有高手遇到過嗎。
我在報表中使用了TfrxChart控制元件,名稱是chart1,列印前需要根據實際的資料重新繪制圖形
我按照原來使用Tchart控制元件的習慣撰寫的代碼如下,
編譯后發現除了能修改Series[0]標題其它命令均無效,
無法清除已有曲線也無法顯示新的曲線,
使用MyChart.SeriesData.Clear 可以清除已有圖形,但其它命令仍無效
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 100 Do
MyChart.Chart.Series[0].AddXY(i,i,'test1');
For j:=1 To 100 Do
MyChart.Chart.Series[1].AddXY(j,100-j,'test2');
End;
End;
end;
uj5u.com熱心網友回復:
Series 的創建添加都沒問題 關鍵是Series里add資料后就是顯示不出來。轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/31018.html
標籤:VCL組件開發及應用
