Procedure

CheckBoilerplate4Fields

Directives

Overload

Module

fTemplateDialog

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure CheckBoilerplate4Fields(SL: TStrings; const CaptionText: string = ''; PreviewMode: boolean = FALSE); overload;

Calls Hierarchy


CheckBoilerplate4Fields
 ├HasTemplateField
 ├BoilerplateTemplateFieldsOK
 │ └ListTemplateFields
 │   └GetTemplateField
 │     ├LoadTemplateFieldByIEN
 │     ├LoadTemplateField
 │     └TTemplateField.Create
 │       ├TemplateFieldCode2Field
 │       └TemplateDateCode2DateType
 ├DoTemplateDialog
 │ ├SetTemplateDialogCanceled
 │ ├TfrmBase508Form.Create
 │ │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ │ ├UnfocusableControlEnter
 │ │ └AdjustControls
 │ │   ├TfrmBase508Form.ModifyUnfocusableControl
 │ │   └..(rec)..
 │ ├AssignFieldIDs
 │ │ └AssignFieldIDs
 │ │   └GetNewFieldID
 │ ├CountDlgProps
 │ │ └IncDlgID
 │ ├TfrmTemplateDialog.BuildAllControls
 │ │ └TfrmTemplateDialog.BuildCB
 │ │   ├TfrmTemplateDialog.FindObjectByID
 │ │   │ └TfrmTemplateDialog.GetObjectID
 │ │   ├GetDialogEntry
 │ │   │ └TTemplateDialogEntry.Create
 │ │   │   ├TDlgFieldPanel.Create
 │ │   │   ├GetTemplateField...
 │ │   │   ├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
 │ ├GetText
 │ │ └ResolveTemplateFields...
 │ ├TimedOut
 │ └CheckBoilerplate4Fields...
 └StripScreenReaderCodes
   └StripScreenReaderCodes

Called-By Hierarchy


                           CheckBoilerplate4Fields
                                DoTemplateDialog┤ 
                    CheckBoilerplate4Fields...┤ │ 
                             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┘     │ 
                                ShowTemplateData┘ 
        TfrmDrawers.mnuPreviewTemplateClick...┤   
           TfrmTemplateEditor.mnuBPTryClick...┘   

Calls

Name Declaration Comments
BoilerplateTemplateFieldsOK function BoilerplateTemplateFieldsOK(const AText: string; Msg: string = ''): boolean; -
DoTemplateDialog function DoTemplateDialog(SL: TStrings; const CaptionText: string; PreviewMode: boolean = FALSE): boolean; -
HasTemplateField function HasTemplateField(txt: string): boolean; -
StripScreenReaderCodes procedure StripScreenReaderCodes(SL: TStrings); overload; -

Called-By

Name Declaration Comments
DoTemplateDialog function DoTemplateDialog(SL: TStrings; const CaptionText: string; PreviewMode: boolean = FALSE): boolean; -
ShowTemplateData procedure ShowTemplateData(Form: TForm; const Title, Text: string); -


Source

306   procedure CheckBoilerplate4Fields(SL: TStrings; const CaptionText: string = ''; PreviewMode: boolean = FALSE);
307   begin
308     while(HasTemplateField(SL.Text)) do
309     begin
310       if (BoilerplateTemplateFieldsOK(SL.Text)) then
311       begin
312         SL[SL.Count-1] := SL[SL.Count-1] + DlgPropMarker + '00100;0;-1;;0' + ObjMarker;
313         DoTemplateDialog(SL, CaptionText, PreviewMode);
314       end
315       else
316         SL.Clear;
317     end;
318     StripScreenReaderCodes(SL);
319   end;