Changeset 829 for cprs/trunk/CPRS-Chart/Consults/fPreReq.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/Consults/fPreReq.pas (modified) (8 diffs)

cprs/trunk/CPRS-Chart/Consults/fPreReq.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, ORFn, ComCtrls, ExtCtrls;
+  StdCtrls, ORFn, ComCtrls, ExtCtrls, fBase508Form, VA508AccessibilityManager,
+  uReports;
 
 type
-  TfrmPrerequisites = class(TForm)
+  TfrmPrerequisites = class(TfrmBase508Form)
     lblFontTest: TLabel;
     memReport: TRichEdit;
@@ -20 +21 @@
     procedure cmdCancelClick(Sender: TObject);
     procedure cmdPrintClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure OnActivate(Sender: TObject);
     procedure FormCreate(Sender: TObject);
-    procedure FormClose(Sender: TObject; var Action: TCloseAction);
-    procedure FormShow(Sender: TObject);
   private
     procedure AlignButtons();
@@ -35 +36 @@
 
 uses
-  uCore, rCore, rReports, Printers,rMisc;
+  uCore, rCore, rReports, Printers, rMisc;
 
 {$R *.DFM}
@@ -66 +67 @@
       ForceInsideWorkArea(Rect);
       BoundsRect := Rect;
-      memReport.Lines.Assign(ReportText);
-      ResizeAnchoredFormToFont(result);
+      QuickCopy(ReportText, memReport);
       //Quick fix to work around glich in resize algorithim
       AlignButtons();
@@ -127 +127 @@
       AHeader := TStringList.Create;
       CreatePatientHeader(AHeader, Self.Caption);
-      memPrintReport := TRichEdit.Create(Self);
+      memPrintReport := CreateReportTextComponent(Self);
       try
         MaxLines := 60 - AHeader.Count;
@@ -134 +134 @@
         with memPrintReport do
           begin
-            Visible := False;
-            Parent := Self;
-            Font.Name := 'Courier New';
-            Font.Size := MainFontSize;
-            Width := Printer.Canvas.TextWidth(StringOfChar('-', 74));
-            //Width := 600;
             repeat
               with Lines do
@@ -174 +168 @@
 end;
 
-procedure TfrmPrerequisites.FormCreate(Sender: TObject);
-begin
-  memreport.Color := ReadOnlyColor;
-
-end;
-
 procedure TfrmPrerequisites.AlignButtons;
 Const
   BtnSpace = 8;
 begin
-  cmdCancel.Left := self.Width - cmdCancel.Width - BtnSpace;
+  cmdCancel.Left := self.Width - cmdCancel.Width - (BtnSpace * 3) - 3;
   cmdContinue.Left := cmdCancel.Left - BtnSpace - cmdContinue.Width;
 end;
@@ -194 +182 @@
 end;
 
-procedure TfrmPrerequisites.FormShow(Sender: TObject);
+procedure TfrmPrerequisites.FormCreate(Sender: TObject);
 begin
+  inherited;
+  ResizeAnchoredFormToFont(Self);
   SetFormPosition(Self); //Get Saved Position & Size of Form
 end;
 
+procedure TfrmPrerequisites.OnActivate(Sender: TObject);
+begin
+  if Self.VertScrollBar.IsScrollBarVisible then Self.VertScrollBar.Position := 0;
+end;
 end.