Tchart ==>> Tfrxchartview

Комментарии

• -=Den=-

  January 2008 отредактировано 19:19

  Проще отрисовать построенный чарт на битмапе и передать его в ФР.
  Для ФР не достаточно просто скопировать серии, данные берутся из TfrxChartView.SeriesData .
  
• _andrews_

  January 2008 отредактировано 19:19

  написал: »

  Проще отрисовать построенный чарт на битмапе и передать его в ФР.

  я знаю что это проще
  мне не нужен TfrxPictureView
  Мне нужно использовать именно TfrxChartView
  потому что в отчете необходимо иметь доступ к этому Чарту и к его данным
  с картинки же, ничего взять нельзя
  картинка-она как му-му!
  :-)
  ничего не скажет

  написал: »

  Для ФР не достаточно просто скопировать серии, данные берутся из TfrxChartView.SeriesData .

  а можно подробней
  чего будет достаточно?*
• -=Den=-

  January 2008 отредактировано 19:19

  Придется копировать серии, примерно так:
  

  var
    c:TfrxChartView;
     i:integer;
  begin
    c := Report.FindObject('Chart1') as TfrxChartView;
    if c <> nil then
    begin 
      c.Chart.Assign(Chart1);
      for i := 0 to Chart1.SeriesCount - 1 do
      begin
       c.Chart.AddSeries(Chart1.Series[i]);
       c.Chart.Series[i].DataSource := nil;
      end;
  
      with c.SeriesData.Add do
      begin
        DataType := dtDBData;
        DataSet := frxDBDataset;
        SortOrder := soNone;
        XType := xtDate;
        Source1 := DataSet.UserName +'."Field1"';
        Source2 := DataSet.UserName +'."Field2"';
        Source3 := DataSet.UserName +'."Field3"';
      end;
    end;
    report.showreport;
  end;