Class

TfrmBase508Form

Module

fBase508Form

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TForm

Inherited by

TfrmAddlSigners
TfrmAlertForward
TfrmAutoSz
TfrmBroker
TfrmCombatVet
TfrmConsultAction
TfrmConsultAlertsTo
TfrmConsultsByDate
TfrmConsultsByService
TfrmConsultsByStatus
TfrmConsultsView
TfrmCopyOrders
TfrmCsltNote
TfrmDbgList
TfrmDbgServer
TfrmDCOrders
TfrmDCSummProperties
TfrmDefaultEvent
TfrmdlgProb
TfrmDrawers
TfrmDupPts
TfrmEncounterFrame
TfrmEncounter
TfrmFlags
TfrmFrame
TfrmGraphData
TfrmGraphOthers
TfrmGraphProfiles
TfrmGraphSettings
TfrmGraphs
TfrmInvalidActionList
TfrmLabCollectTimes
TfrmLabPrint
TfrmLabTestGroups
TfrmLabTests
TfrmLabTest
TfrmMedCopy
TfrmMHTest
TfrmNoteProperties
TfrmNotesByAuthor
TfrmNotesByDate
TfrmODLabImmedColl
TfrmODLabOthCollSamp
TfrmODLabOthSpec
TfrmODMedOIFA
TfrmODMessage
TfrmODRadApproval
TfrmODRadConShRes
TfrmODRadImType
TfrmOMNavA
TfrmOMSet
TfrmOptionsCombinations
TfrmOptionsDays
TfrmOptionsLists
TfrmOptionsNewList
TfrmOptionsNotes
TfrmOptionsOther
TfrmOptionsPatientSelection
TfrmOptionsPrimaryList
TfrmOptionsReminders
TfrmOptionsReportsCustom
TfrmOptionsReportsDefault
TfrmOptionsSubscribe
TfrmOptionsSurrogate
TfrmOptionsTeams
TfrmOptionsTitles
TfrmOrdersPrint
TfrmOrdersReleaseEvent
TfrmPage
TfrmPCEEdit
TfrmPCELex
TfrmPCEProvider
TfrmPLLex
TfrmPlVuFilt
TfrmPostings
TfrmPrerequisites
TfrmProbCmt
TfrmProbFreetext
TfrmPtDemo
TfrmPtSelDemog
TfrmPtSelMsg
TfrmPtSelOptns
TfrmPtSelOptSave
TfrmPtSel
TfrmPtSens
TfrmRemCoverPreview
TfrmRemCoverSheet
TfrmRemDlg
TfrmReminderTree
TfrmRemVisitInfo
TfrmRenewOutMed
TfrmReportBox
TfrmReportPrt
TfrmReview
TfrmSignItem
TfrmSignOrders
TfrmSplash
TfrmSurgeryView
TfrmTemplateAutoGen
TfrmTemplateDialog
TfrmTemplateEditor
TfrmTemplateFieldEditor
TfrmTemplateFields
TfrmTemplateImport
TfrmTemplateObjects
TfrmTemplateView
TfrmTIUView
TfrmVisit
TfrmVitalsDate
TfrmVitals

Declaration


TfrmBase508Form = class(TForm)
  amgrMain: TVA508AccessibilityManager;
  procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  function FormHelp(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean;
private
  HelpClicked: boolean;
  OldCursor: TCursor;
  FLoadedCalled: boolean;
  FDefaultButton: TButton;
  FActions: TAccessibilityActions;
  FUnfocusableControlPtr: TMethod;
  procedure AdjustForTitleBarHeightChanges;
  function GetDefaultButton(OwnerComponent: TComponent) : TButton;
  procedure ClickDefaultButton;
  procedure SetDefaultButton(const Value: TButton);
  procedure ModifyUnfocusableControl(Control: TWinControl; Attach: boolean);
  procedure UM508(var Message: TMessage); message UM_508;
  procedure WMNCLBUTTONDOWN(var Msg: TWMNCLButtonDown) ; message WM_NCLBUTTONDOWN;
  procedure WMNCLBUTTONUP(var Msg: TWMNCLButtonUp) ; message WM_NCLBUTTONUP;
  function DoOnHelp(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean;
protected
  procedure Activate; override;
  procedure Loaded; override;
  procedure SetParent(AParent: TWinControl); override;
  procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  procedure UpdateAccessibilityActions(var Actions: TAccessibilityActions); virtual;
public
  constructor Create(AOwner: TComponent); override;
  property DefaultButton : TButton read FDefaultButton write SetDefaultButton;
end;

DFM Objects


frmBase508Form : TfrmBase508Form
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
amgrMain Simple (unknown) Public/Published -
FActions Private -
FDefaultButton Simple (unknown) Private -
FLoadedCalled Boolean Private -
FUnfocusableControlPtr TMethod Private -
HelpClicked Boolean Private -
OldCursor Simple (unknown) Private -

Properties

Name Type Scope Comments
DefaultButton TButton Public -

Constructors

Name Declaration Scope Comments
Create constructor Create(AOwner: TComponent); override; Public -

Methods

Name Declaration Scope Comments
Activate procedure Activate; override; Protected
All forms in CPRS should be a descendant of this form, even those that are programatically
 made children of other forms.
AdjustForTitleBarHeightChanges procedure AdjustForTitleBarHeightChanges; Private -
ClickDefaultButton procedure ClickDefaultButton; Private -
DoOnHelp function DoOnHelp(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean; Private -
FormHelp function FormHelp(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean; Public/Published -
FormKeyDown procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
GetDefaultButton function GetDefaultButton(OwnerComponent: TComponent) : TButton; Private -
Loaded procedure Loaded; override; Protected -
ModifyUnfocusableControl procedure ModifyUnfocusableControl(Control: TWinControl; Attach: boolean); Private -
Notification procedure Notification(AComponent: TComponent; Operation: TOperation); override; Protected -
SetDefaultButton procedure SetDefaultButton(const Value: TButton); Private -
SetParent procedure SetParent(AParent: TWinControl); override; Protected -
UM508 procedure UM508(var Message: TMessage); message UM_508; Private
To prevent a 508 feature from taking place, remove that feature's flag form the Actions set
 in an override of the UpdateAccessabilityActions proc.
UpdateAccessibilityActions procedure UpdateAccessibilityActions(var Actions: TAccessibilityActions); virtual; Protected -
WMNCLBUTTONDOWN procedure WMNCLBUTTONDOWN(var Msg: TWMNCLButtonDown) ; message WM_NCLBUTTONDOWN; Private
=============================================================================================
  These two message handlers intercept the help button, and redirect it to the html system.  
=============================================================================================
WMNCLBUTTONUP procedure WMNCLBUTTONUP(var Msg: TWMNCLButtonUp) ; message WM_NCLBUTTONUP; Private -

Referenced By (111)

Module (line) Referrer Type
fAddlSigners (10) TfrmAddlSigners Read
fAlertForward (10) TfrmAlertForward Read
fAutoSz (13) TfrmAutoSz Read
fBase508Form (355) - Read
fCombatVet (15) TfrmCombatVet Read
fConsultAct (11) TfrmConsultAction Read
fConsultAlertTo (9) TfrmConsultAlertsTo Read
fConsultBD (11) TfrmConsultsByDate Read
fConsultBS (11) TfrmConsultsByService Read
fConsultBSt (11) TfrmConsultsByStatus Read
fConsultsView (11) TfrmConsultsView Read
fCsltNote (9) TfrmCsltNote Read
fDCSummProps (11) TfrmDCSummProperties Read
fDefaultEvent (11) TfrmDefaultEvent Read
fDrawers (18) TfrmDrawers Read
fDupPts (11) TfrmDupPts Read
fEncnt (19) TfrmEncounter Read
fEncounterFrame (59) TfrmEncounterFrame Read
fFrame (21) TfrmFrame Read
fGraphData (10) TfrmGraphData Read
fGraphOthers (11) TfrmGraphOthers Read
fGraphProfiles (11) TfrmGraphProfiles Read
fGraphs (17) TfrmGraphs Read
fGraphSettings (11) TfrmGraphSettings Read
fLabCollTimes (11) TfrmLabCollectTimes Read
fLabPrint (11) TfrmLabPrint Read
fLabTest (10) TfrmLabTest Read
fLabTestGroups (10) TfrmLabTestGroups Read
fLabTests (10) TfrmLabTests Read
fMedCopy (11) TfrmMedCopy Read
fMHTest (50) TfrmMHTest Read
fNoteBA (11) TfrmNotesByAuthor Read
fNoteBD (11) TfrmNotesByDate Read
fNoteProps (30) TfrmNoteProperties Read
fODLabImmedColl (11) TfrmODLabImmedColl Read
fODLabOthCollSamp (10) TfrmODLabOthCollSamp Read
fODLabOthSpec (10) TfrmODLabOthSpec Read
fODMedOIFA (10) TfrmODMedOIFA Read
fODMessage (10) TfrmODMessage Read
fODRadApproval (9) TfrmODRadApproval Read
fODRadConShRes (9) TfrmODRadConShRes Read
fODRadImType (9) TfrmODRadImType Read
fODReleaseEvent (11) TfrmOrdersReleaseEvent Read
fODValidateAction (11) TfrmInvalidActionList Read
fOMNavA (13) TfrmOMNavA Read
fOMSet (20) TfrmOMSet Read
fOptionsCombinations (11) TfrmOptionsCombinations Read
fOptionsDays (11) TfrmOptionsDays Read
fOptionsLists (11) TfrmOptionsLists Read
fOptionsNewList (10) TfrmOptionsNewList Read
fOptionsNotes (11) TfrmOptionsNotes Read
fOptionsOther (11) TfrmOptionsOther Read
fOptionsPatientSelection (11) TfrmOptionsPatientSelection Read
fOptionsPrimaryList (10) TfrmOptionsPrimaryList Read
fOptionsReminders (10) TfrmOptionsReminders Read
fOptionsReportsCustom (11) TfrmOptionsReportsCustom Read
fOptionsReportsDefault (11) TfrmOptionsReportsDefault Read
fOptionsSubscribe (10) TfrmOptionsSubscribe Read
fOptionsSurrogate (11) TfrmOptionsSurrogate Read
fOptionsTeams (11) TfrmOptionsTeams Read
fOptionsTitles (10) TfrmOptionsTitles Read
fOrdersCopy (11) TfrmCopyOrders Read
fOrdersDC (10) TfrmDCOrders Read
fOrdersPrint (11) TfrmOrdersPrint Read
fOrdersSign (15) TfrmSignOrders Read
fPage (12) TfrmPage Read
fPatientFlagMulti (25) TfrmFlags Read
fPCEEdit (10) TfrmPCEEdit Read
fPCELex (11) TfrmPCELex Read
fPCEProvider (11) TfrmPCEProvider Read
fPostings (10) TfrmPostings Read
fPreReq (11) TfrmPrerequisites Read
fProbCmt (10) TfrmProbCmt Read
fProbEdt (15) TfrmdlgProb Read
fProbflt (10) TfrmPlVuFilt Read
fProbFreetext (10) TfrmProbFreetext Read
fProbLex (12) TfrmPLLex Read
fPtDemo (11) TfrmPtDemo Read
fPtSel (16) TfrmPtSel Read
fPtSelDemog (10) TfrmPtSelDemog Read
fPtSelMsg (10) TfrmPtSelMsg Read
fPtSelOptns (14) TfrmPtSelOptns Read
fPtSelOptSave (10) TfrmPtSelOptSave Read
fPtSens (10) TfrmPtSens Read
fRemCoverPreview (10) TfrmRemCoverPreview Read
fRemCoverSheet (13) TfrmRemCoverSheet Read
fReminderDialog (12) TfrmRemDlg Read
fReminderTree (24) TfrmReminderTree Read
fRemVisitInfo (10) TfrmRemVisitInfo Read
fRenewOutMed (11) TfrmRenewOutMed Read
fReportsPrint (11) TfrmReportPrt Read
fReview (15) TfrmReview Read
fRptBox (11) TfrmReportBox Read
fSignItem (10) TfrmSignItem Read
fSplash (10) TfrmSplash Read
fSurgeryView (11) TfrmSurgeryView Read
fTemplateAutoGen (10) TfrmTemplateAutoGen Read
fTemplateDialog (11) TfrmTemplateDialog Read
fTemplateEditor (27) TfrmTemplateEditor Read
fTemplateFieldEditor (11) TfrmTemplateFieldEditor Read
fTemplateFields (10) TfrmTemplateFields Read
fTemplateImport (10) TfrmTemplateImport Read
fTemplateObjects (11) TfrmTemplateObjects Read
fTemplateView (11) TfrmTemplateView Read
fTIUView (11) TfrmTIUView Read
fVisit (11) TfrmVisit Read
fVitals (43) TfrmVitals Read
fVitalsDate (10) TfrmVitalsDate Read
fxBroker (11) TfrmBroker Read
fxLists (10) TfrmDbgList Read
fxServer (10) TfrmDbgServer Read