Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersRenew.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersRenew.pas (modified) (6 diffs)

cprs/branches/foia-cprs/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;
+  ExtCtrls, uODBase, ORCtrls;
 
 type
   TfrmRenewOrders = class(TfrmAutoSz)
-    lstOrders: TListBox;
     hdrOrders: THeaderControl;
-    Panel1: TPanel;
+    pnlBottom: TPanel;
     cmdCancel: TButton;
     cmdOK: TButton;
     cmdChange: TButton;
+    lstOrders: TCaptionListBox;
     procedure FormCreate(Sender: TObject);
     procedure cmdOKClick(Sender: TObject);
@@ -27 +27 @@
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormShow(Sender: TObject);
+    procedure hdrOrdersSectionResize(HeaderControl: THeaderControl;
+      Section: THeaderSection);
   private
     OKPressed: Boolean;
@@ -78 +80 @@
   IsInpt: boolean;
   i,j: Integer;
-  m: integer; //BAPHII 1.3.2
+  //m: integer; //BAPHII 1.3.2
   PkgInfo:string;
   PlainText,RnErrMsg: string;
@@ -251 +253 @@
          AnOrder.LinkObject := nil;
        end;
-
     frmRenewOrders.Release;
   end;
-
-
-
 end;
 
@@ -283 +281 @@
     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;
@@ -427 +426 @@
 end;
 
+procedure TfrmRenewOrders.hdrOrdersSectionResize(HeaderControl: THeaderControl; Section: THeaderSection);
+begin
+  inherited;
+  lstOrders.Repaint; //CQ6367
+end;
+
+
 end.