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

cprs/trunk/CPRS-Chart/fLabTests.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  ORCtrls, StdCtrls, ExtCtrls;
+  ORCtrls, StdCtrls, ExtCtrls, fBase508Form, VA508AccessibilityManager;
 
 type
-  TfrmLabTests = class(TForm)
+  TfrmLabTests = class(TfrmBase508Form)
     pnlLabTests: TORAutoPanel;
     cmdOK: TButton;
@@ -30 +30 @@
     procedure cboTestsExit(Sender: TObject);
     procedure cmdAddClick(Sender: TObject);
-    procedure FormShow(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
@@ -42 +41 @@
 implementation
 
-uses fLabs, ORFn, rLabs, rMisc;
+uses fLabs, ORFn, rLabs, rMisc, VAUtils;
 
 {$R *.DFM}
@@ -61 +60 @@
       ClientWidth := W; pnlLabTests.Width := W;
       ClientHeight := H; pnlLabTests.Height := H;
-      lstList.Items.Assign(frmLabs.lstTests.Items);
+      SetFormPosition(frmLabTests);
+      FastAssign(frmLabs.lstTests.Items, lstList.Items);
       if lstList.Items.Count > 0 then lstList.ItemIndex := 0;
       lstListClick(frmLabTests);
@@ -87 +87 @@
 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);
     Close;
   end;
@@ -158 +158 @@
 end;
 
-procedure TfrmLabTests.FormShow(Sender: TObject);
-begin
-  SetFormPosition(Self);
-end;
-
 procedure TfrmLabTests.FormClose(Sender: TObject;
   var Action: TCloseAction);