Procedure

TfrmTemplateEditor.tvTreeKeyDown

Module

fTemplateEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateEditor

Declaration

procedure tvTreeKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

Calls Hierarchy


TfrmTemplateEditor.tvTreeKeyDown
 ├TfrmTemplateEditor.sbDeleteClick
 │ ├TfrmTemplateEditor.AutoDel
 │ │ └TTemplate.GetBoilerplate
 │ │   └GetTemplateBoilerplate
 │ ├TfrmTemplateEditor.CanClone
 │ │ ├GetFirstPersonalNode
 │ │ │ └..(rec)..
 │ │ └TTemplate.CanModify
 │ │   ├TTemplate.ValidID
 │ │   └LockTemplate
 │ ├TfrmTemplateEditor.Clone
 │ │ ├TfrmTemplateEditor.CanClone...
 │ │ ├..(rec)..
 │ │ ├TTemplate.CanModify...
 │ │ ├TTemplate.Clone
 │ │ │ ├TTemplate.TrueClone
 │ │ │ │ ├TTemplate.GetChildren
 │ │ │ │ ├TTemplate.Create
 │ │ │ │ │ └TTemplate.ReminderDialogIEN
 │ │ │ │ ├TTemplate.SetBoilerplate
 │ │ │ │ │ ├TTemplate.CanModify...
 │ │ │ │ │ └TTemplate.ValidID
 │ │ │ │ ├TTemplate.GetBoilerplate...
 │ │ │ │ ├TTemplate.SetDescription
 │ │ │ │ │ ├TTemplate.CanModify...
 │ │ │ │ │ └TTemplate.ValidID
 │ │ │ │ └TTemplate.GetDescription
 │ │ │ │   └LoadTemplateDescription
 │ │ │ ├TTemplate.GetItems
 │ │ │ │ └ExpandTemplate
 │ │ │ │   ├TTemplate.GetChildren
 │ │ │ │   ├GetTemplateChildren
 │ │ │ │   ├AddTemplate
 │ │ │ │   │ ├TTemplate.Create...
 │ │ │ │   │ └TTemplate.AddChild
 │ │ │ │   │   └TTemplate.GetItems...
 │ │ │ │   └TTemplate.ItemIENs
 │ │ │ │     └TTemplate.GetItems...
 │ │ │ └TTemplate.BackupItems
 │ │ │   └TTemplate.ItemIENs...
 │ │ ├TTemplate.RemoveNode
 │ │ ├MarkDeleted
 │ │ │ ├TTemplate.ValidID
 │ │ │ ├TTemplate.SetFileLink
 │ │ │ │ └TTemplate.AssignFileLink
 │ │ │ │   ├TTemplate.CanModify...
 │ │ │ │   ├TTemplate.ValidID
 │ │ │ │   ├TTemplate.LinkType
 │ │ │ │   ├TTemplate.SetReminderDialog
 │ │ │ │   │ ├TTemplate.CanModify...
 │ │ │ │   │ ├TTemplate.ValidID
 │ │ │ │   │ ├TTemplate.ReminderDialogIEN
 │ │ │ │   │ ├TTemplate.LinkType
 │ │ │ │   │ └TTemplate.SetFileLink...
 │ │ │ │   ├TTemplate.GetItems...
 │ │ │ │   └..(rec)..
 │ │ │ ├TTemplate.GetItems...
 │ │ │ └..(rec)..
 │ │ ├TTemplate.AddNode
 │ │ ├TTemplate.GetItems...
 │ │ └TfrmTemplateEditor.ShowTemplateType
 │ ├TTemplate.CanModify...
 │ ├TTemplate.RemoveChild
 │ │ ├TTemplate.GetItems...
 │ │ └TTemplate.CanModify...
 │ ├MarkDeleted...
 │ ├TfrmTemplateEditor.Resync
 │ │ ├TdmodShared.Resync
 │ │ │ ├InSyncNode
 │ │ │ ├GetID
 │ │ │ │ └..(rec)..
 │ │ │ ├TTemplate.RemoveNode
 │ │ │ ├BuildNodes
 │ │ │ │ ├TTemplate.AddNode
 │ │ │ │ ├TTemplate.GetItems...
 │ │ │ │ ├..(rec)..
 │ │ │ │ └TTemplate.GetChildren
 │ │ │ └GetNode
 │ │ │   └GetID...
 │ │ ├TfrmTemplateEditor.EnableNavControls
 │ │ │ └TfrmTemplateEditor.AllowMove
 │ │ │   ├TfrmTemplateEditor.IsTemplateLocked
 │ │ │   │ ├TTemplate.AutoLock
 │ │ │   │ │ └TTemplate.LinkType
 │ │ │   │ ├TTemplate.IsLocked
 │ │ │   │ │ └TTemplate.AutoLock...
 │ │ │   │ └..(rec)..
 │ │ │   └TTemplate.GetItems...
 │ │ └TfrmTemplateEditor.tvTreeChange
 │ │   ├TfrmTemplateEditor.ChangeTree
 │ │   ├TfrmTemplateEditor.IsTemplateLocked...
 │ │   ├TfrmTemplateEditor.EnableControls
 │ │   │ ├TfrmTemplateEditor.UpdateInsertsDialogs
 │ │   │ │ ├TfrmTemplateObjects.UpdateStatus
 │ │   │ │ └TfrmTemplateFields.UpdateStatus
 │ │   │ │   └TfrmTemplateFields.ValidInsert
 │ │   │ └TfrmTemplateEditor.EnableNavControls...
 │ │   └TfrmTemplateEditor.ShowInfo
 │ │     ├TfrmTemplateEditor.ShowTemplateType
 │ │     ├TfrmTemplateEditor.GetLinkType
 │ │     ├LoadServiceListWithSynonyms
 │ │     ├TTemplate.LinkName
 │ │     │ ├GetLinkName
 │ │     │ │ └ExternalName
 │ │     │ ├TTemplate.LinkIEN
 │ │     │ └TTemplate.LinkType
 │ │     ├TTemplate.LinkIEN
 │ │     ├TTemplate.GetDescription...
 │ │     ├TTemplate.IsLocked...
 │ │     ├TTemplate.AutoLock...
 │ │     ├TfrmTemplateEditor.IsTemplateLocked...
 │ │     ├TTemplate.GetChildren
 │ │     ├TTemplate.ReminderDialogIEN
 │ │     ├TdmodShared.InDialog
 │ │     │ └TTemplate.IsDialog
 │ │     ├TTemplate.GetBoilerplate...
 │ │     ├TfrmTemplateEditor.DisplayBoilerplate
 │ │     │ ├TfrmTemplateEditor.pnlBoilerplateResize
 │ │     │ ├TTemplate.GetBoilerplate...
 │ │     │ ├TTemplate.FullBoilerplate
 │ │     │ │ ├TTemplate.GetBoilerplate...
 │ │     │ │ ├TTemplate.ItemBoilerplate
 │ │     │ │ │ ├TTemplate.GetItems...
 │ │     │ │ │ ├TTemplate.GetTemplateType
 │ │     │ │ │ ├DlgText
 │ │     │ │ │ └TTemplate.DialogProperties
 │ │     │ │ │   ├TTemplate.GetBoilerplate...
 │ │     │ │ │   └TTemplate.DlgID
 │ │     │ │ ├DlgText
 │ │     │ │ └TTemplate.DialogProperties...
 │ │     │ ├TfrmTemplateEditor.UpdateInsertsDialogs...
 │ │     │ ├TfrmTemplateEditor.ShowBoilerPlate
 │ │     │ └TfrmTemplateEditor.ShowGroupBoilerplate
 │ │     ├TfrmTemplateEditor.ShowGroupBoilerplate
 │ │     └TfrmTemplateEditor.pnlBoilerplateResize
 │ └TfrmTemplateEditor.tvTreeChange...
 ├TfrmTemplateEditor.mnuBPErrorCheckClick
 │ ├TdmodShared.TemplateOK
 │ │ ├TdmodShared.BoilerplateOK
 │ │ │ ├ErrCount
 │ │ │ ├AddErr
 │ │ │ └TdmodShared.LoadTIUObjects
 │ │ │   └GetObjectList
 │ │ └BoilerplateTemplateFieldsOK
 │ │   └ListTemplateFields
 │ │     └GetTemplateField
 │ │       ├LoadTemplateFieldByIEN
 │ │       ├LoadTemplateField
 │ │       └TTemplateField.Create
 │ │         ├TemplateFieldCode2Field
 │ │         └TemplateDateCode2DateType
 │ └TestBoilerplate
 ├TfrmTemplateEditor.mnuBPInsertFieldClick
 │ ├TfrmBase508Form.Create
 │ │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ │ ├UnfocusableControlEnter
 │ │ └AdjustControls
 │ │   ├TfrmBase508Form.ModifyUnfocusableControl
 │ │   └..(rec)..
 │ ├TfrmTemplateFields.Setre
 │ │ └TfrmTemplateFields.UpdateStatus...
 │ └TfrmTemplateEditor.AutoLongLines
 ├GrammarCheckForControl
 │ └DoSpellCheck
 │   ├ControlHasText
 │   ├SuspendTimeout
 │   └ResumeTimeout
 │     └TCPRSTimeoutTimer.ResetTimeout
 ├TfrmTemplateEditor.mnuBPInsertObjectClick
 │ ├TdmodShared.LoadTIUObjects...
 │ ├TfrmBase508Form.Create...
 │ ├UserTemplateAccessLevel
 │ │ ├GetTemplateRoots
 │ │ └GetTemplateAccess
 │ ├UpdatePersonalObjects
 │ │ └GetAllowedPersonalObjects
 │ ├TfrmTemplateObjects.Setre
 │ │ └TfrmTemplateObjects.UpdateStatus
 │ └TfrmTemplateEditor.AutoLongLines
 ├SpellCheckForControl
 │ └DoSpellCheck...
 └TfrmTemplateEditor.mnuBPTryClick
   ├TfrmTemplateEditor.mnuBPErrorCheckClick...
   ├TTemplate.GetText
   │ ├TTemplate.IsDialog
   │ ├TTemplate.FullBoilerplate...
   │ ├SetTemplateBPHasObjects
   │ ├GetTemplateText
   │ │ └TEncounter.GetVisitStr
   │ │   └TEncounter.GetVisitCategory
   │ └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
   │     ├HasTemplateField
   │     ├BoilerplateTemplateFieldsOK...
   │     ├DoTemplateDialog...
   │     └StripScreenReaderCodes
   │       └StripScreenReaderCodes
   ├TTemplate.GetDialogAborted
   └ShowTemplateData
     ├TfrmBase508Form.Create...
     ├TfrmTemplateView.AlignButtons
     └CheckBoilerplate4Fields...

Calls

Name Declaration Comments
GrammarCheckForControl procedure GrammarCheckForControl(AnEditControl: TCustomMemo); -
TfrmTemplateEditor.mnuBPErrorCheckClick procedure mnuBPErrorCheckClick(Sender: TObject); -
TfrmTemplateEditor.mnuBPInsertFieldClick procedure mnuBPInsertFieldClick(Sender: TObject); -
TfrmTemplateEditor.mnuBPInsertObjectClick procedure mnuBPInsertObjectClick(Sender: TObject); -
TfrmTemplateEditor.mnuBPTryClick procedure mnuBPTryClick(Sender: TObject); -
TfrmTemplateEditor.sbDeleteClick procedure sbDeleteClick(Sender: TObject); -
SpellCheckForControl procedure SpellCheckForControl(AnEditControl: TCustomMemo); -


Source

2974  procedure TfrmTemplateEditor.tvTreeKeyDown(Sender: TObject;
2975    var Key: Word; Shift: TShiftState);
2976  begin
2977  
2978    if (Key = VK_DELETE) then
2979    begin
2980      if (Sender = tvShared) then
2981      begin
2982        if (sbShDelete.Visible and sbShDelete.Enabled) then
2983          sbDeleteClick(sbShDelete);
2984      end
2985      else
2986      begin
2987        if (sbPerDelete.Visible and sbPerDelete.Enabled) then
2988          sbDeleteClick(sbPerDelete);
2989      end;
2990    end;
2991     //Code Added to provide CTRL Key access for 508 compliance  GRE 3/03
2992    if (ssCtrl in Shift) and (Key = VK_A) then
2993      reBoil.SelectAll
2994    else
2995      if (ssCtrl in Shift) and (Key = VK_C) then
2996        reBoil.CopyToClipboard
2997      else
2998        if (ssCtrl in Shift) and (Key = VK_E) then
2999          mnuBPErrorCheckClick(Self)
3000        else
3001          if (ssCtrl in Shift) and (Key = VK_F) then
3002            mnuBPInsertFieldClick(Self)
3003          else
3004            if (ssCtrl in Shift) and (Key = VK_G) then
3005              GrammarCheckForControl(reBoil)
3006            else
3007              if (ssCtrl in Shift) and (Key = VK_I) then
3008                mnuBPInsertObjectClick(Self)
3009              else
3010                if (ssCtrl in Shift) and (Key = VK_S) then
3011                  SpellCheckForControl(reBoil)
3012                else
3013                  if (ssCtrl in Shift) and (Key = VK_T) then
3014                    mnuBPTryClick(Self)
3015                  else
3016                    if (ssCtrl in Shift) and (Key = VK_V) then
3017                      reBoil.SelText := Clipboard.AsText
3018                    else
3019                      if (ssCtrl in Shift) and (Key = VK_X) then
3020                        reBoil.CutToClipboard
3021                      else
3022                        if (ssCtrl in Shift) and (Key = VK_Z) then
3023                          reBoil.Perform(EM_UNDO, 0, 0);
3024    //End of ---- Code Added to provide CTRL Key access for 508 compliance  GRE 3/03
3025  end;