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

cprs/trunk/CPRS-Chart/fMedCopy.pas

@@ -6 +6 @@
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   StdCtrls, ORDtTm, ORCtrls, ORFn, rOrders, uCore, rCore, mEvntDelay, fAutoSz,
-  ExtCtrls, UConst;
+  ExtCtrls, UConst, fBase508Form, VA508AccessibilityManager;
 
 type
-  TfrmMedCopy = class(TForm)
-    Panel1: TPanel;
-    lblPtInfo: TLabel;
-    Panel2: TPanel;
+  TfrmMedCopy = class(TfrmBase508Form)
+    pnlTop: TPanel;
+    lblPtInfo: TVA508StaticText;
+    pnlInpatient: TPanel;
     lblInstruction: TStaticText;
     Image1: TImage;
-    Label1: TStaticText;
-    Panel3: TPanel;
-    GroupBox2: TGroupBox;
+    lblInstruction2: TStaticText;
+    pnlMiddle: TPanel;
+    gboxMain: TGroupBox;
     radDelayed: TRadioButton;
     radRelease: TRadioButton;
     cmdOK: TButton;
     cmdCancel: TButton;
-    Panel4: TPanel;
+    pnlBottom: TPanel;
     fraEvntDelayList: TfraEvntDelayList;
     procedure cmdOKClick(Sender: TObject);
@@ -39 +39 @@
     FDelayEvent: TOrderDelayEvent;
     FOKPressed: Boolean;
+    procedure AdjustFormSize;
   public
     { Public declarations }
@@ -51 +52 @@
 {$R *.DFM}
 
-uses  fODBase, fOrdersTS, fOrders;
+uses  fODBase, fOrdersTS, fOrders, VAUtils;
 
 const
@@ -113 +114 @@
     end;
     ResizeAnchoredFormToFont(frmMedCopy);
+    frmMedCopy.AdjustFormSize;
     CurrTS := Piece(GetCurrentSpec(Patient.DFN),'^',1);
     if Length(CurrTS)>0 then
@@ -127 +129 @@
         frmMedCopy.lblPtInfo.Caption := Patient.Name + ' currently is an outpatient.' + SpeCap;
     end;
+    frmMedCopy.AdjustFormSize;
     frmMedCopy.fraEvntDelayList.EvntLimit := LimitEvent;
     if Pos('transfer',RadCap)>0 then
@@ -134 +137 @@
     if LimitEvent='D' then
     begin
-      frmMedCopy.Panel2.Visible := False;
-      frmMedCopy.Height := frmMedCopy.Panel1.Height + frmMedCopy.GroupBox2.Height;
+      frmMedCopy.pnlInpatient.Visible := False;
+      frmMedCopy.AdjustFormSize;
     end;
     frmMedCopy.ShowModal;
@@ -223 +226 @@
   radRelease.Checked := True;
   if not Patient.Inpatient then
-    panel2.Visible := False;
-  if not radDelayed.Checked then
-  begin
-    if not panel2.Visible then
-      Height := Height - fraEvntDelayList.Height - panel2.Height
-    else
-      Height := Height - fraEvntDelayList.Height;
-  end;
+    pnlInpatient.Visible := False;
+  AdjustFormSize;
 end;
 
@@ -261 +258 @@
 end;
 
+procedure TfrmMedCopy.AdjustFormSize;
+var
+  y: integer;
+begin
+  y := lblPtInfo.Height + 8; // allow for font changes
+  if pnlInpatient.Visible then
+  begin
+    lblInstruction2.top := lblInstruction.Height; // allow for font change
+    pnlInpatient.Height := lblInstruction2.top + lblInstruction2.Height;
+    inc(y,pnlInpatient.Height);
+  end;
+  pnlTop.Height := y;
+  inc(y, pnlMiddle.Height);
+  if fraEvntDelayList.Visible then
+  begin
+    inc(y, fraEvntDelayList.Height);
+  end;
+  VertScrollBar.Range := y;
+  ClientHeight := y;
+end;
+
 procedure TfrmMedCopy.cmdCancelClick(Sender: TObject);
 begin
@@ -278 +296 @@
   if fraEvntDelayList.mlstEvents.Items.Count < 1 then
   begin
-    ShowMessage(WarningMSG);
+    ShowMsg(WarningMSG);
     radRelease.Checked := True;
   end else
   begin
-    Height := Height + fraEvntDelayList.Height;
     fraEvntDelayList.Visible := True;
   end;
+  AdjustFormSize;
 end;
 
@@ -291 +309 @@
   inherited;
   fraEvntDelayList.Visible := False;
-  Height := Height - fraEvntDelayList.Height;
+  AdjustFormSize;
 end;
 
@@ -326 +344 @@
   Shift: TShiftState);
 begin
+  inherited;
   if Key = VK_RETURN then
     cmdOKClick(Self);