Несколько графиков на одной плоскости

crazypiggy · August 2015

Добрый день. Можно ли в FastReport в Chart реализовать несколько графиков на одной плоскости.
Пытался сделать следующим способом. Кинул на отчерт заголовок группы с группировкой по полю из датасет, мастер дата с нулевой высотой и подвал группы вслед за ним мастерадата с chart.
Следующий код на бенды

procedure GroupHeader1OnBeforePrint(Sender: TfrxComponent);
begin
    Chart1.AddSeries(csLine);
    with Chart1.SeriesData[0] do
       begin
         DataType := dtFixedData;
       end;
end;

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
 with Chart1.SeriesData[0] do
       begin    
         XSource := XSource+TimeToStr(FAbonInWeek.FieldByName('StartTime').Value)+'-'+TimeToStr(FAbonInWeek.FieldByName('StopTime').Value)+';';
         YSource := YSource+IntToSTr(FAbonInWeek.FieldByName('Count').Value)+';';
       end;
end;

begin
             
 FAboninWeek.CLose;
 FAboninWeek.ParamByName('Step').Value:='30';
 FAboninWeek.ParamByName('d1').Value:='01.07.2015';
 FAbonInWeek.ParamByName('d2').Value:='10.07.2015';
 FAbonInWeek.Open;

Помогите решить проблему

gpi · August 2015

Создайте ещё одну серию

crazypiggy · August 2015

gpi написал: »

Создайте ещё одну серию

Мне кажется что здесь на каждую группу создается серия. Этот пример я нашел на этом форуме, но как там было предложено он не заработал.

procedure GroupHeader1OnBeforePrint(Sender: TfrxComponent);
begin
    Chart1.AddSeries(csLine);
    with Chart1.SeriesData[0] do
       begin
         DataType := dtFixedData;
       end;
end;

Хотел доделать, но ничего не выходит. Может подскажите правильность и действий?

crazypiggy · August 2015

Все, разобрался.

Несколько графиков на одной плоскости

Комментарии

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