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

cprs/trunk/CPRS-Chart/fAllgyBox.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, fRptBox, StdCtrls, ExtCtrls, ComCtrls, fARTAllgy, ORFn;
+  Dialogs, fRptBox, StdCtrls, ExtCtrls, ComCtrls, fARTAllgy, ORFn,
+  VA508AccessibilityManager;
 
 type
@@ -80 +81 @@
       BoundsRect := Rect;
       ResizeAnchoredFormToFont(Result);
+
+      //CQ6889 - force Print & Close buttons to bottom right of form regardless of selected font size
+      cmdClose.Left := (pnlButton.Left+pnlButton.Width)-cmdClose.Width;
+      cmdPrint.Left := (cmdClose.Left-cmdPrint.Width) - 1;
+      //end CQ6889
+
+      Constraints.MinWidth := cmdAdd.Width + cmdEdit.Width + cmdInError.Width + cmdPrint.Width + cmdClose.Width + 20;
+      Constraints.MinHeight := 2*pnlButton.Height + memReport.Height;
+      cmdAdd.Left := 1;
+      cmdEdit.Left := (cmdAdd.Left + cmdAdd.Width) + 1;
+      cmdInError.Left := (cmdEdit.Left + cmdEdit.Width) + 1;
+
       SetLength(BtnLeft, k);
       for j := 0 to k - 1 do
         BtnLeft[j] := pnlButton.Width - BtnArray[j].Width - BtnRight[j];
-      memReport.Lines.Assign(ReportText);
+      QuickCopy(ReportText, memReport);
       for i := 1 to Length(ReportTitle) do if ReportTitle[i] = #9 then ReportTitle[i] := ' ';
       Caption := ReportTitle;
@@ -158 +171 @@
 begin
   memReport.Clear;
-  memReport.Lines.Assign(DetailAllergy(FAllergyIEN));
+  QuickCopy(DetailAllergy(FAllergyIEN), memReport);
 end;