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

Timestamp:

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

Author:

healthsevak

Message:

Committing the files for first time to this new branch

File:

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

cprs/branches/HealthSevak-CPRS/CPRS-Chart/fRenewOutMed.pas

@@ -6 +6 @@
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   fAutoSz, StdCtrls, ComCtrls, ORFn, rOrders, Mask, ORCtrls, ExtCtrls, fBase508Form,
-  VA508AccessibilityManager;
+  VA508AccessibilityManager, VA508AccessibilityRouter;
 
 type
@@ -19 +19 @@
     txtRefills: TCaptionEdit;
     lblRefills: TLabel;
+    VA508ComponentAccessibility1: TVA508ComponentAccessibility;
     procedure FormCreate(Sender: TObject);
     procedure cmdOKClick(Sender: TObject);
     procedure cmdCancelClick(Sender: TObject);
+    procedure VA508ComponentAccessibility1StateQuery(Sender: TObject;
+      var Text: string);
+    procedure FormShow(Sender: TObject);
   private
     OKPressed: Boolean;
@@ -73 +77 @@
 end;
 
+procedure TfrmRenewOutMed.FormShow(Sender: TObject);
+begin
+  inherited;
+  if ScreenReaderSystemActive then
+  begin
+    memOrder.TabStop := true;
+    memOrder.SetFocus;
+  end;
+end;
+
+procedure TfrmRenewOutMed.VA508ComponentAccessibility1StateQuery(
+  Sender: TObject; var Text: string);
+begin
+  inherited;
+  Text := memOrder.Text;
+end;
+
 procedure TfrmRenewOutMed.cmdOKClick(Sender: TObject);
 var