35 lines
1.1 KiB
Plaintext
35 lines
1.1 KiB
Plaintext
type TSSectWare = class
|
|
public
|
|
function Create();
|
|
function Destroy();
|
|
function Do();
|
|
function AddElement(element: tslobj);
|
|
|
|
public
|
|
Elements: array of tslobj;
|
|
SectPr: SectPrUnitDecorator;
|
|
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
|
|
{self.}Elements[length({self.}Elements)] := element;
|
|
end;
|