Не работает задание ориентации страницы

отредактировано 10:51 Раздел: FastReport 4.0
Добрый день.
Скажите пожалуйста, почему я не могу из кода Delphi7 задать ориентацию страницы в отчете ?
Ориентация ВСЕГДА получается почему-то портретной, хотя условие задания корректное (проверял).
В чем может быть кекс ? Заранее спасибо.

procedure TfrmBox.rptBeforePrint(Sender: TfrxReportComponent);
var page: TfrxReportPage;
begin
page := rpt.Pages[1] as TfrxReportPage;
if Map.Picture.Height > Map.Picture.Width
then TfrxReportPage(page).Orientation := poPortrait
else TfrxReportPage(page).Orientation := poLandscape;
if Sender.Name = 'Picture1' then TfrxPictureView(Sender).Picture.Assign(Map.Picture);
end;

Комментарии

  • отредактировано 10:51
    Во время построения отчета ориентацию страницы менять нельзя.

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

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.