Chart in FasrReport

Комментарии

• AlexTZ

  September 2004 отредактировано 16:23

  Это лучше всего сделать с помощью объекта 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

  September 2004 отредактировано 16:23

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

  September 2004 отредактировано 16:23

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

  September 2004 отредактировано 16:23

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

  September 2004 отредактировано 16:23

  А для 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;