Changeset 829 for cprs/trunk/CPRS-Chart/Encounter/fPCEBase.pas

Timestamp:

Jul 7, 2010, 4:31:10 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrade to version 27

File:

• cprs/trunk/CPRS-Chart/Encounter/fPCEBase.pas (modified) (4 diffs)

cprs/trunk/CPRS-Chart/Encounter/fPCEBase.pas

@@ -17 +17 @@
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, uConst,
   StdCtrls, fAutoSz, Buttons, ORCtrls, ORFn, uPCE, ORDtTm, Checklst,
-  ComCtrls;
+  ComCtrls, VA508AccessibilityManager, fBase508Form;
 
 type
@@ -27 +27 @@
     procedure btnOKClick(Sender: TObject); virtual;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
-    procedure FormShow(Sender: TObject);
   private
     FDisplayCount: Integer;                      // number of times page displayed
@@ -71 +70 @@
 
 uses
-  fEncounterFrame;
+  fEncounterFrame, VA508AccessibilityRouter;
 
 
@@ -368 +367 @@
 end;
 
-procedure TfrmPCEBase.FormShow(Sender: TObject);
-begin
-  inherited;
-  FocusFirstControl;
-end;
+initialization
+  SpecifyFormIsNotADialog(TfrmPCEBase);
+
 
 end.