Function

TTemplate.LinkType

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public

Owner

TTemplate

Declaration

function LinkType: TTemplateLinkType;

Called-By Hierarchy


                                      TTemplate.LinkType
                           TTemplate.SetReminderDialog┤ 
                            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...┤   │ │ 
                  TfrmTemplateEditor.cbxLinkExit┘   │ │ 
                 TfrmTemplateEditor.cbxRemDlgsChange┘ │ 
                           TTemplate.AssignFileLink...┤ 
                               TTemplate.COMObjectText┤ 
                        ExecuteTemplateOrBoilerPlate┤ │ 
                              TfrmDrawers.InsertText┘ │ 
                   TfrmDrawers.tvTemplatesDblClick┤   │ 
                    TfrmDrawers.tvTemplatesKeyDown┤   │ 
                        TfrmDrawers.NewRECDragDrop┤   │ 
                  TfrmDrawers.SetRichEditControl┘ │   │ 
                         TfrmDCSumm.FormCreate┤   │   │ 
                       TfrmConsults.FormCreate┤   │   │ 
                        TfrmSurgery.FormCreate┤   │   │ 
                          TfrmNotes.FormCreate┘   │   │ 
                TfrmDrawers.mnuInsertTemplateClick┘   │ 
          TfrmDCSumm.popSummMemoInsTemplateClick┤     │ 
        TfrmConsults.popNoteMemoInsTemplateClick┤     │ 
         TfrmSurgery.popNoteMemoInsTemplateClick┤     │ 
           TfrmNotes.popNoteMemoInsTemplateClick┘     │ 
                                    TTemplate.AutoLock┤ 
                                  TTemplate.IsLocked┤ │ 
               TfrmTemplateEditor.IsTemplateLocked┤ │ │ 
                                       ..(rec)..┤ │ │ │ 
                 TfrmTemplateEditor.tvTreeChange┤ │ │ │ 
              TfrmTemplateEditor.cbActiveClick┤ │ │ │ │ 
                TfrmTemplateEditor.tvTreeEnter┤ │ │ │ │ 
              TfrmTemplateEditor.cbShHideClick┤ │ │ │ │ 
            TfrmTemplateEditor.cbActiveClick┘ │ │ │ │ │ 
             TfrmTemplateEditor.cbPerHideClick┤ │ │ │ │ 
            TfrmTemplateEditor.cbActiveClick┘ │ │ │ │ │ 
           TfrmTemplateEditor.sbDeleteClick...┤ │ │ │ │ 
                     TfrmTemplateEditor.Resync┤ │ │ │ │ 
           TfrmTemplateEditor.btnNewClick...┤ │ │ │ │ │ 
            TfrmTemplateEditor.sbMoveUpClick┤ │ │ │ │ │ 
          TfrmTemplateEditor.sbMoveDownClick┤ │ │ │ │ │ 
         TfrmTemplateEditor.sbDeleteClick...┤ │ │ │ │ │ 
        TfrmTemplateEditor.tvTreeDragDrop...┤ │ │ │ │ │ 
             TfrmTemplateEditor.mnuSortClick┤ │ │ │ │ │ 
           TfrmTemplateEditor.TemplateLocked┘ │ │ │ │ │ 
             TfrmTemplateEditor.FormCreate┘   │ │ │ │ │ 
              TfrmTemplateEditor.SharedEditing┤ │ │ │ │ 
               TfrmTemplateEditor.FormCreate┤ │ │ │ │ │ 
        TfrmTemplateEditor.cbEditSharedClick┘ │ │ │ │ │ 
              TfrmTemplateEditor.cbxTypeChange┘ │ │ │ │ 
                     TfrmTemplateEditor.ShowInfo┤ │ │ │ 
                              EditTemplates...┤ │ │ │ │ 
            TfrmTemplateEditor.tvTreeChange...┤ │ │ │ │ 
               TfrmTemplateEditor.reBoilChange┤ │ │ │ │ 
            TfrmTemplateEditor.mnuAutoGenClick┤ │ │ │ │ 
     TfrmTemplateEditor.mnuImportTemplateClick┘ │ │ │ │ 
                    TfrmTemplateEditor.AllowMove┘ │ │ │ 
          TfrmTemplateEditor.EnableNavControls┤   │ │ │ 
           TfrmTemplateEditor.EnableControls┤ │   │ │ │ 
        TfrmTemplateEditor.tvTreeChange...┘ │ │   │ │ │ 
            TfrmTemplateEditor.cbActiveClick┤ │   │ │ │ 
         TfrmTemplateEditor.cbShHideClick...┤ │   │ │ │ 
        TfrmTemplateEditor.cbPerHideClick...┤ │   │ │ │ 
                TfrmTemplateEditor.Resync...┘ │   │ │ │ 
             TfrmTemplateEditor.tvTreeDragOver┤   │ │ │ 
          TfrmTemplateEditor.tvTreeDragDrop...┤   │ │ │ 
                    TfrmTemplateEditor.PasteOK┘   │ │ │ 
        TfrmTemplateEditor.popTemplatesPopup┤     │ │ │ 
        TfrmTemplateEditor.mnuNodePasteClick┤     │ │ │ 
         TfrmTemplateEditor.mnuTemplateClick┘     │ │ │ 
                    TfrmTemplateEditor.ShowInfo...┘ │ │ 
              TfrmTemplateEditor.IsTemplateLocked...┤ │ 
                      TfrmTemplateEditor.ShowInfo...┘ │ 
                                    TTemplate.LinkName┘ 
                      TfrmTemplateEditor.ShowInfo...┘   

Called-By

Name Declaration Comments
TTemplate.AssignFileLink procedure AssignFileLink(const Value: string; Force: boolean); -
TTemplate.AutoLock function AutoLock: boolean; -
TTemplate.COMObjectText function COMObjectText(DefText: string; var DocInfo: string): string; -
TTemplate.LinkName function LinkName: string; -
TTemplate.SetReminderDialog procedure SetReminderDialog(const Value: string); -


Source

2716  function TTemplate.LinkType: TTemplateLinkType;
2717  var
2718    idx: TTemplateLinkType;
2719  
2720  begin
2721    Result := ltNone;
2722    case FRealType of
2723      ttTitles:     Result := ltTitle;
2724      ttConsults:   Result := ltConsult;
2725      ttProcedures: Result := ltProcedure;
2726      else
2727        begin
2728          for idx := succ(low(TTemplateLinkType)) to high(TTemplateLinkType) do
2729          begin
2730            if pos(LinkGlobal[idx], FFileLink) > 0 then
2731            begin
2732              Result := idx;
2733              break;
2734            end;
2735          end;
2736        end;
2737    end;
2738  end;