35 lines
1.0 KiB
Plaintext
35 lines
1.0 KiB
Plaintext
type TSSectWare = class
|
|
public
|
|
function Create();
|
|
function Destroy();
|
|
function Do();
|
|
function AddElement(element: tslobj);
|
|
|
|
public
|
|
Elements: array of tslobj;
|
|
SectPr: SectPr;
|
|
BaseSize: integer;
|
|
end;
|
|
|
|
function TSSectWare.Create();
|
|
begin
|
|
self.Elements := array();
|
|
self.SectPr := nil;
|
|
self.BaseSize := 0;
|
|
end;
|
|
|
|
function TSSectWare.Do();
|
|
begin
|
|
if ifObj(self.SectPr) then
|
|
self.BaseSize := round(self.SectPr.DocGrid.LinePitch * 0.75);
|
|
// println("LinePitch = {}, Type = {}", self.SectPr.DocGrid.LinePitch, self.SectPr.DocGrid.Type);
|
|
// println("Width = {}, Height = {}", self.SectPr.PgSz.W, self.SectPr.PgSz.H);
|
|
// println("Top = {}, Right = {}, Bottom = {}, Left = {}, Header = {}, Footer = {}\n",
|
|
// self.SectPr.PgMar.Top, self.SectPr.PgMar.Right, self.SectPr.PgMar.Bottom, self.SectPr.PgMar.Left, self.SectPr.PgMar.Header, self.SectPr.PgMar.Footer);
|
|
end;
|
|
|
|
function TSSectWare.AddElement(element: tslobj);
|
|
begin
|
|
Elements[length(Elements)] := element;
|
|
end;
|