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

cprs/trunk/CPRS-Chart/fLabTest.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  ORCtrls, StdCtrls, ExtCtrls, ORNet;
+  ORCtrls, StdCtrls, ExtCtrls, ORNet, fBase508Form, VA508AccessibilityManager;
 
 type
-  TfrmLabTest = class(TForm)
+  TfrmLabTest = class(TfrmBase508Form)
     pnlLabTest: TORAutoPanel;
     cmdOK: TButton;
@@ -35 +35 @@
 implementation
 
-uses fLabs, ORFn, rLabs;
+uses fLabs, ORFn, rLabs, VAUtils;
 
 {$R *.DFM}
@@ -99 +99 @@
 begin
   if cboList.ItemIndex = -1 then
-    ShowMessage('No test was selected.')
+    ShowMsg('No test was selected.')
   else
   begin