TDefineTemplate

type TDefineTemplate = class

public

  Name: string;

  Description: string;

  Variable: string;

  Value: string;

  Action: TDefineAction;

  Flags: TDefineTemplateFlags;

  Owner: TObject;

  class procedure MergeTemplates();

  class procedure MergeXMLConfig();

  constructor Create();

  destructor Destroy; override;

  procedure ConsistencyCheck;

  procedure CalcMemSize();

  function CreateCopy();

  function CreateMergeCopy;

  function FindByName();

  function FindChildByName();

  function FindRoot;

  function FindUniqueName();

  function GetFirstSibling;

  function HasDefines();

  function IsAutoGenerated;

  function IsEqual();

  function Level;

  function LoadFromXMLConfig();

  function SelfOrParentContainsFlag();

  procedure AddChild();

  procedure ReplaceChild();

  function DeleteChild();

  procedure Assign(); virtual;

  procedure AssignValues();

  procedure Clear();

  procedure CreateMergeInfo();

  procedure InheritMarks();

  procedure InsertBehind();

  procedure InsertInFront();

  procedure MoveToLast();

  procedure LoadValuesFromXMLConfig();

  procedure MarkFlags();

  procedure MarkNodes();

  procedure MarkOwnedBy();

  procedure RemoveFlags();

  procedure RemoveLeaves();

  procedure RemoveMarked();

  procedure RemoveOwner();

  procedure ReverseMarks();

  procedure SaveToXMLConfig();

  procedure SaveValuesToXMLConfig();

  procedure SetDefineOwner();

  procedure SetFlags();

  procedure Unbind;

  procedure UnmarkNodes();

  procedure WriteDebugReport();

  function GetNext;

  function GetNextSkipChildren;

  property ChildCount: Integer; [r]

  property FirstChild: TDefineTemplate; [r]

  property LastChild: TDefineTemplate; [r]

  property Marked: Boolean; [rw]

  property Next: TDefineTemplate; [r]

  property Parent: TDefineTemplate; [r]

  property Prior: TDefineTemplate; [r]

  property MergeNameInFront: string; [rw]

  property MergeNameBehind: string; [rw]

end;

TDefineTemplate

TObject