Function

TfrmTemplateDialog.GetObjectID

Module

fTemplateDialog

Last Modified

7/15/2014 3:26:44 PM

Visibility

Private

Owner

TfrmTemplateDialog

Declaration

function GetObjectID( Control: TControl): string;

Called-By Hierarchy


                          TfrmTemplateDialog.GetObjectID
                     TfrmTemplateDialog.FindObjectByID┘ 
                       TfrmTemplateDialog.IsAncestor┤   
                                         ..(rec)..┘ │   
                          TfrmTemplateDialog.BuildCB┘   
               TfrmTemplateDialog.BuildAllControls┘     
                                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...┘   │       
                    TfrmTemplateDialog.FormPaint┘       

Called-By

Name Declaration Comments
TfrmTemplateDialog.FindObjectByID function FindObjectByID( id: string): TControl; -


Source

358   function TfrmTemplateDialog.GetObjectID( Control: TControl): string;
359   var
360     idx, idx2: integer;
361   begin
362     result := '';
363     if Assigned(Control) then
364     begin
365       idx := Control.Tag;
366       if(idx > 0) then
367       begin
368         idx2 := BuildIdx.IndexOfObject(TObject(idx));
369         if idx2 >= 0 then
370           result := BuildIdx[idx2]
371         else
372           result := Piece(Piece(Piece(Index, U, idx),'~',3), ';', 3);
373       end;
374     end;
375   end;