Procedure

ScanTree

Module

fTemplateEditor

Last Modified

7/15/2014 3:26:44 PM

Scope

Local

Local subprogram to

ScanNames

Declaration

procedure ScanTree(Tree: TTreeView);

Calls Hierarchy


ScanTree
 └BadTemplateName

Called-By Hierarchy


                                ScanTree
          TfrmTemplateEditor.ScanNames┘ 
    TfrmTemplateEditor.btnApplyClick┤   
TfrmTemplateEditor.mnuRefreshClick┘ │   
       TfrmTemplateEditor.btnOKClick┤   
   TfrmTemplateEditor.FormCloseQuery┘   

Calls

Name Declaration Comments
BadTemplateName function BadTemplateName(Text: string): boolean; -

Called-By

Name Declaration Comments
TfrmTemplateEditor.ScanNames function ScanNames: boolean; -


Source

2643  procedure ScanTree(Tree: TTreeView);
2644  begin
2645    Node := Tree.Items.GetFirstNode;
2646    while (assigned(Node)) do
2647    begin
2648      if (Node.Text <> EmptyNodeText) and (assigned(Node.Data)) then
2649      begin
2650        if (BadTemplateName(Node.Text)) then
2651          Errors.Add(Node);
2652      end;
2653      Node := Node.GetNext;
2654    end;
2655  end;