Изменение Page.Orientation.
В засимости от условия, идет указание Ориентации.
т.е Если выбраны широкие поля, то формируется альбомная.
Пишу:
Все было бы прекрасно, даже пофиг с отображением, но дальше границы поля Портативной текст не идет.
Есть ли способы исправления?..
Версия 2.51.
т.е Если выбраны широкие поля, то формируется альбомная.
Пишу:
if CB5.CHECKED=TRUE THEN
BEgin
page5.Orientation := 1;
Memo51.Visible := true;
Memo50.Visible := true;
end;
Все было бы прекрасно, даже пофиг с отображением, но дальше границы поля Портативной текст не идет.
Есть ли способы исправления?..
Версия 2.51.
Комментарии
procedure ChangePaper(ASize, AWidth, AHeight, ABin: Integer; AOr: TPrinterOrientation);
[5 minutes later]
Блин, шаман!.. Сработало!.. ))
Сначала писал Page.ChangePaper(8, 0, 0, 0, poLandscape); - ругалось...
Присвоил Page.pgOr := poLandscape;, а потом Page.ChangePaper(8, 0, 0, 0, Page.pgOr); - прокатило!.. Странно это... %)