Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/Templates/fTemplateDialog.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/Templates/fTemplateDialog.pas (modified) (6 diffs)

cprs/branches/foia-cprs/CPRS-Chart/Templates/fTemplateDialog.pas

@@ -10 +10 @@
   TfrmTemplateDialog = class(TForm)
     sbMain: TScrollBox;
-    pnlBottom: TPanel;
+    pnlBottom: TScrollBox;
     btnCancel: TButton;
     btnOK: TButton;
@@ -42 +42 @@
     FCheck4Required: boolean;
     FSilent: boolean;
+    procedure SizeFormToCancelBtn();
     procedure ChkAll(Chk: boolean);
     procedure BuildCB(CBidx: integer; var Y: integer; FirstTime: boolean);
@@ -71 +72 @@
 implementation
 
-uses dShared, uConst, uTemplateFields, fRptBox, uInit;
+uses dShared, uConst, uTemplateFields, fRptBox, uInit, rMisc;
 
 {$R *.DFM}
@@ -391 +392 @@
 procedure TfrmTemplateDialog.BuildCB(CBidx: integer; var Y: integer; FirstTime: boolean);
 var
-  bGap, Indent, i, idx, idx2, p1, p2: integer;
-  EID, ID, PID, DlgProps, tmp, txt, tmpID, ObjID: string;
+  bGap, Indent, i, idx, p1, p2: integer;
+  EID, ID, PID, DlgProps, tmp, txt, tmpID: string;
   pctrl, ctrl: TControl;
   pnl: TPanel;
@@ -637 +638 @@
   ResizeAnchoredFormToFont(Self);
   FMaxPnlWidth := FontWidthPixel(sbMain.Font.Handle) * MAX_ENTRY_WIDTH; //AGP change Template Dialog to wrap at 80 instead of 74
+  SetFormPosition(Self);
+  SizeFormToCancelBtn();
 end;
 
@@ -738 +741 @@
 begin
   Application.OnShowHint := FOldHintEvent;
+  SaveUserBounds(Self);
+end;
+
+procedure TfrmTemplateDialog.SizeFormToCancelBtn;
+const
+  RIGHT_MARGIN = 12;
+var
+  minWidth : integer;
+begin
+  minWidth := btnCancel.Left + btnCancel.Width + RIGHT_MARGIN;
+  if minWidth > Self.Width then
+    Self.Width := minWidth;
 end;