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

cprs/trunk/CPRS-Chart/fReportsPrint.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, fAutoSz, ORCtrls, ORNet, Mask, ComCtrls, rECS;
+  StdCtrls, fAutoSz, ORCtrls, ORNet, Mask, ComCtrls, rECS,
+  fBase508Form, VA508AccessibilityManager;
 
 type
-  TfrmReportPrt = class(TfrmAutoSz)
+  TfrmReportPrt = class(TfrmBase508Form)
     lblReportsTitle: TMemo;
     lblPrintTo: TLabel;
@@ -21 +22 @@
     dlgWinPrinter: TPrintDialog;
     chkDefault: TCheckBox;
-    procedure FormCreate(Sender: TObject);
     procedure cboDeviceChange(Sender: TObject);
     procedure cmdOKClick(Sender: TObject);
@@ -27 +27 @@
     procedure cboDeviceNeedData(Sender: TObject; const StartFrom: String;
       Direction, InsertAt: Integer);
-    procedure FormDestroy(Sender: TObject);
     procedure FindVType;
 
@@ -50 +49 @@
 {$R *.DFM}
 
-uses ORFn, rCore, uCore, fReports, rReports, uReports, Printers, fFrame;
+uses ORFn, rCore, uCore, fReports, rReports, uReports, Printers, fFrame,
+  VAUtils;
 
 const
@@ -75 +75 @@
   frmReportPrt := TfrmReportPrt.Create(Application);
   try
-    ResizeFormToFont(TForm(frmReportPrt));
+    ResizeAnchoredFormToFont(TForm(frmReportPrt));
     with frmReportPrt do
     begin
@@ -170 +170 @@
                    (not (piece(uColumns[StrToInt(piece(aCol,':',2))],'^',4) = '1')) then
                     begin
-                      aBasket.Assign(TCellObject(RowObjects.ColumnList[j]).Data);
+                      FastAssign(TCellObject(RowObjects.ColumnList[j]).Data, aBasket);
                       for k := 0 to aBasket.Count - 1 do
                         begin
@@ -199 +199 @@
                     begin
                       aWPFlag := true;
-                      aBasket.Assign(TCellObject(RowObjects.ColumnList[j]).Data);
+                      FastAssign(TCellObject(RowObjects.ColumnList[j]).Data, aBasket);
                       //frmReports.MemText.Lines.Add(TCellObject(RowObjects.ColumnList[j]).Name);
                       FReportText.Lines.Add(TCellObject(RowObjects.ColumnList[j]).Name);
@@ -247 +247 @@
 end;
 
-procedure TfrmReportPrt.FormCreate(Sender: TObject);
-begin
-  inherited;
-  FReportText := TRichEdit.Create(Self);
-  with FReportText do
-    begin
-      Parent := Self;
-      Visible := False;
-      Width := 600;
-    end;
-end;
-
 procedure TfrmReportPrt.cboDeviceChange(Sender: TObject);
 begin
@@ -283 +271 @@
 begin
   inherited;
+  FReportText := CreateReportTextComponent(Self);
   RemoteSiteID := '';
   RemoteQuery := '';
@@ -320 +309 @@
                           aQualifier := ListItem.SubItems[0];
                           ADevice := Piece(cboDevice.ItemID, ';', 2);
-                          Lines.Assign(GetFormattedReport(FReports, aQualifier,
-                            Patient.DFN, uHSComponents, RemoteSiteID, RemoteQuery, uHState));
+                          QuickCopy(GetFormattedReport(FReports, aQualifier,
+                            Patient.DFN, uHSComponents, RemoteSiteID, RemoteQuery, uHState), FReportText);
                           aCaption := piece(uRemoteType,'^',4);
                           PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg);
@@ -335 +324 @@
                           aQualifier := ListItem.SubItems[0];
                           ADevice := Piece(cboDevice.ItemID, ';', 2);
-                          Lines.Assign(GetFormattedReport(FReports, aQualifier + MoreID,
-                            Patient.DFN, uHSComponents, RemoteSiteID, RemoteQuery, uHState));
+                          QuickCopy(GetFormattedReport(FReports, aQualifier + MoreID,
+                            Patient.DFN, uHSComponents, RemoteSiteID, RemoteQuery, uHState), FReportText);
                           aCaption := piece(uRemoteType,'^',4);
                           PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg);
@@ -349 +338 @@
                         aReport.Clear;
                         CreatePatientHeader(aReport,piece(uRemoteType,'^',4));
-                        FReportText.Lines.Assign(aReport);
+                        QuickCopy(aReport, FReportText);
                         FindVType;
                         aCaption := piece(uRemoteType,'^',4) + ';1';
@@ -357 +346 @@
                     else
                       begin
-                        Lines.Assign(GetFormattedReport(FReports, aQualifier + MoreID,
-                          Patient.DFN, uHSComponents, RemoteSiteID, RemoteQuery, uHState));
+                        QuickCopy(GetFormattedReport(FReports, aQualifier + MoreID,
+                          Patient.DFN, uHSComponents, RemoteSiteID, RemoteQuery, uHState), FReportText);
                         aCaption := piece(uRemoteType,'^',4);
                         PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg);
@@ -371 +360 @@
                         aReport.Clear;
                         CreatePatientHeader(aReport,piece(uRemoteType,'^',4));
-                        FReportText.Lines.Assign(aReport);
+                        QuickCopy(aReport, FReportText);
                         FindVType;
                         aCaption := piece(uRemoteType,'^',4) + ';1';
@@ -379 +368 @@
                     else
                       begin
-                        Lines.Assign(GetFormattedReport(FReports, aQualifier + MoreID,
-                           Patient.DFN, uHSComponents, RemoteSiteID, RemoteQuery, uHState));
+                        QuickCopy(GetFormattedReport(FReports, aQualifier + MoreID,
+                           Patient.DFN, uHSComponents, RemoteSiteID, RemoteQuery, uHState), FReportText);
                         aCaption := piece(uRemoteType,'^',4);
                         PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg);
@@ -394 +383 @@
                           aQualifier := ListItem.SubItems[0];
                           ADevice := Piece(cboDevice.ItemID, ';', 2);
-                          Lines.Assign(GetFormattedReport(FReports, aQualifier,
-                            Patient.DFN, uHSComponents, RemoteSiteID, RemoteQuery, uHState));
+                          QuickCopy(GetFormattedReport(FReports, aQualifier,
+                            Patient.DFN, uHSComponents, RemoteSiteID, RemoteQuery, uHState), FReportText);
                           aCaption := piece(uRemoteType,'^',4);
                           PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg);
@@ -409 +398 @@
                           aQualifier := ListItem.SubItems[0];
                           ADevice := Piece(cboDevice.ItemID, ';', 2);
-                          Lines.Assign(GetFormattedReport(FReports, aQualifier,
-                            Patient.DFN, uHSComponents, RemoteSiteID, RemoteQuery, uHState));
+                          QuickCopy(GetFormattedReport(FReports, aQualifier,
+                            Patient.DFN, uHSComponents, RemoteSiteID, RemoteQuery, uHState), FReportText);
                           aCaption := piece(uRemoteType,'^',4);
                           PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg);
@@ -422 +411 @@
               if (Pos('OR_ECS1',FReports)>0) or (Pos('OR_ECS2',FReports)>0) then
               begin
-                ShowMessage('The Event Capture report can only be printed by Vista printer.');
+                ShowMsg('The Event Capture report can only be printed by Vista printer.');
                 Exit;
               end;
               aQualifier := Piece(uRemoteType,'^',5);
-              Lines.Assign(GetFormattedReport(FReports, aQualifier,
-                 Patient.DFN, uHSComponents, RemoteSiteID, RemoteQuery, uHState));
+              QuickCopy(GetFormattedReport(FReports, aQualifier,
+                 Patient.DFN, uHSComponents, RemoteSiteID, RemoteQuery, uHState), FReportText);
               aCaption := piece(uRemoteType,'^',4);
               PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg);
@@ -473 +462 @@
                     FindVType;
                     aReport.Clear;
-                    aReport.Assign(FReportText.Lines);
+                    QuickCopy(FReportText.Lines, aReport);
                     ADevice := Piece(cboDevice.ItemID, ';', 2);
                     PrintVReports(ErrMsg, ADevice, piece(uRemoteType,'^',4),aReport);
@@ -493 +482 @@
                     FindVType;
                     aReport.Clear;
-                    aReport.Assign(FReportText.Lines);
+                    QuickCopy(FReportText, aReport);
                     ADevice := Piece(cboDevice.ItemID, ';', 2);
                     PrintVReports(ErrMsg, ADevice, piece(uRemoteType,'^',4),aReport);
@@ -559 +548 @@
   User.CurrentPrinter := cboDevice.ItemID;
   aReport.Free;
+  FReportText.Free;
   Close;
 end;
@@ -575 +565 @@
 end;
 
-procedure TfrmReportPrt.FormDestroy(Sender: TObject);
-begin
-  FReportText.Free;
-  inherited;
-end;
-
 end.