Printers: Implement psoWarning in PageSetupDialog. Issue #33531, patch from AlexeyT.

git-svn-id: trunk@57613 -

components/printers/printer4lazstrconst.pas

@@ -34,6 +34,7 @@ resourcestring
   p4lrsPagesPerSheet = 'Pages per sheet';
   p4lrsMargins = 'Margins';
   p4lrsAdvanced = 'Advanced';
+  p4lrsNoDefaultPrinter = 'No default printer found';
 
 implementation
 

components/printers/printersdlgs.pp

@@ -27,7 +27,10 @@ interface
 {$ENDIF}
 
 uses
-  Classes, SysUtils, Forms, Controls, Dialogs, LResources, Printers, OsPrinters;
+  Classes, SysUtils, Forms, Controls, Dialogs,
+  LResources,
+  Printer4LazStrConst,
+  Printers, OsPrinters;
 
 type
   TPageMeasureUnits = (

components/printers/unix/cupsprndialogs.inc

@@ -88,6 +88,13 @@ var
   NDigits, NScale: integer;
   NInc: double;
 begin
+  if Printer.PrinterIndex<0 then
+  begin
+    if psoWarning in Options then
+      MessageDlg(Title, p4lrsNoDefaultPrinter, mtWarning, [mbOk], 0);
+    exit(false);
+  end;
+
   // w/o SetPrinter, list of paper names is different
   // (Letter / US Letter, EnvMonarch / Envelope Monarch),
   // and list of sources is empty