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

cprs/trunk/CPRS-Chart/fPtDemo.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, ExtCtrls, ORCtrls, ORFn, ComCtrls;
+  StdCtrls, ExtCtrls, ORCtrls, ORFn, ComCtrls, fBase508Form,
+  VA508AccessibilityManager, uReports;
 
 type
-  TfrmPtDemo = class(TForm)
+  TfrmPtDemo = class(TfrmBase508Form)
     lblFontTest: TLabel;
     memPtDemo: TRichEdit;
@@ -58 +59 @@
   Rect: TRect;
 begin
-  memPtDemo.Color := ReadOnlyColor;
   FNewPt := False;
   LoadDemographics(memPtDemo.Lines);
@@ -113 +113 @@
       AHeader := TStringList.Create;
       CreatePatientHeader(AHeader, Self.Caption);
-      memPrintReport := TRichEdit.Create(Self);
+      memPrintReport := CreateReportTextComponent(Self);
       try
         MaxLines := 60 - AHeader.Count;
@@ -120 +120 @@
         with memPrintReport do
           begin
-            Visible := False;
-            Parent := Self;
-            Width := Printer.Canvas.TextWidth(StringOfChar('-', 74));
-            Font.Name := 'Courier New';
-            Font.Size := MainFontSize;
             StartLine := 4;
             repeat
@@ -138 +133 @@
                   LastLine := LastLine + i;
                   Add(' ');
-                  Add(' ');                      
+                  Add(' ');
                   Add(StringOfChar('-', 74));
                   if LastLine >= memPtDemo.Lines.Count - 1 then