Changeset 829 for cprs/trunk/CPRS-Chart/Encounter/fGAF.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/fGAF.pas (modified) (3 diffs)

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

@@ -6 +6 @@
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   fPCEBase, StdCtrls, Buttons, ExtCtrls, Grids, ORFn, ORNet, ORCtrls,
-  ORDtTm, ComCtrls, fPCEBaseGrid, Menus;
+  ORDtTm, ComCtrls, fPCEBaseGrid, Menus, VA508AccessibilityManager;
 
 type
@@ -47 +47 @@
 implementation
 
-uses rPCE, rCore, uCore, uPCE, fEncounterFrame;
+uses rPCE, rCore, uCore, uPCE, fEncounterFrame, VA508AccessibilityRouter;
 
 {$R *.DFM}
@@ -202 +202 @@
   FTabName := CT_GAFNm;
   btnURL.Visible := (User.WebAccess and (GAFURL <> ''));
-end;
+  FormActivate(Sender);
+end;
+
+initialization
+  SpecifyFormIsNotADialog(TfrmGAF);
 
 end.