type TSSectWare = class
public
    function Create();
    function Do();

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;