Function

TfrmTemplateDialog.FindObjectByID

Module

fTemplateDialog

Last Modified

7/15/2014 3:26:44 PM

Visibility

Private

Owner

TfrmTemplateDialog

Declaration

function FindObjectByID( id: string): TControl;

Calls Hierarchy


TfrmTemplateDialog.FindObjectByID
 └TfrmTemplateDialog.GetObjectID

Called-By Hierarchy


                     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┘     

Calls

Name Declaration Comments
TfrmTemplateDialog.GetObjectID function GetObjectID( Control: TControl): string; -

Called-By

Name Declaration Comments
TfrmTemplateDialog.BuildCB procedure BuildCB(CBidx: integer; var Y: integer; FirstTime: boolean); -
TfrmTemplateDialog.IsAncestor function IsAncestor( OldID: string; NewID: string): boolean; -


Source

390   function TfrmTemplateDialog.FindObjectByID( id: string): TControl;
391   var
392     i: integer;
393     ObjID: string;
394   begin
395     result := nil;
396     if ID <> '' then
397     begin
398       for i := 0 to sbMain.ControlCount-1 do
399       begin
400         ObjID := GetObjectID(sbMain.Controls[i]);
401         if(ObjID = ID) then
402         begin
403           result := sbMain.Controls[i];
404           break;
405         end;
406       end;
407     end;
408   end;