ОТСТУПЫ страницы

grisv

Подскажите, как задать отступ слева или сверху страницы перед открытием отчета. Т.е. есть какое-то значение изменяемое пользователем. При открытии отчета программа должна выставлять по этому значению левое поле отчета. В версии 2_50 бало что-то вроде FrReport1.Pages[0].ppMarning.Left:=20; и все работало, а в 3_04 ppMarning вообще нет. Пишу FrReport1.Pages[0].leftMarning:=10; нет leftMarning. Если в исходнике отчета Page1.leftMarning:=10;, то ошибки нет, но ни какой реакции текст где стоял там и стоит.

AlexTZ

TfrxReportPage(frxReport1.Pages[0]).LeftMargin := ...

Konst

А как узнать какая в данный момент страница открыта?
Pages[0] или 1 или 2 ???

AlexTZ

Какая нужна, ту и меняй.

Konst

Как менять понятно.
но как определить какая активна
типа Page.ItemIndex
ActivePageIndex
или что то в этом духе

grisv

Спасибо !

Bogatov

CodeGear™ Delphi® 2007 for Win32® Version 11.0.2902.10471
FR 4.10.1
Свойства frxRep1 - по умолчанию.
Отчет - из одной страницы
Это вариант НЕ РАББОТАЕТ

procedure TDMm.frxRep1BeforePrint(Sender: TfrxReportComponent);
var Page: TfrxReportPage;
begin
Page := TfrxReportPage(frxRep1.Pages[0]);
Page.Left := 10;
Page.Top := 10;
end;

Это вариант вызывает AV

procedure TDMm.frxRep1BeforePrint(Sender: TfrxReportComponent);
var Page: TfrxReportPage;
begin
Page := TfrxReportPage(frxRep1.Pages[0]);
Page.LeftMargin := 10;
Page.TopMargin := 10;
end;

gpi

var Page: TfrxReportPage;
begin
Page := TfrxReportPage(frxRep1.Pages[1]);// 1 - если в отчёте нет диалоговых форм
Page.LeftMargin := 10;
Page.TopMargin := 10; 
frxRep1.ShowReport;
end;