Changeset 830 for cprs/trunk/CPRS-Chart/fLabTestGroups.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/fLabTestGroups.pas (modified) (18 diffs)

cprs/trunk/CPRS-Chart/fLabTestGroups.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  ExtCtrls, Buttons, ORCtrls, StdCtrls;
+  ExtCtrls, Buttons, ORCtrls, StdCtrls, fBase508Form, VA508AccessibilityManager;
 
 type
-  TfrmLabTestGroups = class(TForm)
+  TfrmLabTestGroups = class(TfrmBase508Form)
     pnlLabTestGroups: TORAutoPanel;
     cmdOK: TButton;
@@ -34 +34 @@
     cmdAdd: TButton;
     cmdAddTest: TButton;
-    lblDefine: TLabel;
+    lblDefine: TVA508StaticText;
     lblTestGroup: TLabel;
     procedure FormCreate(Sender: TObject);
@@ -50 +50 @@
       Direction, InsertAt: Integer);
     procedure cboUsersClick(Sender: TObject);
-    procedure lstTestGroupsClick(Sender: TObject);
     procedure cmdReplaceClick(Sender: TObject);
     procedure cmdAddClick(Sender: TObject);
@@ -64 +63 @@
     procedure pnlUpButtonResize(Sender: TObject);
     procedure pnlDownButtonResize(Sender: TObject);
+    procedure lstTestGroupsChange(Sender: TObject);
   private
     { Private declarations }
@@ -76 +76 @@
 implementation
 
-uses fLabs, ORFn, rLabs, uCore;
+uses fLabs, ORFn, rLabs, uCore, VAUtils, VA508AccessibilityRouter;
 
 {$R *.DFM}
@@ -107 +107 @@
         AutoSize := True;
       end;
-      lstList.Items.Assign(frmLabs.lstTests.Items);
+      FastAssign(frmLabs.lstTests.Items, lstList.Items);
       if lstList.Items.Count > 0 then lstList.ItemIndex := 0;
       lstListClick(frmLabTestGroups);
@@ -163 +163 @@
 begin
   if lstList.Items.Count = 0 then
-    ShowMessage('No tests were selected.')
+    ShowMsg('No tests were selected.')
   else
   begin
-    frmLabs.lstTests.Items.Assign(lstList.Items);
+    FastAssign(lstList.Items, frmLabs.lstTests.Items);
     frmLabs.lblSpecimen.Caption := cboSpecimen.Items[cboSpecimen.ItemIndex];
     Close;
@@ -206 +206 @@
     lstList.ItemIndex := newindex;
     lstListClick(self);
+    if ScreenReaderSystemActive then
+      GetScreenReader.Speak('Test Moved Up');
   end;
 end;
@@ -221 +223 @@
     lstList.ItemIndex := newindex;
     lstListClick(self);
+    if ScreenReaderSystemActive then
+      GetScreenReader.Speak('Test Moved Down');
   end;
 end;
@@ -261 +265 @@
 procedure TfrmLabTestGroups.cboUsersClick(Sender: TObject);
 begin
-  lstTestGroups.Items.Assign(TestGroups(cboUsers.ItemIEN));
+  FastAssign(TestGroups(cboUsers.ItemIEN), lstTestGroups.Items);
   TestGroupEnable;
 end;
@@ -290 +294 @@
 end;
 
-procedure TfrmLabTestGroups.lstTestGroupsClick(Sender: TObject);
-begin
-  AddTests(ATestGroup(lstTestGroups.ItemIEN, cboUsers.ItemIEN));
+procedure TfrmLabTestGroups.lstTestGroupsChange(Sender: TObject);
+begin
+  if lstTestGroups.ItemIEN > 0 then
+  begin
+    AddTests(ATestGroup(lstTestGroups.ItemIEN, cboUsers.ItemIEN));
+  end;
 end;
 
@@ -313 +320 @@
     text := text + lstList.DisplayText[i] + #13 + '  ';
   if InfoBox(text,'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES then
-    UTGReplace(lstList.Items, lstTestGroups.ItemIEN); //ShowMessage('Replace'); //Replace
+  begin
+    UTGReplace(lstList.Items, lstTestGroups.ItemIEN); //Show508Message('Replace'); //Replace
+    if ScreenReaderSystemActive then
+      GetScreenReader.Speak('test group replaced');
+  end;
   cboUsersClick(self);
+  lstTestGroups.SetFocus;  
 end;
 
@@ -328 +340 @@
   begin
     UTGAdd(lstList.Items);
+    if ScreenReaderSystemActive then
+      GetScreenReader.Speak('New test group created');
     cboUsers.InitLongList(User.Name);
     for i := 0 to cboUsers.Items.Count - 1 do
@@ -337 +351 @@
   end;
   if cboUsers.ItemIndex > -1 then cboUsersClick(self);
+  lstTestGroups.SetFocus;  
 end;
 
@@ -349 +364 @@
   begin
     UTGDelete(lstTestGroups.ItemIEN);
+    if ScreenReaderSystemActive then
+      GetScreenReader.Speak('Test group deleted');
     cboUsers.Text := '';
     lstTestGroups.Clear;
@@ -360 +377 @@
   end;
   if cboUsers.ItemIndex > -1 then cboUsersClick(self);
+  lstTestGroups.SetFocus;
 end;
 
@@ -384 +402 @@
 procedure TfrmLabTestGroups.pnlUpButtonEnter(Sender: TObject);
 begin
-  pnlUpButton.BevelOuter := bvRaised;
+  pnlUpButton.BevelOuter := bvLowered;
 end;
 
@@ -394 +412 @@
 procedure TfrmLabTestGroups.pnlDownButtonEnter(Sender: TObject);
 begin
-  pnlDownButton.BevelOuter := bvRaised;
+  pnlDownButton.BevelOuter := bvLowered;
 end;