Changeset 830 for cprs/trunk/CPRS-Chart/fPage.pas

Timestamp:

Jul 7, 2010, 4:51:54 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrading to version 27

File:

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

cprs/trunk/CPRS-Chart/fPage.pas

@@ -7 +7 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, uConst,
-  rOrders;
+  rOrders, fBase508Form, VA508AccessibilityManager;
 
 type
-  TfrmPage = class(TForm)
+  TfrmPage = class(TfrmBase508Form)
     shpPageBottom: TShape;
     procedure FormCreate(Sender: TObject);
@@ -46 +46 @@
 implementation
 
-uses ORFn, fFrame, uInit;
+uses ORFn, fFrame, uInit, VA508AccessibilityRouter;
 
 {$R *.DFM}
@@ -88 +88 @@
   BringToFront;
   if ActiveControl <> nil then
-    FocusControl(ActiveControl)
-  else
-    FocusFirstControl;
+    FocusControl(ActiveControl);
+ //CQ12232 else
+//CQ12232   FocusFirstControl;
   //SetFocus;
   Inc(FDisplayCount);
@@ -159 +159 @@
 end;
 
+initialization
+  SpecifyFormIsNotADialog(TfrmPage);
+
 end.