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

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

@@ -6 +6 @@
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   fAutoSz, StdCtrls, ORFn, ComCtrls, uConst, rODMeds, uOrders, fOCAccept,
-  ExtCtrls, uODBase, ORCtrls;
+  ExtCtrls, uODBase, ORCtrls, VA508AccessibilityManager;
 
 type
@@ -26 +26 @@
     procedure cmdChangeClick(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
-    procedure FormShow(Sender: TObject);
     procedure hdrOrdersSectionResize(HeaderControl: THeaderControl;
       Section: THeaderSection);
+    procedure FormResize(Sender: TObject);
   private
     OKPressed: Boolean;
@@ -42 +42 @@
 {$R *.DFM}
 
-uses rOrders, fDateRange, fRenewOutMed, uCore, rCore, rMisc, UBAGlobals;
+uses rOrders, fDateRange, fRenewOutMed, uCore, rCore, rMisc, UBAGlobals, 
+  VA2006Utils;
 
 const
@@ -103 +104 @@
   try
     frmRenewOrders.OrderList := SelectedList;
-    ResizeFormToFont(TForm(frmRenewOrders));
     IsInpt := OrderForInpatient;
 
@@ -260 +260 @@
 begin
   inherited;
-  lstOrders.Color := ReadOnlyColor;
+  FixHeaderControlDelphi2006Bug(hdrOrders);
   OKPressed := False;
+  ResizeFormToFont(Self);
+  SetFormPosition(Self);  
+end;
+
+procedure TfrmRenewOrders.FormResize(Sender: TObject);
+var
+i: integer;
+Height: integer;
+begin
+  inherited;
+  if lstorders.Count = 0 then exit;
+  for I := 0 to lstOrders.Count - 1 do
+    begin
+       Height := lstOrders.ItemRect(i).Bottom - lstOrders.ItemRect(i).Top;
+       lstOrdersMeasureItem(lstOrders,i,Height);
+       //ListGridDrawCell(lstOrders, hdrOrders, i, TEXT_COLUMN, x, WORD_WRAPPED);
+    end;
 end;
 
@@ -267 +284 @@
   Index: Integer; var Height: Integer);
 var
-  x: string;
+  x, tmp: string;
   DateHeight, TextHeight: Integer;
   AnOrder: TOrder;
@@ -273 +290 @@
 begin
   inherited;
-  AnOrder := TOrder(OrderList.Items[Index]);
-  if AnOrder <> nil then
-  begin
-    RenewFields := TOrderRenewFields(AnOrder.LinkObject);
-    with RenewFields do x := 'Start: ' + StartTime + CRLF + 'Stop: ' + StopTime;
-    TextHeight := MeasureColumnHeight(RenewFields.NewText,Index,TEXT_COLUMN);
-    DateHeight := MeasureColumnHeight(x, Index, DATE_COLUMN);
-    Height := HigherOf(TextHeight, DateHeight);
-    if Height > 255 then Height := 255;  //This is maximum allowed by a windows listbox item.
-  end
+      AnOrder := TOrder(OrderList.Items[Index]);
+      if (AnOrder <> nil) then
+        begin
+          RenewFields := TOrderRenewFields(AnOrder.LinkObject);
+          with RenewFields do x := 'Start: ' + StartTime + CRLF + 'Stop: ' + StopTime;
+          //tmp := RenewFields.NewText;
+          tmp := LstOrders.Items.Strings[index];
+          TextHeight := MeasureColumnHeight(tmp,Index,TEXT_COLUMN);
+          DateHeight := MeasureColumnHeight(x, Index, DATE_COLUMN);
+          Height := HigherOf(TextHeight, DateHeight);
+          if Height > 255 then Height := 255;  //This is maximum allowed by a windows listbox item.
+        end
 end;
 
@@ -420 +439 @@
 end;
 
-procedure TfrmRenewOrders.FormShow(Sender: TObject);
-begin
-  inherited;
-  SetFormPosition(Self);
-end;
-
 procedure TfrmRenewOrders.hdrOrdersSectionResize(HeaderControl: THeaderControl; Section: THeaderSection);
 begin