Procedure

IncDlgID

Module

fTemplateDialog

Last Modified

7/15/2014 3:26:44 PM

Comments

Appends an item count in the form of id.0, id.1, id.2, etc

Scope

Local

Local subprogram to

DoTemplateDialog

Declaration

procedure IncDlgID(var id: string); //Appends an item count in the form of id.0, id.1, id.2, etc

Called-By Hierarchy


                                            IncDlgID
                                     CountDlgProps┘ 
                                DoTemplateDialog┘   
                       CheckBoilerplate4Fields┤     
                         DoTemplateDialog...┤ │     
                            ShowTemplateData┘ │     
       TfrmDrawers.mnuPreviewTemplateClick┤   │     
      TfrmDCSumm.popSummMemoPreviewClick┤ │   │     
    TfrmConsults.popNoteMemoPreviewClick┤ │   │     
     TfrmSurgery.popNoteMemoPreviewClick┤ │   │     
       TfrmNotes.popNoteMemoPreviewClick┘ │   │     
          TfrmTemplateEditor.mnuBPTryClick┘   │     
        TfrmTemplateEditor.tvTreeKeyDown┘     │     
                             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...┤       
            TfrmDrawers.mnuCopyTemplateClick┤       
         TfrmTemplateEditor.mnuBPTryClick...┘       

Called-By

Name Declaration Comments
CountDlgProps procedure CountDlgProps(var DlgID: string); -


Source

148   procedure IncDlgID(var id: string); //Appends an item count in the form of id.0, id.1, id.2, etc
149   var                                 //based on what is in the StringList for id.
150     k: integer;
151   
152   begin
153     k := DlgIDCounts.IndexOf(id);
154   
155     if (k >= 0) then
156       begin
157       DlgInt := TIntStruc(DlgIDCounts.Objects[k]);
158       DlgInt.x := DlgInt.x + 1;
159       id := id + '.' + InttoStr(DlgInt.x);
160       end
161     else
162       begin
163       DlgInt := TIntStruc.Create;
164       DlgInt.x := 0;
165       DlgIDCounts.AddObject(id, DlgInt);
166       id := id + '.0';
167       end;
168   
169   end;