Работа с Tfrxchartview в скрипте

отредактировано 01:35 Раздел: FastReport 4.0
Здравствуйте.
Просмотрел весь форум по данной тематике, но решение для себя так и не нашел.
Мне нужно в скрипте для существующего на странице <Chart1: TfrxChartView>
динамически добавить серию типа <TLineSeries> и указать для этой серии
источник данных типа <TfrxADOQuery> с его двумя полями.
Покажите пожалуйста пример скрипта для такой ситуации, буду Вам очень благодарен,
да и не только я. Наверняка у Вас есть какие-нибудь старые примеры.
Для работы использую <FastReport 4.9.100> и <TeeChart Pro 8.0.6>.
Ответьте пожалуйста.

Комментарии

  • gpigpi
    отредактировано 01:35
    Chart1.AddSeries(csLine);
         with Chart1.SeriesData[0] do
           begin
             DataType := dtDBData;
             DataSet := ADOQuery1;                                                               
             XSource := 'ADOQuery1."X"';
             YSource := 'ADOQuery1."Y"';
           end;
    
  • отредактировано 01:35
    Благодарю, ничего лишнего, все лаконично и просто. Респект Вам.
  • отредактировано 01:35
    gpi написал: »
    Chart1.AddSeries(csLine);
         with Chart1.SeriesData[0] do
           begin
             DataType := dtDBData;
             DataSet := ADOQuery1;                                                               
             XSource := 'ADOQuery1."X"';
             YSource := 'ADOQuery1."Y"';
           end;
    

    Подскажите пожалуйста одну тонкость. Вышеприведенный код работает только для заранее созданного в вкладке "ДАННЫЕ"
    объекта <ADOQuery1>. А если мне в скрипте необходимо динамически создать N объектов для N серий, то это уже не работает.
    Ну может и работает, только я не знаю как зарегистрировать в скрипте очередной <ADOQuery1>.
    Что-нибудь типа:
    var
    q: TfrxADOQuery;
    begin
    q := TfrxADOQuery.Create(nil);
    q.DataBase := ....;
    q.SQL.Add('......');
    ............
    Как зарегить динамически созданный объект?
    ............
    Chart1.AddSeries(csLine);
    with Chart1.SeriesData[0] do
    begin
    DataType := dtDBData;
    DataSet := q;
    XSource := 'q."Field1"';
    YSource := 'q."Field2"';
    end;
    .............

    end;

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

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.