Tchart ==>> Tfrxchartview

_andrews_

в делфи создаю чарт на основе данных БД
необходимо СОЗДАТЬ ТАКОЙ ЖЕ чарт в ФастРепорте Run-Time из делфи
КАК это сделать?*

Как присвоить значения данных из TChart.Series в TfrxChartView.Chart.Series??
или
Как Run-Time "привязать" TfrxChartView к набору данных и построить график по ним?

-=Den=-

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

_andrews_

написал: »

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

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

написал: »

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

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

-=Den=-

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

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;