Changeset 1693 for cprs/branches/HealthSevak-CPRS/CPRS-Chart/Orders/fODMisc.pas

Timestamp:

May 8, 2015, 7:52:55 AM (10 years ago)

Author:

healthsevak

Message:

Committing the files for first time to this new branch

File:

• cprs/branches/HealthSevak-CPRS/CPRS-Chart/Orders/fODMisc.pas (modified) (3 diffs)

cprs/branches/HealthSevak-CPRS/CPRS-Chart/Orders/fODMisc.pas

@@ -6 +6 @@
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   fODBase, StdCtrls, ORCtrls, ORDtTm, ComCtrls, ExtCtrls, ORFn, uConst,
-  VA508AccessibilityManager;
+  VA508AccessibilityManager, VA508AccessibilityRouter;
 
 type
@@ -56 +56 @@
   InitDialog;
   StatusText('');
+  if ScreenReaderSystemActive then memOrder.TabStop := true;
 end;
 
@@ -77 +78 @@
     Changing := False;
     ControlChange(Self);
-    SetFocusedControl(txtComment);
+    if not ScreenReaderSystemActive then SetFocusedControl(txtComment);
   end;
 end;