Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Chart из Delphi в FastReport

Автор: AHgpeu 1.11.2007, 15:52

Дело вот в чем:
В Делфи в Run-Time добавляется N-количество Chart'ов
Затем необходимо построить отчет по ним
Соответственно, при построении отчета мне необходимо Chart'ы перенести в FR

Что посоветуете?*
Как это лучше реализовать?*

Автор: Vas 1.11.2007, 16:51

Предположу, что видимо также строить N-Количество frCharJbject. Только вот я их никогда не юзал :(

Автор: AHgpeu 1.11.2007, 17:39

Имхо-Строить N Chart'ов-двойная, не нужная работа.
У меня была логика такая:
Пробегать по всем Chart'ам в Делфи, затем добавлять для каждого из них по объекту TfrxPictureView в FR и копировать в него изображение с Chart'a:

Код


var
  frxName: String;
  tmpfrx: TfrxComponent;
begin
  frxName := 'Name1';
  //.................добавляю в скрипт
  Add('  Picture:= TfrxPictureView.Create(Page1);'); // создание объекта TfrxPictureView
  Add('  Picture.Name := '''+frxName+''';');
  Add('  Picture.SetBounds(....);
  //Поиск созданого компонента
  tmpfrx := frxReport.FindObject(frxName) as TfrxPictureView; // tmpfrx = NIL!!!!!!!!
  //...
end;

Почему tmpfrx = NIL я понял (Объект то создается только после выполнения отчета. А на данном этапе его еще нет...)
а tmpfrx мне нужен вот для чего:

Код


TfrxPictureView(tmpfrx).Picture.Assign((ControlGlobal as TDBChart).TeeCreateMetafile(False, Rect(0, 0, ControlGlobal.Width,ControlGlobal.Height))); //Передача картинки в frxPictureView

У кого какие соображения на этот счет?*