Function

TTemplate.DlgID

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public

Owner

TTemplate

Declaration

function DlgID: string;

Called-By Hierarchy


                                            TTemplate.DlgID
                               TTemplate.DialogProperties┘ 
                              TTemplate.ItemBoilerplate┤   
                            TTemplate.FullBoilerplate┘ │   
                                  TTemplate.GetText┤   │   
                     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┘   │ │   │   
              TfrmDrawers.mnuPreviewTemplateClick┤ │   │   
             TfrmDCSumm.popSummMemoPreviewClick┤ │ │   │   
           TfrmConsults.popNoteMemoPreviewClick┤ │ │   │   
            TfrmSurgery.popNoteMemoPreviewClick┤ │ │   │   
              TfrmNotes.popNoteMemoPreviewClick┘ │ │   │   
                 TfrmDrawers.mnuCopyTemplateClick┤ │   │   
                 TfrmTemplateEditor.mnuBPTryClick┘ │   │   
               TfrmTemplateEditor.tvTreeKeyDown┘   │   │   
              TfrmTemplateEditor.DisplayBoilerplate┤   │   
                      TfrmTemplateEditor.ShowInfo┤ │   │   
                                  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.tvTreeChange┤ │ │   │   
             TfrmTemplateEditor.cbActiveClick┤ │ │ │   │   
               TfrmTemplateEditor.tvTreeEnter┤ │ │ │   │   
             TfrmTemplateEditor.cbShHideClick┤ │ │ │   │   
           TfrmTemplateEditor.cbActiveClick┘ │ │ │ │   │   
            TfrmTemplateEditor.cbPerHideClick┤ │ │ │   │   
           TfrmTemplateEditor.cbActiveClick┘ │ │ │ │   │   
             TfrmTemplateEditor.sbDeleteClick┤ │ │ │   │   
      TfrmTemplateEditor.mnuNodeDeleteClick┤ │ │ │ │   │   
           TfrmTemplateEditor.tvTreeKeyDown┘ │ │ │ │   │   
                    TfrmTemplateEditor.Resync┤ │ │ │   │   
             TfrmTemplateEditor.btnNewClick┤ │ │ │ │   │   
                         EditTemplates...┤ │ │ │ │ │   │   
       TfrmTemplateEditor.mnuAutoGenClick┤ │ │ │ │ │   │   
TfrmTemplateEditor.mnuImportTemplateClick┘ │ │ │ │ │   │   
           TfrmTemplateEditor.sbMoveUpClick┤ │ │ │ │   │   
         TfrmTemplateEditor.sbMoveDownClick┤ │ │ │ │   │   
        TfrmTemplateEditor.sbDeleteClick...┤ │ │ │ │   │   
          TfrmTemplateEditor.tvTreeDragDrop┤ │ │ │ │   │   
       TfrmTemplateEditor.sbCopyLeftClick┤ │ │ │ │ │   │   
      TfrmTemplateEditor.sbCopyRightClick┤ │ │ │ │ │   │   
     TfrmTemplateEditor.mnuNodePasteClick┘ │ │ │ │ │   │   
            TfrmTemplateEditor.mnuSortClick┤ │ │ │ │   │   
          TfrmTemplateEditor.TemplateLocked┘ │ │ │ │   │   
            TfrmTemplateEditor.FormCreate┘   │ │ │ │   │   
             TfrmTemplateEditor.SharedEditing┤ │ │ │   │   
              TfrmTemplateEditor.FormCreate┤ │ │ │ │   │   
       TfrmTemplateEditor.cbEditSharedClick┘ │ │ │ │   │   
             TfrmTemplateEditor.cbxTypeChange┘ │ │ │   │   
                TfrmTemplateEditor.reBoilChange┤ │ │   │   
             TfrmTemplateEditor.mnuAutoGenClick┤ │ │   │   
      TfrmTemplateEditor.mnuImportTemplateClick┘ │ │   │   
                  TfrmTemplateEditor.edtGapChange┘ │   │   
                    TfrmTemplateEditor.reBoilChange┘   │   
                           TTemplate.FullBoilerplate...┘   

Called-By

Name Declaration Comments
TTemplate.DialogProperties function DialogProperties(Parent: TTemplate = nil): string; -


Source

2375  function TTemplate.DlgID: string;
2376  begin
2377    Result := IntToStr(StrToIntDef(FID, 0));
2378    if(Result = '0') then
2379    begin
2380      if(FLastDlgCnt <> uDlgCount) then
2381      begin
2382        FLastDlgCnt := uDlgCount;
2383        inc(uUniqueIDNum);
2384        FLastUniqueID := uUniqueIDNum;
2385      end;
2386      Result := '-' + inttostr(FLastUniqueID);
2387    end;
2388  end;