Function

DlgText

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Scope

Global

Declaration

function DlgText(const txt: string; DlgProps: string): string;

Called-By Hierarchy


                                                  DlgText
                              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.FullBoilerplate function FullBoilerplate: string; -
TTemplate.ItemBoilerplate function ItemBoilerplate: string; -


Source

408   function DlgText(const txt: string; DlgProps: string): string;
409   var
410     i, j: integer;
411   
412   begin
413     Result := txt;
414     if GettingDialogText then
415     begin
416       if (Result = '') then
417         Result := NoTextMarker;
418       i := pos(DlgPropMarker, Result);
419       j := pos(ObjMarker, Result);
420       if(i > 0) and (j > 0) then
421         delete(Result, i, j - i + ObjMarkerLen)
422       else
423         i := length(Result) + 1;
424       insert(DlgPropMarker + DlgProps + ObjMarker, Result, i);
425     end;
426   end;