Создание диаграммы из скрипта

cav · March 2006

Уважаемые формумчане пните в нужную сторону, имеется следущая проблемма.
Нужно в обработке OnBeforePrint объекта Chart принадлежащему отчету сделать следующие:
В реалтайме создать несколько серий у объекта Chart и заполнит их данными.
Сколько серий неизвестно. и завист от количества данных. Начинаю делать следующим образом :
var
i:integer;
ic:integer;
SerDiT:TfrxSeriesItem;
SerDt:TfrxSeriesData;
begin
Chart1.Chart.legend.LegendStyle:=lsSeries
for i:=1 to 4 do begin

end;
end;
И все дальше клинит и нет никакой мысли что делать.

. Мануалы читал. Нелп тоже. Идей как создать серии и связать с Chart не появилось.

-=Den=- · March 2006

Из Delphi можно так:

var
  s: TChartSeries;
  Chart1:TfrxChartView;
  Ser:TfrxSeriesItem;
begin
Chart1 := frxReport1.FindObject('Chart1') as TfrxChartView;
s:= Chart1.Chart.AddSeries(TLineSeries.Create(nil));
ser := Chart1.SeriesData.Add;
ser.DataType := dtFixedData;
ser.XSource := '1;2;3;4;5;6';
ser.YSource := '1;2;3;4;5;6';
  with Chart1.Chart do
  begin
    View3DOptions.Orthogonal := True;
    AxisVisible := True;
    View3DWalls := True;
  end;

cav · March 2006

Спасибо пойду пробовать. Но честно говоря хотелось из отчета (из скрипта)

Создание диаграммы из скрипта

Комментарии

Оставить комментарий