Function

TfrmTemplateDialog.IsAncestor

Module

fTemplateDialog

Last Modified

7/15/2014 3:26:44 PM

Visibility

Private

Owner

TfrmTemplateDialog

Declaration

function IsAncestor( OldID: string; NewID: string): boolean;

Calls Hierarchy


TfrmTemplateDialog.IsAncestor
 ├..(rec)..
 ├TfrmTemplateDialog.GetParentID
 └TfrmTemplateDialog.FindObjectByID
   └TfrmTemplateDialog.GetObjectID

Called-By Hierarchy


           TfrmTemplateDialog.IsAncestor
                             ..(rec)..┘ 

Calls

Name Declaration Comments
TfrmTemplateDialog.FindObjectByID function FindObjectByID( id: string): TControl; -
TfrmTemplateDialog.GetParentID function GetParentID( Control: TControl): string; -
TfrmTemplateDialog.IsAncestor function IsAncestor( OldID: string; NewID: string): boolean; -

Called-By

Name Declaration Comments
TfrmTemplateDialog.IsAncestor function IsAncestor( OldID: string; NewID: string): boolean; -


Source

431   function TfrmTemplateDialog.IsAncestor( OldID: string; NewID: string): boolean;
432   begin
433     if (OldID = '') or (NewID = '') then
434       result := False
435     else if OldID = NewID then
436       result := True
437     else
438       result := IsAncestor(OldID, GetParentID(FindObjectByID(NewID)));
439   end;