Изменение Page.Orientation.

ItMan · May 2004

В засимости от условия, идет указание Ориентации.
т.е Если выбраны широкие поля, то формируется альбомная.
Пишу:

if CB5.CHECKED=TRUE THEN
 BEgin
  page5.Orientation := 1;
  Memo51.Visible := true;
  Memo50.Visible := true;
 end;

Все было бы прекрасно, даже пофиг с отображением, но дальше границы поля Портативной текст не идет.
Есть ли способы исправления?..
Версия 2.51.

bakh · May 2004

Кстати, если в рантайме присвоить TfrReport.pgOr := poLandscape то в свойствах страницы оно будет указано правильно, а отображаться при редактировании - нет...

AlexTZ · May 2004

Настройки страницы меняются с помощью Page.ChangePaper:
procedure ChangePaper(ASize, AWidth, AHeight, ABin: Integer; AOr: TPrinterOrientation);

bakh · May 2004

AlexTZ написал:

procedure ChangePaper(ASize, AWidth, AHeight, ABin: Integer; AOr: TPrinterOrientation);

Пробовал... Ругается на то, что incompatible types "Integer" and "TPageOrientation"...
[5 minutes later]
Блин, шаман!.. Сработало!..

))
Сначала писал Page.ChangePaper(8, 0, 0, 0, poLandscape); - ругалось...
Присвоил Page.pgOr := poLandscape;, а потом Page.ChangePaper(8, 0, 0, 0, Page.pgOr); - прокатило!.. Странно это... %)

Изменение Page.Orientation.

Комментарии

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