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

cprs/trunk/CPRS-Chart/Orders/fOrdersPrint.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, ORCtrls, ORfn, ExtCtrls, rOrders, fFrame;
+  StdCtrls, ORCtrls, ORfn, ExtCtrls, rOrders, fFrame, fBase508Form,
+  VA508AccessibilityManager;
 
 type
-  TfrmOrdersPrint = class(TForm)
+  TfrmOrdersPrint = class(TfrmBase508Form)
     ckChartCopy: TCheckBox;
     ckLabels: TCheckBox;
@@ -59 +60 @@
   NO_WIN_PRINT = False;
 
-procedure SetupOrdersPrint(OrderList: TStringList; var DeviceInfo: string; Nature: Char; SelectAll: Boolean; var PrintIt: Boolean);
+procedure SetupOrdersPrint(OrderList: TStringList; var DeviceInfo: string; Nature: Char; SelectAll: Boolean; var PrintIt: Boolean;
+                           PrintTitle: string = ''; PrintLoc: Integer = 0);
 
 implementation
@@ -68 +70 @@
   fDeviceSelect, uCore, ORNet, fOrders;
 
-procedure SetupOrdersPrint(OrderList: TStringList; var DeviceInfo: string; Nature: Char; SelectAll: Boolean; var PrintIt: Boolean);
+procedure SetupOrdersPrint(OrderList: TStringList; var DeviceInfo: string; Nature: Char; SelectAll: Boolean; var PrintIt: Boolean;
+                           PrintTitle: string = ''; PrintLoc: Integer = 0);
 {displays device and copy selection form for printing orders, and returns a record of the selections}
 var
@@ -74 +77 @@
 begin
   frmOrdersPrint := TfrmOrdersPrint.Create(Application);
+  if PrintTitle <> '' then frmOrdersPrint.Caption := 'Print Orders for ' + PrintTitle;
   try
     frmFrame.CCOWBusy := True;
@@ -87 +91 @@
           lblPart2.Text := 'Greyed out items are not available.';
         end;
-      OrderPrintDeviceInfo(OrderList, PrintParams, Nature);
+      OrderPrintDeviceInfo(OrderList, PrintParams, Nature, PrintLoc);
       SetupControls(PrintParams);
       if (PrintParams.AnyPrompts) {or FSelectAll} then ShowModal;