Changeset 829 for cprs/trunk/CPRS-Chart/Templates/fTemplateView.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/Templates/fTemplateView.pas (modified) (5 diffs)

cprs/trunk/CPRS-Chart/Templates/fTemplateView.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, ComCtrls, ExtCtrls, Menus, ORFn;
+  StdCtrls, ComCtrls, ExtCtrls, Menus, ORFn, fBase508Form,
+  VA508AccessibilityManager;
 
 type
-  TfrmTemplateView = class(TForm)
+  TfrmTemplateView = class(TfrmBase508Form)
     pnlBottom: TPanel;
     reMain: TRichEdit;
@@ -26 +27 @@
     procedure SelectAll1Click(Sender: TObject);
     procedure btnPrintClick(Sender: TObject);
+    procedure AlignButtons();
     procedure FormCreate(Sender: TObject);
-    procedure FormShow(Sender: TObject);
   private
   end;
@@ -52 +53 @@
   if(not assigned(frmTemplateView)) then
     frmTemplateView := TfrmTemplateView.Create(Application);
-  ResizeAnchoredFormToFont(frmTemplateView);
+  //Quick fix to work around glich in resize algorithm
+  frmTemplateView.AlignButtons();
   frmTemplateView.reMain.Lines.Clear;
   frmTemplateView.Caption := 'Template: ' + Title;
@@ -80 +82 @@
   SaveUserBounds(frmTemplateView);
   Action := caFree;
+end;
+
+procedure TfrmTemplateView.FormCreate(Sender: TObject);
+begin
+  inherited;
+  ResizeAnchoredFormToFont(Self);
+  SetFormPosition(Self);
 end;
 
@@ -118 +127 @@
 end;
 
-procedure TfrmTemplateView.FormCreate(Sender: TObject);
+procedure TfrmTemplateView.AlignButtons;
+Const
+  BtnSpace = 8;
 begin
-  reMain.Color := ReadOnlyColor;
-end;
-
-procedure TfrmTemplateView.FormShow(Sender: TObject);
-begin
-  SetFormPosition(frmTemplateView);
+  btnClose.Left := frmTemplateView.Width - btnClose.Width - BtnSpace;
+  btnPrint.Left := btnClose.Left - BtnSpace - btnPrint.Width;
 end;