Фоновая картинка на всю страницу

Hten

Люди добрые, подскажите как установить фоновую картинку на ВСЮ площадь страницы?
Page.BackPicture всегда печатается почему-то под RepotTitle. И все это соответственно с отступами.
Пробовал отдельный frxPicture на всю страницу вне бэндов ставить - поведение такое-же как и в случае с BackPicture.

Мне же нужно вывести именно фоновую картинку игнорируя любые бэнды и отступы. И само собой картинка должна печататься на каждой странице.

Если ли штатный метод для этого? И если нет, то хоть подскажите куда копать?

gpi

Что мешает сделать отчёт без отступов?
Или попробуйте модифицировать frxClass.pas

  TfrxReportPage = class(TfrxPage)
  private
    FBackPicture: TfrxPictureView;
   ...
    FBackPictureStretched: Boolean;
    FBackPictureMarginless: Boolean;    //++++++++++
    FPageCount: Integer;
...
    property BackPictureStretched: Boolean read FBackPictureStretched write FBackPictureStretched default True;
    property BackPictureMarginless: Boolean read FBackPictureMarginless write FBackPictureMarginless
             default False;      //++++++++++
    property PageCount: Integer read FPageCount write SetPageCount default 1;
...

procedure TfrxReportPage.Draw(Canvas: TCanvas; ScaleX, ScaleY, OffsetX,
  OffsetY: Extended);
begin
  if FBackPictureStretched then
    begin
      if FBackPictureMarginless then                   //++++++++
      begin                                            //++++++++
        FBackPicture.Width := FPaperWidth * fr01cm;    //++++++++
        FBackPicture.Height := FPaperHeight * fr01cm;  //++++++++
      end else                                         //++++++++
      begin                                            //++++++++
        FBackPicture.Width := (FPaperWidth - FLeftMargin - FRightMargin) * fr01cm;
        FBackPicture.Height := (FPaperHeight - FTopMargin - FBottomMargin) * fr01cm;
      end;                                             //++++++++
    end
  else
    begin
      FBackPicture.Width := FBackPicture.Picture.Width;
      FBackPicture.Height := FBackPicture.Picture.Height;
    end;
  if FBackPictureVisible and (not IsPrinting or FBackPicturePrintable) then
  if FBackPictureMarginless then                //++++++++
    FBackPicture.Draw(Canvas, ScaleX, ScaleY,   //++++++++
    OffsetX * ScaleX, OffsetY * ScaleY)         //++++++++
  else                                          //++++++++
    FBackPicture.Draw(Canvas, ScaleX, ScaleY,
      OffsetX + FLeftMargin * fr01cm * ScaleX,
      OffsetY + FTopMargin * fr01cm * ScaleY);
end;

Hten

Спасибо за ответ.

Отчет без отступов делать нельзя в моем случае.
На счет изменения frxClass, думал что буду это делать в последнюю очередь. Если ничего больше не поможет.

В итоге, решил проблему с помощью Картинки в Overlay бэнде(нужно для печати картинки на каждой странице).

А саму картинку подгоняю по размеру страницы с помощью такого кода:

    BackgroundPicture.Left:= -Page1.LeftMargin * fr01cm;
    BackgroundPicture.Top:= -Page1.TopMargin * fr01cm;
    BackgroundPicture.Width:= Page1.PaperWidth * fr01cm;
    BackgroundPicture.Height:= Page1.PaperHeight * fr01cm;

Главное - чтобы у картинки было:
Stretched = false;
Align = baNone;