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

cprs/trunk/CPRS-Chart/fVitals.pas

@@ -36 +36 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, ORCtrls, TeEngine, Series, TeeProcs, Chart, ExtCtrls, Grids,
-  Buttons, ORNet, ORFn, uConst, Menus, ORDtTmRng
-  , ComCtrls
-  , uVitals
-  ;  {*KCM*}
+  StdCtrls, ORCtrls, TeEngine, Series, TeeProcs, Chart, ExtCtrls, Grids,Buttons,
+  ORNet, ORFn, uConst, Menus, ORDtTmRng, fBase508Form, ComCtrls, uVitals, VAUtils,
+  VA508AccessibilityManager;
 
 type
-  TfrmVitals = class(TForm)
+  TfrmVitals = class(TfrmBase508Form)
     pnlTop: TPanel;
     chtChart: TChart;
@@ -130 +128 @@
 implementation
 
-uses fCover, uCore, rCore, fVit, fFrame, fEncnt, fVisit, fRptBox, rReports,
-  uAccessibleStringGrid, uInit;
+uses fCover, uCore, rCore, fVit, fFrame, fEncnt, fVisit, fRptBox, rReports, uInit;
 
 const
@@ -185 +182 @@
   GMV_LibName :='GMV_VitalsViewEnter.dll';
   GMV_LibName := GetProgramFilesPath + SHARE_DIR + GMV_LibName;
-  VitalsDLLHandle := LoadLibrary(PChar(GMV_LibName));
+  if VitalsDLLHandle = 0 then
+    VitalsDLLHandle := LoadLibrary(PChar(GMV_LibName));
  // UpdateTimeOutInterval(5000);
   if VitalsDLLHandle <> 0 then
@@ -204 +202 @@
     MessageDLG('Can''t find library "'+GMV_LibName+'".',mtError,[mbok],0);
   @VLPtVitals := nil;
-  FreeLibrary(VitalsDLLHandle);
-  if DLLForceClose then
-    frmFrame.Close; // Fix for CQ: 7535
+  if VitalsDLLHandle <> 0 then
+  begin
+    FreeLibrary(VitalsDLLHandle);
+    VitalsDLLHandle := 0;
+  end;
+//  if DLLForceClose then                  // jm - removed as part of timeout fix
+//    frmFrame.Close; // Fix for CQ: 7535  // jm - removed as part of timeout fix
 end;
 
@@ -343 +345 @@
     BeginEndDates(date1,date2,daysback);
   //date1 := date1 + 0.2359;
-  tmpGrid.Assign(VitalsGrid(Patient.DFN, date1, date2, 0, lstVitals.Items));
+  FastAssign(VitalsGrid(Patient.DFN, date1, date2, 0, lstVitals.Items), tmpGrid);
   vindex := lstVitals.ItemIndex;
   VGrid(tmpGrid);
@@ -364 +366 @@
 procedure TfrmVitals.FormCreate(Sender: TObject);
 begin
-  grdVitals.Color := ReadOnlyColor;
   tmpGrid := TStringList.Create;
   if Patient.Inpatient then lstDates.ItemIndex := 1 else lstDates.ItemIndex := 4;
   SerTest.GetHorizAxis.ExactDateTime := true;
   SerTest.GetHorizAxis.Increment := DateTimeStep[dtOneMinute];
-  TAccessibleStringGrid.WrapControl(grdVitals);
 end;
 
@@ -375 +375 @@
 begin
   tmpGrid.free;
-  TAccessibleStringGrid.UnwrapControl(grdVitals);
 end;