Changeset 829 for cprs/trunk/CPRS-Chart/Encounter/fSkinTest.pas

Timestamp:

Jul 7, 2010, 4:31:10 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrade to version 27

File:

• cprs/trunk/CPRS-Chart/Encounter/fSkinTest.pas (modified) (4 diffs)

cprs/trunk/CPRS-Chart/Encounter/fSkinTest.pas

@@ -6 +6 @@
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   fPCEBase, ORCtrls, StdCtrls, ComCtrls, CheckLst, ExtCtrls, Buttons, uPCE, rPCE, ORFn,
-  fPCELex, fPCEOther, rCore, fPCEBaseMain;
+  fPCELex, fPCEOther, rCore, fPCEBaseMain, VA508AccessibilityManager;
 
 type
@@ -41 +41 @@
 
 uses
-  fEncounterFrame;
+  fEncounterFrame, VA508AccessibilityRouter;
 
 procedure TfrmSkinTests.cboSkinResultsChange(Sender: TObject);
@@ -137 +137 @@
       else
       begin
-        Showmessage('If the reading is over 9, the results are required to be positive.');
+        Show508Message('If the reading is over 9, the results are required to be positive.');
         cboSkinResults.SelectById('P');
        end;
@@ -245 +245 @@
 end;
 
+initialization
+  SpecifyFormIsNotADialog(TfrmSkinTests);
+
 end.