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

cprs/trunk/CPRS-Chart/Orders/fOrdersEvntRelease.pas

@@ -6 +6 @@
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs
   ,ORFn, uCore, rOrders, fOrders, StdCtrls, ORCtrls, ExtCtrls, Grids,fAutoSz,
-  Spin, ComCtrls;
+  Spin, ComCtrls, VA508AccessibilityManager;
 
 type
@@ -45 +45 @@
     procedure updown1Click(Sender: TObject; Button: TUDBtnType);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
-    procedure FormDestroy(Sender: TObject);
   private
     { Private declarations }
@@ -65 +64 @@
 implementation
 
-uses rMisc, Accessibility_TLB, uAccessibleStringGrid;
+uses rMisc, VAUtils;
 
 {$R *.DFM}
@@ -148 +147 @@
   grdEvtList.Cells[1,0] := 'Date/Time Occured';
   SetPtEvtList(TStrings(fevtList),Patient.DFN, ATotal);
-  TAccessibleStringGrid.WrapControl(grdEvtList);
 end;
 
@@ -200 +198 @@
   if grdEvtList.Row < 1 then
   begin
-    ShowMessage('You need to select an event first.');
+    ShowMsg('You need to select an event first.');
     FOkPressed := False;
     Exit;
@@ -363 +361 @@
 end;
 
-procedure TfrmOrdersEvntRelease.FormDestroy(Sender: TObject);
-begin
-  TAccessibleStringGrid.UnwrapControl(grdEvtList);
-  inherited;
-end;
-
 end.