Changeset 1679 for cprs/trunk/CPRS-Chart/Orders/fODMisc.pas

Timestamp:

May 7, 2015, 12:34:29 PM (10 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

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

cprs/trunk/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;