我是rm的,fast的差不多。
var
i: integer;
flag: boolean;
s: TLineSeries;
if RMReport_data.Pages[0].FindObject('Chart_Print') <> nil then
with TRMChartView(RMReport_data.Pages[0].FindObject('Chart_Print'))do
begin
Visible := flag;
if flag then
begin
Chart.Assign(chart1);
Chart.SeriesList.Clear;
for i := 0 to chart1.SeriesCount - 1do
begin
s := TLineSeries.Create(self);
s.Assign(chart1.Series);
chart.AddSeries(s);
end;
// chart1.Refresh;
end;
end;