Procedure

TfrmDrawers.mnuCopyTemplateClick

Module

fDrawers

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmDrawers

Declaration

procedure mnuCopyTemplateClick(Sender: TObject);

Calls Hierarchy


TfrmDrawers.mnuCopyTemplateClick
 ├TdmodShared.TemplateOK
 │ ├TdmodShared.BoilerplateOK
 │ │ ├ErrCount
 │ │ ├AddErr
 │ │ └TdmodShared.LoadTIUObjects
 │ │   └GetObjectList
 │ └BoilerplateTemplateFieldsOK
 │   └ListTemplateFields
 │     └GetTemplateField
 │       ├LoadTemplateFieldByIEN
 │       ├LoadTemplateField
 │       └TTemplateField.Create
 │         ├TemplateFieldCode2Field
 │         └TemplateDateCode2DateType
 ├TTemplate.GetText
 │ ├TTemplate.IsDialog
 │ ├TTemplate.FullBoilerplate
 │ │ ├TTemplate.GetBoilerplate
 │ │ │ └GetTemplateBoilerplate
 │ │ ├TTemplate.ItemBoilerplate
 │ │ │ ├TTemplate.GetItems
 │ │ │ │ └ExpandTemplate
 │ │ │ │   ├TTemplate.GetChildren
 │ │ │ │   ├GetTemplateChildren
 │ │ │ │   ├AddTemplate
 │ │ │ │   │ ├TTemplate.Create
 │ │ │ │   │ │ └TTemplate.ReminderDialogIEN
 │ │ │ │   │ └TTemplate.AddChild
 │ │ │ │   │   └TTemplate.GetItems...
 │ │ │ │   └TTemplate.ItemIENs
 │ │ │ │     └TTemplate.GetItems...
 │ │ │ ├TTemplate.GetTemplateType
 │ │ │ ├DlgText
 │ │ │ └TTemplate.DialogProperties
 │ │ │   ├TTemplate.GetBoilerplate...
 │ │ │   └TTemplate.DlgID
 │ │ ├DlgText
 │ │ └TTemplate.DialogProperties...
 │ ├SetTemplateBPHasObjects
 │ ├GetTemplateText
 │ │ └TEncounter.GetVisitStr
 │ │   └TEncounter.GetVisitCategory
 │ └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
 │     ├HasTemplateField
 │     ├BoilerplateTemplateFieldsOK...
 │     ├DoTemplateDialog...
 │     └StripScreenReaderCodes
 │       └StripScreenReaderCodes
 └CheckBoilerplate4Fields

Calls

Name Declaration Comments
CheckBoilerplate4Fields procedure CheckBoilerplate4Fields(var AText: string; const CaptionText: string = ''; PreviewMode: boolean = FALSE); overload; -
TTemplate.GetText function GetText: string; -
TdmodShared.TemplateOK function TemplateOK(tmpl: TTemplate; Msg: string = ''): boolean; -


Source

1451  procedure TfrmDrawers.mnuCopyTemplateClick(Sender: TObject);
1452  var
1453    txt: string;
1454    Template: TTemplate;
1455  
1456  begin
1457    txt := '';
1458    if((assigned(tvTemplates.Selected)) and
1459       (TTemplate(tvTemplates.Selected.Data).RealType in [ttDoc, ttGroup])) and
1460       (dmodShared.TemplateOK(tvTemplates.Selected.Data)) then
1461    begin
1462      Template := TTemplate(tvTemplates.Selected.Data);
1463      txt := Template.Text;
1464      CheckBoilerplate4Fields(txt, 'Template: ' + Template.PrintName);
1465      if txt <> '' then
1466      begin
1467        Clipboard.SetTextBuf(PChar(txt));
1468        GetScreenReader.Speak('Text Copied to Clip board');
1469      end;
1470    end;
1471    if txt <> '' then
1472      StatusText('Templated Text copied to clipboard.');
1473  end;