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

cprs/trunk/CPRS-Chart/fRptBox.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, ORFn, ComCtrls, ExtCtrls, fFrame;
+  StdCtrls, ORFn, ComCtrls, ExtCtrls, fFrame, fBase508Form,
+  VA508AccessibilityManager, uReports;
 
 type
-  TfrmReportBox = class(TForm)
+  TfrmReportBox = class(TfrmBase508Form)
     lblFontTest: TLabel;
     memReport: TRichEdit;
@@ -19 +20 @@
     procedure cmdCloseClick(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
-    procedure FormCreate(Sender: TObject);
   end;
 
@@ -94 +94 @@
       //cmdClose.Left := pnlButton.Width - cmdClose.Width - cmdCloseRightMargin;
       //cmdPrint.Left := pnlButton.Width - cmdPrint.Width - cmdPrintRightMargin;
-      memReport.Lines.Assign(ReportText);
+      QuickCopy(ReportText, memReport);
       for i := 1 to Length(ReportTitle) do if ReportTitle[i] = #9 then ReportTitle[i] := ' ';
       Caption := ReportTitle;
@@ -148 +148 @@
       AHeader := TStringList.Create;
       CreatePatientHeader(AHeader, Title);
-      memPrintReport := TRichEdit.Create(Form);
+      memPrintReport := CreateReportTextComponent(Form);
       try
         MaxLines := 60 - AHeader.Count;
@@ -155 +155 @@
         with memPrintReport do
           begin
-            Visible := False;
-            Parent := Form;
-            Font.Name := 'Courier New';
-            Font.Size := MainFontSize;
-            Width := Printer.Canvas.TextWidth(StringOfChar('-', 74));
-            //Width := 600;
             repeat
               with Lines do
@@ -219 +213 @@
 end;
 
-procedure TfrmReportBox.FormCreate(Sender: TObject);
-begin
-  memReport.Color := ReadOnlyColor;
-end;
-
 end.