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

cprs/trunk/CPRS-Chart/Consults/fConsult513Prt.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, uReports;
 
 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);
@@ -32 +32 @@
     procedure cmdOKClick(Sender: TObject);
     procedure cmdCancelClick(Sender: TObject);
-    procedure FormDestroy(Sender: TObject);
+
   private
     { Private declarations }
@@ -98 +98 @@
 end;
 
-procedure Tfrm513Print.FormCreate(Sender: TObject);
-begin
-  inherited;
-  FReportText := TRichEdit.Create(Self);
-  with FReportText do
-    begin
-      Parent := Self;
-      Visible := False;
-      Width := 600;
-    end;
-end;
-
 procedure Tfrm513Print.DisplaySelectDevice;
 begin
@@ -157 +145 @@
 begin
   inherited;
+  FReportText := CreateReportTextComponent(Self);
   RemoteSiteID := '';
   RemoteQuery := '';
@@ -169 +158 @@
       if dlgWinPrinter.Execute then with FReportText do
         begin
-          FReportText.Lines.Assign(GetFormattedSF513(FConsult, ChartCopy));
+          QuickCopy(GetFormattedSF513(FConsult, ChartCopy), FReportText);
           PrintWindowsReport(FReportText, PAGE_BREAK, Self.Caption, ErrMsg);
           if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);
@@ -183 +172 @@
   if chkDefault.Checked then SaveDefaultPrinter(Piece(cboDevice.ItemID, ';', 1));
   User.CurrentPrinter := cboDevice.ItemID;
+  FReportText.Free;
   Close;
 end;
@@ -192 +182 @@
 end;
 
-procedure Tfrm513Print.FormDestroy(Sender: TObject);
-begin
-  FReportText.Free;
-  inherited;
-end;
-
 end.