Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/Templates

Timestamp:

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

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

Location:

cprs/branches/foia-cprs/CPRS-Chart/Templates

Files:

• fTemplateDialog.dfm (modified) (7 diffs)
• fTemplateDialog.pas (modified) (6 diffs)
• uTemplateFields.pas (modified) (1 diff)

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

@@ -25 +25 @@
     Top = 0
     Width = 632
-    Height = 383
+    Height = 375
     VertScrollBar.Tracking = True
     Align = alClient
@@ -36 +36 @@
     TabOrder = 0
   end
-  object pnlBottom: TPanel
+  object pnlBottom: TScrollBox
     Left = 0
-    Top = 383
+    Top = 375
     Width = 632
-    Height = 30
+    Height = 38
     Align = alBottom
     TabOrder = 1
-    DesignSize = (
-      632
-      30)
     object lblFootnote: TStaticText
       Left = 196
-      Top = 9
+      Top = 7
       Width = 134
       Height = 17
@@ -57 +54 @@
     object btnCancel: TButton
       Left = 551
-      Top = 5
+      Top = 3
       Width = 75
       Height = 21
-      Anchors = [akTop, akRight]
       Cancel = True
       Caption = 'Cancel'
@@ -68 +64 @@
     object btnOK: TButton
       Left = 472
-      Top = 5
+      Top = 3
       Width = 75
       Height = 21
-      Anchors = [akTop, akRight]
       Caption = 'OK'
       ModalResult = 1
@@ -79 +74 @@
     object btnAll: TButton
       Left = 6
-      Top = 5
+      Top = 3
       Width = 75
       Height = 21
@@ -88 +83 @@
     object btnNone: TButton
       Left = 86
-      Top = 5
+      Top = 3
       Width = 75
       Height = 21
@@ -97 +92 @@
     object btnPreview: TButton
       Left = 360
-      Top = 5
+      Top = 3
       Width = 75
       Height = 21

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;
 

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

@@ -918 +918 @@
       edt.Text := s;
   end;
-  edt.SelStart := edt.GetTextLen;
+  edt.SelStart := edt.GetTextLen;    
 end;