Используя свойства объекта PageSetup, мы можем задать величину полей
печатной страницы, а также положение верхнего и нижнего колонтитулов.
Это достигается записью значений этих полей в свойства LeftMargin,
RightMargin, TopMargin, BottomMargin, HeaderMargin, FooterMargin. Сле-
дующие процедуры позволяют приложению Delphi задать левое и правое
поля страницы.
Задание размеров полей страницы
procedure ToKBottomDlg2.LeftMarginChange(Sender: TObject);
begin
PageSetup.LeftMargin:=LeftMargin.Value;
end;
procedure TOKBottomDlg2.RightMarginChange(Sender: TObj ect);
begin
PageSetup.RightMargin:=RightMargin.Value;
end;
В нашем примере величина полей задается в произвольных единицах, т. е.
в пикселах. Чтобы привязать все размеры к реальным единицам измерения,
нужно выполнить преобразование. В среде Visual Basic такие преобразова-
ния выполняют функции InchesToPoints и CentimetersToPoints, преобра-
зующие величину, выраженную в дюймах и сантиметрах, в количество то-
чек. Если эти функции недоступны из приложений Delphi, то используем
следующие соотношения — в одной точке 0,035 см или 1/72 дюйма. |
Главная
Каталог файлов
