Procedure

ShowTemplateData

Module

fTemplateView

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure ShowTemplateData(Form: TForm; const Title, Text: string);

Calls Hierarchy


ShowTemplateData
 ├TfrmBase508Form.Create
 │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ ├UnfocusableControlEnter
 │ └AdjustControls
 │   ├TfrmBase508Form.ModifyUnfocusableControl
 │   └..(rec)..
 ├TfrmTemplateView.AlignButtons
 └CheckBoilerplate4Fields
   ├HasTemplateField
   ├BoilerplateTemplateFieldsOK
   │ └ListTemplateFields
   │   └GetTemplateField
   │     ├LoadTemplateFieldByIEN
   │     ├LoadTemplateField
   │     └TTemplateField.Create
   │       ├TemplateFieldCode2Field
   │       └TemplateDateCode2DateType
   ├DoTemplateDialog
   │ ├SetTemplateDialogCanceled
   │ ├TfrmBase508Form.Create...
   │ ├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


                        ShowTemplateData
   TfrmDrawers.mnuPreviewTemplateClick┤ 
  TfrmDCSumm.popSummMemoPreviewClick┤ │ 
TfrmConsults.popNoteMemoPreviewClick┤ │ 
 TfrmSurgery.popNoteMemoPreviewClick┤ │ 
   TfrmNotes.popNoteMemoPreviewClick┘ │ 
      TfrmTemplateEditor.mnuBPTryClick┘ 
    TfrmTemplateEditor.tvTreeKeyDown┘   

Calls

Name Declaration Comments
TfrmTemplateView.AlignButtons procedure AlignButtons(); -
CheckBoilerplate4Fields procedure CheckBoilerplate4Fields(SL: TStrings; const CaptionText: string = ''; PreviewMode: boolean = FALSE); overload; -
TfrmBase508Form.Create constructor Create(AOwner: TComponent); override; -

Called-By

Name Declaration Comments
TfrmTemplateEditor.mnuBPTryClick procedure mnuBPTryClick(Sender: TObject); -
TfrmDrawers.mnuPreviewTemplateClick procedure mnuPreviewTemplateClick(Sender: TObject); -


Source

48    procedure ShowTemplateData(Form: TForm; const Title, Text: string);
49    var
50      Cnt: integer;
51    
52    begin
53      if(not assigned(frmTemplateView)) then
54        frmTemplateView := TfrmTemplateView.Create(Application);
55      //Quick fix to work around glich in resize algorithm
56      frmTemplateView.AlignButtons();
57      frmTemplateView.reMain.Lines.Clear;
58      frmTemplateView.Caption := 'Template: ' + Title;
59      frmTemplateView.reMain.Lines.Text := Text;
60      Cnt := frmTemplateView.reMain.Lines.Count;
61      CheckBoilerplate4Fields(frmTemplateView.reMain.Lines, frmTemplateView.Caption, TRUE);
62      if (Cnt > 0) and (frmTemplateView.reMain.Lines.Count = 0) then
63        frmTemplateView.Close
64      else
65      begin
66        frmTemplateView.cbStayOnTop.Checked := LastStayOnTop;
67        frmTemplateView.ActiveControl := frmTemplateView.btnClose;
68        frmTemplateView.Show;
69        Application.ProcessMessages;
70        SendMessage(frmTemplateView.reMain.Handle, EM_LINESCROLL, 0, -1 * frmTemplateView.reMain.Lines.Count);
71      end;
72    end;