Динамическое изменение ориентации страницы

mvb

По умолчанию страница poLandscape, при использовании объекта DBCross иногда желательно "перевернуть" страницу на poPortrait. Делаю так (отчет двухпроходной):

var CrossMaxWidth: extended = 0;                                                                  

procedure DBCross1OnAfterPrint(Sender: TfrxComponent);
begin
     if not Engine.FinalPass then
     begin
       if DBCross1.Width > CrossMaxWidth then
        CrossMaxWidth := DBCross1.Width;                      
     end
end;

procedure ReportTitle1OnBeforePrint(Sender: TfrxComponent);
begin
     if Engine.FinalPass then
     begin                 
      if CrossMaxWidth < Page1.PaperWidth div 2 then
      begin                  
       Page1.PaperSize := 9;  // DMPAPER_A4                                                          
       Page1.Orientation := poPortrait;
      end;                            
     end;                
end;

но размеры страницы не меняются. Что делать?

gpi

Параметры TfrxReportPage можно поменять только в главной процедуре скрипта или перед началом его формирования. Т.е. Вам нужно два раза формировать однопроходный отчёт

mvb

gpi написал: »

Параметры TfrxReportPage можно поменять только в главной процедуре скрипта или перед началом его формирования. Т.е. Вам нужно два раза формировать однопроходный отчёт

Понятно. Только как это сделать, если отчет автономный (не рисуется кодом)?

gpi

frxReport1.EngineOptions.DestroyForms := False;
frxReport1.PrepareReport;
if frxReport1.Variables.Variables['NeedChangeOrientation'] then
  TfrxReportPage(frxReport1.FindObject('Page1')).Orientation := poPortrait;
frxReport1.ShowReport;

mvb

Это же в дельфи-коде? Или в скрипте?

gpi

написал:

Это же в дельфи-коде?

Да, в скрипте нужно только установить NeedChangeOrientation

mvb

gpi написал: »

Да, в скрипте нужно только установить NeedChangeOrientation

понятно, такое не пойдет, ибо отчет автономный, буду иначе выкручиваться. Спасибо за ответы.