Не работает задание ориентации страницы
Добрый день.
Скажите пожалуйста, почему я не могу из кода 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;
Скажите пожалуйста, почему я не могу из кода 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;
Комментарии