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

cprs/trunk/CPRS-Chart/fNotePrt.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  fAutoSz, ORCtrls, StdCtrls, Mask, ORNet, ORFn, ComCtrls;
+  fAutoSz, ORCtrls, StdCtrls, Mask, ORNet, ORFn, ComCtrls,
+  VA508AccessibilityManager;
 
 type
@@ -26 +27 @@
     procedure cboDeviceNeedData(Sender: TObject; const StartFrom: String;
       Direction, InsertAt: Integer);
-    procedure FormCreate(Sender: TObject);
     procedure cboDeviceChange(Sender: TObject);
     procedure radChartCopyClick(Sender: TObject);
@@ -47 +47 @@
 {$R *.DFM}
 
-uses rCore, rTIU, rReports, uCore, Printers;
+uses rCore, rTIU, rReports, uCore, Printers, uReports;
 
 const
@@ -127 +127 @@
 end;
 
-procedure TfrmNotePrint.FormCreate(Sender: TObject);
-begin
-  inherited;
-  FReportText := TRichEdit.Create(Self);
-  with FReportText do
-    begin
-      Parent := Self;
-      Visible := False;
-      Width := 600;
-    end;
-end;
-
 procedure TfrmNotePrint.DisplaySelectDevice;
 begin
@@ -204 +192 @@
     if dlgWinPrinter.Execute then
        begin
-       FReportText.Lines.Assign(GetFormattedNote(FNote, ChartCopy));
+       FReportText := CreateReportTextComponent(Self);
+       FastAssign(GetFormattedNote(FNote, ChartCopy), FReportText.Lines);
        PrintWindowsReport(FReportText, PAGE_BREAK, Self.Caption, ErrMsg);
        if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);
@@ -220 +209 @@
   if chkDefault.Checked then
      SaveDefaultPrinter(Piece(cboDevice.ItemID, ';', 1));
-     
+
   User.CurrentPrinter := cboDevice.ItemID;
   Close;