Вставка мемо на лист

sam_peter · February 2011

Здравствуйте.
Имеется отчет, с одной странице в редакторе (Page1).
При построении отчет переносится на несколько листов(например, получаем 3 листа).

Есть ли возможность при построении отчета руками создать Memo и поместить на текущий лист в любое место ?

Т.е. на первом листе поместить Memo внизу листа, на втором - посередине, на третьем - внизу сбоку.

Есть метод Memo.Create()- у него надо указать parent.
Если указать parent Page1, то все рисуется в нужных местах, но только на первом листе.

gpi · February 2011

Попробуйте использовать TfrxReport.OnPrintPage.
Данный код распологает мемо на определённом месте, но Вы можете модифицировать его для себя

procedure TForm1.frxReport1PrintPage(Page: TfrxReportPage;
  CopyNo: Integer);
var m: TfrxMemoView;
begin
         m:=TfrxMemoView.Create(page);
         m.CreateUniqueName;
         m.SetBounds(0, 0, (page.PaperWidth  - page.RightMargin - page.LeftMargin) * fr01cm, (page.PaperHeight - page.TopMargin - page.BottomMargin) * fr01cm);
         m.Text := 'Demo';
         m.Rotation := 45;
         m.Font.Size := 128;
         m.VAlign := vaCenter;
         m.HAlign := haCenter;
end;

sam_peter · February 2011

gpi написал: »

Попробуйте использовать TfrxReport.OnPrintPage.
Данный код распологает мемо на определённом месте, но Вы можете модифицировать его для себя

К сожалению мне доступен только код самого отчета.
Т.е. мне необходимо это реализовать из скрипта самого отчета.

gpi · February 2011

Тогда разместите требуемый элемент на заголовке страницы и управляйте его положением в событии TfrxPageHeader.OnBeforePrint

Вставка мемо на лист

Комментарии

Оставить комментарий