Старое о динамическом Chart

cav

Наверное я опять повторяюсь (см. тему http://www.fast-report.com/ru/forum/index....&hl=chart&st=0)

Но собственоо вопрос так и не решон.
Итак условия задачи:
Имеется отчет у которого на 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;

Не работает выдает ошибку на Chart1.Chart.AddSeries(s) - неопределенный идентификатор AddSeries. версия FR3.23/D5. Как же всетаки сделать серии из отчета ?

-=Den=-

Добавлять серии из скрипта нельзя(нет зарегистрированных методов), можно создать функцию в delphi и добавить ее в скрипт, или добавить нужные методы к классу TChart и TChartSeries.

Menshchikov

Пардон, не вник в исходное сообщение (удаление своих сообщений не нашел).

cav

to Den
Все теперь мне понятно..... Спасибо....