Procedure

TTemplate.RemoveChild

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public

Owner

TTemplate

Declaration

procedure RemoveChild(Child: TTemplate);

Calls Hierarchy


TTemplate.RemoveChild
 ├TTemplate.GetItems
 │ └ExpandTemplate
 │   ├TTemplate.GetChildren
 │   ├GetTemplateChildren
 │   ├AddTemplate
 │   │ ├TTemplate.Create
 │   │ │ └TTemplate.ReminderDialogIEN
 │   │ └TTemplate.AddChild
 │   │   └TTemplate.GetItems...
 │   └TTemplate.ItemIENs
 │     └TTemplate.GetItems...
 └TTemplate.CanModify
   ├TTemplate.ValidID
   └LockTemplate

Called-By Hierarchy


                    TTemplate.RemoveChild
       TfrmTemplateEditor.sbDeleteClick┘ 
TfrmTemplateEditor.mnuNodeDeleteClick┤   
     TfrmTemplateEditor.tvTreeKeyDown┘   

Calls

Name Declaration Comments
TTemplate.CanModify function CanModify: boolean; -
TTemplate.GetItems function GetItems: TList; -

Called-By

Name Declaration Comments
TfrmTemplateEditor.sbDeleteClick procedure sbDeleteClick(Sender: TObject); -


Source

1715  procedure TTemplate.RemoveChild(Child: TTemplate);
1716  var
1717    idx: integer;
1718  
1719  begin
1720    GetItems;
1721    idx := FItems.IndexOf(Child);
1722    if(idx >= 0) and CanModify then
1723      FItems.delete(idx);
1724  end;