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

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

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, ORCtrls, ExtCtrls, mEvntDelay, uCore, fODBase, UConst, fAutoSz;
+  StdCtrls, ORCtrls, ExtCtrls, mEvntDelay, uCore, fODBase, UConst, fAutoSz, fBase508Form,
+  VA508AccessibilityManager;
 
 type
-  TfrmCopyOrders = class(TForm)
+  TfrmCopyOrders = class(TfrmBase508Form)
     pnlInfo: TPanel;
     fraEvntDelayList: TfraEvntDelayList;
@@ -16 +17 @@
     radEvtDelay: TRadioButton;
     Image1: TImage;
-    Label2: TStaticText;
-    Label1: TStaticText;
+    lblInstruction2: TVA508StaticText;
+    lblInstruction: TVA508StaticText;
     pnlTop: TPanel;
-    lblPtInfo: TStaticText;
-    pnlBtns: TPanel;
-    gbBtns: TGroupBox;
+    lblPtInfo: TVA508StaticText;
     cmdOK: TButton;
     cmdCancel: TButton;
+    pnlBottom: TPanel;
     procedure cmdOKClick(Sender: TObject);
     procedure cmdCancelClick(Sender: TObject);
@@ -37 +37 @@
   private
     OKPressed: Boolean;
+    procedure AdjustFormSize;
   public
   end;
@@ -116 +117 @@
   frmCopyOrders := TfrmCopyOrders.Create(Application);
   try
-    ResizeFormToFont(TForm(frmCopyOrders));
+    ResizeAnchoredFormToFont(TForm(frmCopyOrders));
+    frmCopyOrders.AdjustFormSize;
     CurrTS := Piece(GetCurrentSpec(Patient.DFN),'^',1);
     if Length(CurrTS)>0 then
@@ -132 +134 @@
         frmCopyOrders.lblPtInfo.Caption := Patient.Name + ' currently is an outpatient.'  + SpeCap;
     end;
+    frmCopyOrders.AdjustFormSize;
     frmCopyOrders.ShowModal;
     if (frmCopyOrders.OKPressed) and (frmCopyOrders.radRelease.Checked) then
@@ -234 +237 @@
   begin
     pnlInfo.Visible := False;
-    pnlBtns.Top := pnlRadio.Top;
-  end;
-  if not radEvtDelay.Checked then
-  begin
-    if not pnlInfo.Visible then
-      Height := Height - fraEvntDelayList.Height - pnlInfo.Height
-    else
-          Height := Height - fraEvntDelayList.Height;   
-  end;
+  end;
+  AdjustFormSize;
 end;
 
@@ -263 +259 @@
 end;
 
+procedure TfrmCopyOrders.AdjustFormSize;
+var
+  y: integer;
+begin
+  y := lblPtInfo.Height + 8; // allow for font changes
+  if pnlInfo.Visible then
+  begin
+    lblInstruction2.top := lblInstruction.Height; // allow for font change
+    pnlInfo.Height := lblInstruction2.top + lblInstruction2.Height;
+    inc(y,pnlInfo.Height);
+  end;
+  pnlTop.Height := y;
+  inc(y, pnlRadio.Height);
+  if fraEvntDelayList.Visible then
+  begin
+    inc(y, fraEvntDelayList.Height);
+  end;
+  VertScrollBar.Range := y;
+  ClientHeight := y;
+end;
+
 procedure TfrmCopyOrders.cmdCancelClick(Sender: TObject);
 begin
@@ -275 +292 @@
     radRelease.Checked  := False;
   radEvtDelay.Checked := True;
-  Height := Height + fraEvntDelayList.Height;
   fraEvntDelayList.Visible := True;
   frmCopyOrders.fraEvntDelayList.UserDefaultEvent := StrToIntDef(GetDefaultEvt(IntToStr(User.DUZ)),0);
   fraEvntDelayList.DisplayEvntDelayList;
+  AdjustFormSize;
 end;
 
@@ -288 +305 @@
   radRelease.Checked  := True;
   fraEvntDelayList.Visible := False;
-  Height := Height - fraEvntDelayList.Height;
+  AdjustFormSize;
 end;
 
@@ -327 +344 @@
   Shift: TShiftState);
 begin
+  inherited;
   if Key = VK_RETURN then
     cmdOKClick(Self);