Changeset 1679 for cprs/trunk/CPRS-Chart/fDeviceSelect.pas

Timestamp:

May 7, 2015, 12:34:29 PM (9 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/fDeviceSelect.pas (modified) (4 diffs)

cprs/trunk/CPRS-Chart/fDeviceSelect.pas

@@ -67 +67 @@
               end;
           end;
-        if Sender <> frmFrame then
-          begin
+
             DefPrt := User.CurrentPrinter;
             if DefPrt = '' then DefPrt := GetDefaultPrinter(User.Duz, Encounter.Location);
@@ -94 +93 @@
               end;
            if ACaption<>'' then frmDeviceSelect.Caption:=ACaption;
-          end
-         else
-          begin
-            frmDeviceSelect.Caption := 'Print Device Selection';
-            cboDevice.InitLongList('');
-          end;
+         
         ShowModal;
         Result := ADevice;
@@ -128 +122 @@
   end;
   ADevice := cboDevice.Items[cboDevice.ItemIndex];
-  if chkDefault.Checked then SaveDefaultPrinter(Piece(cboDevice.ItemID, ';', 1));
+  if chkDefault.Checked then begin
+   SaveDefaultPrinter(Piece(cboDevice.ItemID, ';', 1));
+   User.CurrentPrinter := cboDevice.ItemID;
+  end;
   Close;
 end;
@@ -135 +132 @@
 begin
   inherited;
-  ADevice := '';
+  ADevice := User.CurrentPrinter;
   Close;
 end;