Procedure

TTemplate.AssignFileLink

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Visibility

Protected

Owner

TTemplate

Declaration

procedure AssignFileLink(const Value: string; Force: boolean);

Calls Hierarchy


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

Called-By Hierarchy


                            TTemplate.AssignFileLink
                                         ..(rec)..┤ 
                             TTemplate.SetFileLink┘ 
                                     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┘   │   
                           TTemplate.SetRealType┤   
                     TTemplate.SetTemplateType┤ │   
              TfrmTemplateEditor.cbxTypeChange┘ │   
                     TTemplate.SetReminderDialog┤   
                   TTemplate.AssignFileLink...┤ │   
           TfrmTemplateEditor.cbxRemDlgsChange┘ │   
                  TfrmTemplateEditor.cbxLinkExit┘   

Calls

Name Declaration Comments
TTemplate.AssignFileLink procedure AssignFileLink(const Value: string; Force: boolean); -
TTemplate.CanModify function CanModify: boolean; -
TTemplate.GetItems function GetItems: TList; -
TTemplate.LinkType function LinkType: TTemplateLinkType; -
TTemplate.SetReminderDialog procedure SetReminderDialog(const Value: string); -
TTemplate.ValidID function ValidID: boolean; -

Called-By

Name Declaration Comments
TTemplate.AssignFileLink procedure AssignFileLink(const Value: string; Force: boolean); -
TTemplate.SetFileLink procedure SetFileLink(const Value: string); -


Source

2655  procedure TTemplate.AssignFileLink(const Value: string; Force: boolean);
2656  var
2657    i: integer;
2658    DoItems: boolean;
2659  
2660  begin
2661    DoItems := Force;
2662    if(FFileLink <> Value) and CanModify then
2663    begin
2664      with FBkup do
2665      begin
2666        if(not SavedFileLink) and ValidID then
2667        begin
2668          BFileLink := FFileLink;
2669          SavedFileLink := TRUE;
2670        end;
2671      end;
2672      FFileLink := Value;
2673      FLinkName := '';
2674      if (not (LinkType in [ltNone, ltTitle])) then
2675        SetReminderDialog('');
2676      if not DoItems then
2677        DoItems := (FFileLink <> '');
2678    end;
2679    if DoItems then
2680    begin
2681      GetItems;
2682      for i := 0 to FItems.Count-1 do
2683        TTemplate(FItems[i]).AssignFileLink('', TRUE);
2684    end;
2685  end;