Chart in FasrReport

ABalu

Добрый день!
Скачал FR3 и поставил на BCB6!
Подскажите, пожалуйста, а как можно поместить в отчет
Chart из формы BCB6? (смотрел подобный вопрос для Делфи,
но не нашел метод Assign.Chart(...) в BCB6)
Жду вашей помощи,
с уважением Александр.

AlexTZ

Это лучше всего сделать с помощью объекта TfrxPictureView. Поместите пустой объект в отчет и в TfrxReport.OnBeforePrint напишите:

procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent);
begin
  if Sender.Name = 'Picture1' then
    TfrxPictureView(Sender).Picture.Assign(
      Chart1.TeeCreateMetafile(False,
        Rect(0, 0, Round(Sender.Width), Round(Sender.Height))));
end;

ABalu

И в этом случае появляется ошибка Access Violation ...

AlexTZ

У меня все работает - брал код из рабочего примера.

ABalu

А код в среде Делфи? Для BCB6 есть рабочий код?

AlexTZ

А для BCB нет поправлено...
PS: может кто-нибудь объяснить, ПОЧЕМУ пример 1) не работает в BCB (свойство равно NULL), а пример 2) - работает?

1)

  TfrxPictureView = class(TfrxView)
  private
    FPicture: TPicture;
  published
    property Picture: TPicture read FPicture write SetPicture;
  end;

2)

  TfrxPictureView = class(TfrxView)
  private
    FPicture: TPicture;
    function GetPicture: TPicture;
  published
    property Picture: TPicture read GetPicture write SetPicture;
  end;

function TfrxPictureView.GetPicture: TPicture;
begin
  Result := FPicture;
end;