procedure TForm1.frxrprt1BeforePrint(Sender: TfrxReportComponent); var myChart: TfrxChartView; begin if Sender is TfrxChartView then begin myChart:=(frxrprt1.FindObject('Chart1') as TfrxChartView); //myChart.Chart.Series[0].AddY(100, 'пример', clBlack); //myChart.Chart.Series[0].AddX(2,'пример',clRed); myChart.Chart.Series[0].Add(100,'yang',clBlack); myChart.Chart.Series[0].Repaint end; end;
var
myChart: TfrxChartView;
begin if Sender is TfrxChartView then
begin
myChart:=(frxrprt1.FindObject('Chart1') as TfrxChartView);
//myChart.Chart.Series[0].AddY(100, 'пример', clBlack);
//myChart.Chart.Series[0].AddX(2,'пример',clRed);
myChart.Chart.Series[0].Add(100,'yang',clBlack);
myChart.Chart.Series[0].Repaint
end;
end;