Class TGlPanelinfo (unit panelinf)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor destroy;


procedure refresh;


function createString(depth : integer;siblingString,name,alignString, typeString: string):string;

The format of the output is determined by this function

function getPanelInfo(f : Tform; s : Tstringlist):Tstringlist;


procedure processPanel(p : twincontrol;strlist : tstringlist; depth : integer);

recursive function

procedure processWincontrol(p : twincontrol;strlist : tstringlist; depth : integer);

for non-TcustomPanel based controls derived from Twincontrol

function readStrings:TstringList;


procedure setstrings(s : Tstringlist);

classname, instead of name, due to D1 bug

function createDepthedString(s : string; i : integer):string;


function getIndent:integer;


function hasPanels(p : Twincontrol):boolean;


procedure setIndent(i : integer);


Properties

property Indent : integer


property Options : TglPiOptions


property Panelling : Tstringlist


property Splitters : TsplitterOptions


Events

Variables

Findent : string;


Foptions : TglPiOptions;


FsplitterOpts : TsplitterOptions;


FstrList : Tstringlist;


siblingNumber : integer;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor destroy;


procedure refresh;


function createString(depth : integer;siblingString,name,alignString, typeString: string):string;

The format of the output is determined by this function


function getPanelInfo(f : Tform; s : Tstringlist):Tstringlist;


procedure processPanel(p : twincontrol;strlist : tstringlist; depth : integer);

recursive function


procedure processWincontrol(p : twincontrol;strlist : tstringlist; depth : integer);

for non-TcustomPanel based controls derived from Twincontrol


function readStrings:TstringList;


procedure setstrings(s : Tstringlist);

classname, instead of name, due to D1 bug


function createDepthedString(s : string; i : integer):string;


function getIndent:integer;


function hasPanels(p : Twincontrol):boolean;


procedure setIndent(i : integer);


Properties


property Indent : integer


property Options : TglPiOptions


property Panelling : Tstringlist


property Splitters : TsplitterOptions


Events


Variables


Findent : string;


Foptions : TglPiOptions;


FsplitterOpts : TsplitterOptions;


FstrList : Tstringlist;


siblingNumber : integer;