Старое о динамическом Chart
cav
Кемерово
Наверное я опять повторяюсь (см. тему http://www.fast-report.com/ru/forum/index....&hl=chart&st=0)
Но собственоо вопрос так и не решон.
Итак условия задачи:
Имеется отчет у которого на ReportSymmary лежит tChart. БЕЗ СЕРИЙ ! количество серий неизвестно. В коде Delphi как в выше приведенной ссылке делать не нужно. нужно что бы это работало в форме отчета.
Но собственоо вопрос так и не решон.
Итак условия задачи:
Имеется отчет у которого на ReportSymmary лежит tChart. БЕЗ СЕРИЙ ! количество серий неизвестно. В коде Delphi как в выше приведенной ссылке делать не нужно. нужно что бы это работало в форме отчета.
procedure Chart1OnBeforePrint(Sender: TfrxComponent);
var
i:integer;
s: TChartSeries;
Ser:TfrxSeriesItem;
ic,j:integer;
fd:real;
YS:string;
begin
Chart1.Chart.legend.LegendStyle:=lsSeries;
fd:=1;ys:='';
for j:=1 to 7 do begin
fd:=fd+(j/0.4);
ys:=ys+';'+FloatToStr(fd);
end;
s:=tChartSeries(tLineSeries);
s.Create(Chart1);
ser:=Chart1.SeriesData.Add;
Chart1.Chart.AddSeries(s);
with Chart1.SeriesData[0] do
begin
DataType := dtFixedData;
XSource := 'Jan;Feb;Mar;Apr';
YSource := ys;
end;
end;
Комментарии
Все теперь мне понятно..... Спасибо....