Procedure

MarkDeleted

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure MarkDeleted(Template: TTemplate);

Calls Hierarchy


MarkDeleted
 ├TTemplate.ValidID
 ├TTemplate.SetFileLink
 │ └TTemplate.AssignFileLink
 │   ├TTemplate.CanModify
 │   │ ├TTemplate.ValidID
 │   │ └LockTemplate
 │   ├TTemplate.ValidID
 │   ├TTemplate.LinkType
 │   ├TTemplate.SetReminderDialog
 │   │ ├TTemplate.CanModify...
 │   │ ├TTemplate.ValidID
 │   │ ├TTemplate.ReminderDialogIEN
 │   │ ├TTemplate.LinkType
 │   │ └TTemplate.SetFileLink...
 │   ├TTemplate.GetItems
 │   │ └ExpandTemplate
 │   │   ├TTemplate.GetChildren
 │   │   ├GetTemplateChildren
 │   │   ├AddTemplate
 │   │   │ ├TTemplate.Create
 │   │   │ │ └TTemplate.ReminderDialogIEN
 │   │   │ └TTemplate.AddChild
 │   │   │   └TTemplate.GetItems...
 │   │   └TTemplate.ItemIENs
 │   │     └TTemplate.GetItems...
 │   └..(rec)..
 ├TTemplate.GetItems...
 └..(rec)..

Called-By Hierarchy


                                     MarkDeleted
                                     ..(rec)..┤ 
              TfrmTemplateEditor.sbDeleteClick┤ 
       TfrmTemplateEditor.mnuNodeDeleteClick┤ │ 
            TfrmTemplateEditor.tvTreeKeyDown┘ │ 
                      TfrmTemplateEditor.Clone┘ 
              TfrmTemplateEditor.btnNewClick┤   
                             EditTemplates┤ │   
     TfrmDCSumm.popSummMemoTemplateClick┤ │ │   
          TfrmDCSumm.mnuNewTemplateClick┤ │ │   
        TfrmDCSumm.mnuEditTemplatesClick┤ │ │   
  TfrmDCSumm.mnuEditSharedTemplatesClick┤ │ │   
    TfrmDCSumm.mnuNewSharedTemplateClick┤ │ │   
   TfrmConsults.popNoteMemoTemplateClick┤ │ │   
      TfrmConsults.mnuEditTemplatesClick┤ │ │   
        TfrmConsults.mnuNewTemplateClick┤ │ │   
TfrmConsults.mnuEditSharedTemplatesClick┤ │ │   
  TfrmConsults.mnuNewSharedTemplateClick┤ │ │   
       TfrmDrawers.mnuEditTemplatesClick┤ │ │   
         TfrmDrawers.mnuNewTemplateClick┤ │ │   
    TfrmSurgery.popNoteMemoTemplateClick┤ │ │   
       TfrmSurgery.mnuEditTemplatesClick┤ │ │   
         TfrmSurgery.mnuNewTemplateClick┤ │ │   
 TfrmSurgery.mnuEditSharedTemplatesClick┤ │ │   
   TfrmSurgery.mnuNewSharedTemplateClick┤ │ │   
      TfrmNotes.popNoteMemoTemplateClick┤ │ │   
         TfrmNotes.mnuEditTemplatesClick┤ │ │   
           TfrmNotes.mnuNewTemplateClick┤ │ │   
   TfrmNotes.mnuEditSharedTemplatesClick┤ │ │   
     TfrmNotes.mnuNewSharedTemplateClick┘ │ │   
        TfrmTemplateEditor.mnuAutoGenClick┤ │   
 TfrmTemplateEditor.mnuImportTemplateClick┘ │   
         TfrmTemplateEditor.edtNameOldChange┤   
       TfrmTemplateEditor.tvTreeNodeEdited┤ │   
        TfrmTemplateEditor.mnuAutoGenClick┘ │   
            TfrmTemplateEditor.cbActiveClick┤   
           TfrmTemplateEditor.cbExcludeClick┤   
             TfrmTemplateEditor.edtGapChange┤   
            TfrmTemplateEditor.sbMoveUpClick┤   
          TfrmTemplateEditor.sbMoveDownClick┤   
         TfrmTemplateEditor.sbDeleteClick...┤   
           TfrmTemplateEditor.tvTreeDragDrop┤   
        TfrmTemplateEditor.sbCopyLeftClick┤ │   
       TfrmTemplateEditor.sbCopyRightClick┤ │   
      TfrmTemplateEditor.mnuNodePasteClick┘ │   
                                   ..(rec)..┤   
             TfrmTemplateEditor.reBoilChange┤   
            TfrmTemplateEditor.reNotesChange┤   
                  TfrmTemplateEditor.cbClick┤   
     TfrmTemplateEditor.cbDisplayOnlyClick┤ │   
       TfrmTemplateEditor.cbFirstLineClick┤ │   
     TfrmTemplateEditor.cbOneItemOnlyClick┤ │   
    TfrmTemplateEditor.cbHideDlgItemsClick┤ │   
       TfrmTemplateEditor.cbHideItemsClick┤ │   
          TfrmTemplateEditor.cbIndentClick┤ │   
            TfrmTemplateEditor.cbLockClick┘ │   
            TfrmTemplateEditor.cbxTypeChange┤   
         TfrmTemplateEditor.cbxRemDlgsChange┘   

Calls

Name Declaration Comments
TTemplate.GetItems function GetItems: TList; -
MarkDeleted procedure MarkDeleted(Template: TTemplate); -
TTemplate.SetFileLink procedure SetFileLink(const Value: string); -
TTemplate.ValidID function ValidID: boolean; -

Called-By

Name Declaration Comments
TfrmTemplateEditor.Clone function Clone(Node: TTreeNode): boolean; -
MarkDeleted procedure MarkDeleted(Template: TTemplate); -
TfrmTemplateEditor.sbDeleteClick procedure sbDeleteClick(Sender: TObject); -


Source

1006  procedure MarkDeleted(Template: TTemplate);
1007  var
1008    i, idx: integer;
1009  
1010  begin
1011    if(Template.ValidID) then
1012    begin
1013      if(not assigned(Deleted)) then
1014        Deleted := TStringList.Create;
1015      idx := Deleted.IndexOf(Template.ID);
1016      if(idx < 0) then
1017        Deleted.Add(Template.ID);
1018    end;
1019    Template.FileLink := '';
1020    Template.GetItems;
1021    for i := 0 to Template.FItems.Count-1 do
1022      MarkDeleted(TTemplate(Template.FItems[i]));
1023  end;