Procedure

TfrmTemplateDialog.BuildAllControls

Module

fTemplateDialog

Last Modified

7/15/2014 3:26:44 PM

Visibility

Private

Owner

TfrmTemplateDialog

Declaration

procedure BuildAllControls;

Calls Hierarchy


TfrmTemplateDialog.BuildAllControls
 └TfrmTemplateDialog.BuildCB
   ├TfrmTemplateDialog.FindObjectByID
   │ └TfrmTemplateDialog.GetObjectID
   ├GetDialogEntry
   │ └TTemplateDialogEntry.Create
   │   ├TDlgFieldPanel.Create
   │   ├GetTemplateField
   │   │ ├LoadTemplateFieldByIEN
   │   │ ├LoadTemplateField
   │   │ └TTemplateField.Create
   │   │   ├TemplateFieldCode2Field
   │   │   └TemplateDateCode2DateType
   │   ├TTemplateField.GetRequired
   │   └TTemplateField.CreateDialogControls
   │     ├TCPRSDialogFieldEdit.Create
   │     │ └TCPRSDialogComponent.Create
   │     ├TTemplateField.GetRequired
   │     ├ht
   │     ├wdth
   │     ├TTemplateField.Width
   │     │ └StripEmbedded
   │     ├TTemplateDialogEntry.DoChange
   │     ├TCPRSDialogComboBox.Create
   │     │ └TCPRSDialogComponent.Create
   │     ├StripEmbedded
   │     ├TfraTemplateFieldButton.Create
   │     │ ├TfraTemplateFieldButton.ButtonKeyDown
   │     │ │ └TfraTemplateFieldButton.pnlBtnMouseDown
   │     │ │   ├TfraTemplateFieldButton.GetButtonText
   │     │ │   └TfraTemplateFieldButton.SetButtonText
   │     │ ├TfraTemplateFieldButton.ButtonKeyUp
   │     │ │ └TfraTemplateFieldButton.pnlBtnMouseUp
   │     │ └TCPRSDialogComponent.Create
   │     ├TfraTemplateFieldButton.SetButtonText
   │     ├TCPRSDialogCheckBox.Create
   │     │ └TCPRSDialogComponent.Create
   │     ├UpdateIndents
   │     │ └wdth
   │     ├StrToFMDateTime
   │     ├TCPRSDialogDateCombo.Create
   │     │ └TCPRSDialogComponent.Create
   │     ├TCPRSDialogDateBox.Create
   │     │ └TCPRSDialogComponent.Create
   │     ├TCPRSDialogNumber.CreatePanel
   │     │ └TCPRSDialogComponent.Create
   │     ├TTemplateDialogEntry.UpDownChange
   │     │ ├EnsureText
   │     │ └TTemplateDialogEntry.DoChange
   │     ├TCPRSDialogHyperlinkLabel.Create
   │     │ ├TCPRSDialogComponent.Create
   │     │ └TCPRSDialogHyperlinkLabel.KeyPressed
   │     │   └TCPRSDialogHyperlinkLabel.Clicked
   │     │     └GotoWebPage
   │     ├TCPRSDialogHyperlinkLabel.Init
   │     │ └TCPRSDialogHyperlinkLabel.Clicked...
   │     └TCPRSDialogRichEdit.Create
   │       └TCPRSDialogComponent.Create
   ├TTemplateDialogEntry.SetAutoDestroyOnPanelFree
   │ └PanelDestroy
   ├TfrmTemplateDialog.EntryDestroyed
   ├TTemplateDialogEntry.GetPanel
   │ ├Init
   │ │ ├TTemplateDialogEntry.KillLabels
   │ │ └ScreenReaderSystem_CurrentCheckBox
   │ │   └ScreenReaderSystem_Stop
   │ │     ├UpdateCheckBox
   │ │     ├UpdatePending
   │ │     └ScreenReaderSystem_Clear
   │ ├Text508Work
   │ │ ├TTemplateDialogEntry.StripCode
   │ │ ├ScreenReaderSystem_Stop...
   │ │ ├StripSRCode
   │ │ └ScreenReaderSystem_Continue
   │ ├TTemplateDialogEntry.StripCode
   │ ├NextLine
   │ ├DoLabel
   │ │ ├Add2TabOrder
   │ │ ├ScreenReaderSystem_CurrentLabel
   │ │ │ └ScreenReaderSystem_Stop...
   │ │ └ScreenReaderSystem_AddText
   │ ├Ctrl508Work
   │ │ ├ScreenReaderSystem_CurrentLabel...
   │ │ ├ScreenReaderSystem_AddText
   │ │ ├ScreenReaderSystem_Stop...
   │ │ ├Add2TabOrder
   │ │ └ScreenReaderSystem_CurrentComponent
   │ │   ├UpdateCheckBox
   │ │   ├UpdatePending
   │ │   └ScreenReaderSystem_Stop...
   │ ├TTemplateDialogEntry.SetFieldValues
   │ │ └TTemplateDialogEntry.SetControlText
   │ │   └TfraTemplateFieldButton.SetButtonText
   │ └ScreenReaderSystem_Stop...
   ├TTemplateDialogEntry.GetText
   │ └ResolveTemplateFields
   │   ├TTemplateDialogEntry.GetControlText
   │   │ ├GetTemplateField...
   │   │ ├GetOriginalItem
   │   │ │ ├GetTemplateField...
   │   │ │ └StripEmbedded
   │   │ └TfraTemplateFieldButton.GetButtonText
   │   ├GetTemplateField...
   │   ├AddNewTxt
   │   └WordWrapText
   │     └WrappedText
   ├TfrmTemplateDialog.FieldChanged
   │ └TTemplateDialogEntry.GetText...
   ├TfrmTemplateDialog.ParentCBEnter
   ├TfrmTemplateDialog.ParentCBExit
   ├TfrmTemplateDialog.ItemChecked
   └NextTabCtrl

Called-By Hierarchy


               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.BuildCB procedure BuildCB(CBidx: integer; var Y: integer; FirstTime: boolean); -

Called-By

Name Declaration Comments
DoTemplateDialog function DoTemplateDialog(SL: TStrings; const CaptionText: string; PreviewMode: boolean = FALSE): boolean; -
TfrmTemplateDialog.FormPaint procedure FormPaint(Sender: TObject); -


Source

659   procedure TfrmTemplateDialog.BuildAllControls;
660   var
661     i, Y: integer;
662     FirstTime: boolean;
663   
664   begin
665     if FBuilding then exit;
666     FBuilding := TRUE;
667     try
668       FTabPos := 0;
669       FirstTime := (sbMain.ControlCount = 0);
670       NoTextID.Clear;
671       Y := Gap - sbMain.VertScrollBar.Position;
672       for i := 1 to Count do
673         BuildCB(i, Y, FirstTime);
674       if ScreenReaderSystemActive then
675       begin
676         amgrMain.RefreshComponents;
677         Application.ProcessMessages;
678       end;
679     finally
680       FBuilding := FALSE;
681     end;
682   end;