Linux : Implemented printing in MiniBrowser demo (issue #337)

demos/Lazarus_Linux/MiniBrowser/MiniBrowser.lps

@@ -3,14 +3,14 @@
   <ProjectSession>
     <Version Value="11"/>
     <BuildModes Active="Default"/>
-    <Units Count="48">
+    <Units Count="52">
       <Unit0>
         <Filename Value="MiniBrowser.lpr"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="26"/>
         <CursorPos X="62" Y="52"/>
-        <UsageCount Value="33"/>
+        <UsageCount Value="38"/>
       </Unit0>
       <Unit1>
         <Filename Value="uMiniBrowser.pas"/>
@@ -19,14 +19,14 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="780"/>
-        <CursorPos X="3" Y="782"/>
+        <TopLine Value="912"/>
+        <CursorPos X="79" Y="958"/>
         <FoldState Value=" TJnR1{3122{"/>
-        <UsageCount Value="33"/>
+        <UsageCount Value="38"/>
         <Bookmarks Count="3">
-          <Item0 X="66" Y="1049" ID="1"/>
-          <Item1 Y="936" ID="9"/>
-          <Item2 X="12" Y="618" ID="8"/>
+          <Item0 Y="937" ID="9"/>
+          <Item1 X="12" Y="619" ID="8"/>
+          <Item2 Y="979" ID="1"/>
         </Bookmarks>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -37,7 +37,7 @@
         <UnitName Value="Interfaces"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="11" Y="9"/>
-        <UsageCount Value="33"/>
+        <UsageCount Value="38"/>
       </Unit2>
       <Unit3>
         <Filename Value="uminibrowser.pas"/>
@@ -118,10 +118,10 @@
       </Unit11>
       <Unit12>
         <Filename Value="../../../source/uCEFApplicationCore.pas"/>
-        <EditorIndex Value="7"/>
-        <TopLine Value="545"/>
-        <CursorPos Y="570"/>
-        <UsageCount Value="15"/>
+        <EditorIndex Value="10"/>
+        <TopLine Value="2023"/>
+        <CursorPos X="90" Y="2050"/>
+        <UsageCount Value="17"/>
         <Loaded Value="True"/>
       </Unit12>
       <Unit13>
@@ -167,10 +167,10 @@
       <Unit19>
         <Filename Value="/usr/share/lazarus/2.0.10/lcl/interfaces/gtk3/gtk3bindings/lazgtk3.pas"/>
         <UnitName Value="LazGtk3"/>
-        <EditorIndex Value="2"/>
-        <TopLine Value="12147"/>
-        <CursorPos X="10" Y="12129"/>
-        <UsageCount Value="10"/>
+        <EditorIndex Value="11"/>
+        <TopLine Value="8267"/>
+        <CursorPos X="89" Y="8308"/>
+        <UsageCount Value="12"/>
         <Loaded Value="True"/>
       </Unit19>
       <Unit20>
@@ -285,10 +285,10 @@
       </Unit35>
       <Unit36>
         <Filename Value="../../../source/uCEFInterfaces.pas"/>
-        <EditorIndex Value="5"/>
+        <EditorIndex Value="8"/>
         <TopLine Value="2274"/>
         <CursorPos X="53" Y="2312"/>
-        <UsageCount Value="13"/>
+        <UsageCount Value="15"/>
         <Loaded Value="True"/>
       </Unit36>
       <Unit37>
@@ -312,9 +312,9 @@
       </Unit39>
       <Unit40>
         <Filename Value="../../../source/uCEFPrintJobCallback.pas"/>
-        <EditorIndex Value="6"/>
+        <EditorIndex Value="9"/>
         <TopLine Value="22"/>
-        <UsageCount Value="13"/>
+        <UsageCount Value="15"/>
         <Loaded Value="True"/>
       </Unit40>
       <Unit41>
@@ -327,10 +327,10 @@
       <Unit42>
         <Filename Value="/usr/share/lazarus/2.0.10/lcl/printers.pas"/>
         <UnitName Value="Printers"/>
-        <EditorIndex Value="1"/>
-        <TopLine Value="270"/>
-        <CursorPos X="23" Y="303"/>
-        <UsageCount Value="12"/>
+        <EditorIndex Value="2"/>
+        <TopLine Value="209"/>
+        <CursorPos X="6" Y="190"/>
+        <UsageCount Value="14"/>
         <Loaded Value="True"/>
       </Unit42>
       <Unit43>
@@ -349,19 +349,19 @@
       <Unit45>
         <Filename Value="/usr/share/lazarus/2.0.10/components/printers/printersdlgs.pp"/>
         <UnitName Value="PrintersDlgs"/>
-        <EditorIndex Value="3"/>
+        <EditorIndex Value="6"/>
         <TopLine Value="90"/>
         <CursorPos X="14" Y="128"/>
-        <UsageCount Value="11"/>
+        <UsageCount Value="13"/>
         <Loaded Value="True"/>
       </Unit45>
       <Unit46>
         <Filename Value="/usr/share/lazarus/2.0.10/lcl/dialogs.pp"/>
         <UnitName Value="Dialogs"/>
-        <EditorIndex Value="4"/>
-        <TopLine Value="936"/>
-        <CursorPos X="3" Y="961"/>
-        <UsageCount Value="11"/>
+        <EditorIndex Value="7"/>
+        <TopLine Value="489"/>
+        <CursorPos X="3" Y="506"/>
+        <UsageCount Value="13"/>
         <Loaded Value="True"/>
       </Unit46>
       <Unit47>
@@ -371,129 +371,160 @@
         <CursorPos X="16" Y="668"/>
         <UsageCount Value="10"/>
       </Unit47>
+      <Unit48>
+        <Filename Value="/usr/share/lazarus/2.0.10/components/printers/unix/cupsprinters_h.inc"/>
+        <EditorIndex Value="3"/>
+        <TopLine Value="105"/>
+        <CursorPos X="14" Y="170"/>
+        <UsageCount Value="12"/>
+        <Loaded Value="True"/>
+      </Unit48>
+      <Unit49>
+        <Filename Value="/usr/share/lazarus/2.0.10/components/printers/unix/cupsprinters.inc"/>
+        <EditorIndex Value="4"/>
+        <TopLine Value="467"/>
+        <CursorPos X="72" Y="491"/>
+        <UsageCount Value="12"/>
+        <Loaded Value="True"/>
+      </Unit49>
+      <Unit50>
+        <Filename Value="/usr/share/lazarus/2.0.10/components/printers/unix/cupsdyn.pp"/>
+        <EditorIndex Value="5"/>
+        <TopLine Value="1117"/>
+        <CursorPos X="16" Y="1140"/>
+        <UsageCount Value="12"/>
+        <Loaded Value="True"/>
+      </Unit50>
+      <Unit51>
+        <Filename Value="/usr/share/lazarus/2.0.10/components/printers/osprinters.pas"/>
+        <UnitName Value="OSPrinters"/>
+        <EditorIndex Value="1"/>
+        <UsageCount Value="11"/>
+        <Loaded Value="True"/>
+      </Unit51>
     </Units>
     <OtherDefines Count="1">
       <Define0 Value="UseCThreads"/>
     </OtherDefines>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
-        <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="932" Column="22" TopLine="909"/>
+        <Filename Value="/usr/share/lazarus/2.0.10/components/printers/unix/cupsprinters_h.inc"/>
+        <Caret Line="170" Column="14" TopLine="131"/>
       </Position1>
       <Position2>
-        <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="935" Column="57" TopLine="909"/>
+        <Filename Value="/usr/share/lazarus/2.0.10/components/printers/unix/cupsprinters.inc"/>
+        <Caret Line="497" Column="80" TopLine="470"/>
       </Position2>
       <Position3>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="59" Column="5" TopLine="33"/>
+        <Caret Line="189" Column="27" TopLine="171"/>
       </Position3>
       <Position4>
-        <Filename Value="/usr/share/lazarus/2.0.10/components/printers/printersdlgs.pp"/>
-        <Caret Line="114" Column="3" TopLine="82"/>
+        <Filename Value="/usr/share/lazarus/2.0.10/components/printers/unix/cupsprinters_h.inc"/>
+        <Caret Line="77" Column="51" TopLine="68"/>
       </Position4>
       <Position5>
-        <Filename Value="/usr/share/lazarus/2.0.10/lcl/dialogs.pp"/>
-        <Caret Line="506" Column="3" TopLine="492"/>
+        <Filename Value="/usr/share/lazarus/2.0.10/components/printers/unix/cupsprinters.inc"/>
+        <Caret Line="29" Column="35"/>
       </Position5>
       <Position6>
-        <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="59" Column="5" TopLine="33"/>
+        <Filename Value="/usr/share/lazarus/2.0.10/components/printers/unix/cupsprinters_h.inc"/>
+        <Caret Line="170" Column="36" TopLine="131"/>
       </Position6>
       <Position7>
-        <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="938" Column="50" TopLine="904"/>
+        <Filename Value="/usr/share/lazarus/2.0.10/components/printers/unix/cupsprinters.inc"/>
+        <Caret Line="475" Column="3" TopLine="470"/>
       </Position7>
       <Position8>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="940" Column="82" TopLine="904"/>
+        <Caret Line="201" Column="27" TopLine="165"/>
       </Position8>
       <Position9>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="1037" TopLine="1001"/>
+        <Caret Line="1091" Column="33" TopLine="1058"/>
       </Position9>
       <Position10>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="945" Column="9" TopLine="919"/>
+        <Caret Line="226" Column="22" TopLine="203"/>
       </Position10>
       <Position11>
-        <Filename Value="/usr/share/lazarus/2.0.10/components/printers/printersdlgs.pp"/>
-        <Caret Line="128" Column="14" TopLine="102"/>
+        <Filename Value="uMiniBrowser.pas"/>
+        <Caret Line="1006" Column="24" TopLine="967"/>
       </Position11>
       <Position12>
-        <Filename Value="/usr/share/lazarus/2.0.10/lcl/dialogs.pp"/>
-        <Caret Line="506" Column="3" TopLine="486"/>
+        <Filename Value="uMiniBrowser.pas"/>
+        <Caret Line="187" Column="15" TopLine="166"/>
       </Position12>
       <Position13>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="945" Column="9" TopLine="919"/>
+        <Caret Line="981" Column="23" TopLine="975"/>
       </Position13>
       <Position14>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="1028" Column="25" TopLine="1008"/>
+        <Caret Line="147" Column="25" TopLine="139"/>
       </Position14>
       <Position15>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="927" Column="16" TopLine="904"/>
+        <Caret Line="981" Column="46" TopLine="955"/>
       </Position15>
       <Position16>
-        <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="1038" TopLine="1010"/>
+        <Filename Value="/usr/share/lazarus/2.0.10/components/printers/unix/cupsprinters.inc"/>
+        <Caret Line="474" Column="33" TopLine="461"/>
       </Position16>
       <Position17>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="976" Column="57" TopLine="936"/>
+        <Caret Line="48" Column="76" TopLine="22"/>
       </Position17>
       <Position18>
-        <Filename Value="/usr/share/lazarus/2.0.10/components/printers/printersdlgs.pp"/>
-        <Caret Line="128" Column="14" TopLine="102"/>
+        <Filename Value="/usr/share/lazarus/2.0.10/components/printers/osprinters.pas"/>
       </Position18>
       <Position19>
-        <Filename Value="/usr/share/lazarus/2.0.10/lcl/dialogs.pp"/>
-        <Caret Line="518" Column="25" TopLine="489"/>
+        <Filename Value="/usr/share/lazarus/2.0.10/components/printers/unix/cupsprinters.inc"/>
+        <Caret Line="489" Column="57" TopLine="461"/>
       </Position19>
       <Position20>
-        <Filename Value="/usr/share/lazarus/2.0.10/lcl/dialogs.pp"/>
-        <Caret Line="961" Column="3" TopLine="936"/>
+        <Filename Value="/usr/share/lazarus/2.0.10/components/printers/unix/cupsprinters_h.inc"/>
+        <Caret Line="170" Column="14" TopLine="132"/>
       </Position20>
       <Position21>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="976" Column="57" TopLine="936"/>
+        <Caret Line="981" Column="36" TopLine="956"/>
       </Position21>
       <Position22>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="620" Column="7" TopLine="573"/>
+        <Caret Line="146" Column="26" TopLine="125"/>
       </Position22>
       <Position23>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="979" Column="54" TopLine="915"/>
+        <Caret Line="202" Column="24" TopLine="176"/>
       </Position23>
       <Position24>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="1089" Column="53" TopLine="1053"/>
+        <Caret Line="1103" Column="3" TopLine="1062"/>
       </Position24>
       <Position25>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="620" Column="48" TopLine="614"/>
+        <Caret Line="189" Column="15" TopLine="181"/>
       </Position25>
       <Position26>
-        <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="54" Column="84" TopLine="22"/>
+        <Filename Value="/usr/share/lazarus/2.0.10/components/printers/unix/cupsprinters.inc"/>
+        <Caret Line="486" Column="74" TopLine="467"/>
       </Position26>
       <Position27>
-        <Filename Value="/usr/share/lazarus/2.0.10/lcl/printers.pas"/>
+        <Filename Value="uMiniBrowser.pas"/>
+        <Caret Line="983" Column="62" TopLine="933"/>
       </Position27>
       <Position28>
-        <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="54" Column="84" TopLine="22"/>
+        <Filename Value="/usr/share/lazarus/2.0.10/components/printers/unix/cupsprinters.inc"/>
+        <Caret Line="491" Column="72" TopLine="467"/>
       </Position28>
       <Position29>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="624" TopLine="576"/>
+        <Caret Line="937" Column="44" TopLine="923"/>
       </Position29>
       <Position30>
-        <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="436" Column="74" TopLine="413"/>
+        <Filename Value="/usr/share/lazarus/2.0.10/components/printers/printersdlgs.pp"/>
+        <Caret Line="128" Column="14" TopLine="90"/>
       </Position30>
     </JumpHistory>
     <RunParams>

demos/Lazarus_Linux/MiniBrowser/uMiniBrowser.pas

@@ -45,7 +45,7 @@ interface
 
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
-  Menus, ComCtrls, SyncObjs, LMessages, Printers, PrintersDlgs,
+  Menus, ComCtrls, SyncObjs, LMessages, Printers, PrintersDlgs, osprinters,
   uCEFChromium, uCEFWindowParent, uCEFInterfaces, uCEFApplication, uCEFTypes,
   uCEFConstants, uCEFWinControl, uCEFChromiumEvents, uCEFLinkedWindowParent;
 
@@ -273,7 +273,7 @@ begin
   GlobalCEFApp.cache               := 'cache';
   GlobalCEFApp.LogFile             := 'debug.log';
   GlobalCEFApp.LogSeverity         := LOGSEVERITY_INFO;
-  GlobalCEFApp.EnablePrintPreview  := True;
+  //GlobalCEFApp.EnablePrintPreview  := True;
   GlobalCEFApp.OnPrintStart        := @GlobalCEFApp_OnPrintStart;
   GlobalCEFApp.OnPrintSettings     := @GlobalCEFApp_OnPrintSettings;
   GlobalCEFApp.OnPrintDialog       := @GlobalCEFApp_OnPrintDialog;
@@ -615,6 +615,7 @@ begin
         begin
           FPrintJobCallback.Cont();
           FPrintJobCallback := nil;
+          Timer1.Enabled    := False;
         end;
     end
    else
@@ -975,8 +976,15 @@ end;
 
 procedure TMiniBrowserFrm.BrowserPrintJobStartedMsg(Data: PtrInt);
 begin
+  TCUPSPrinter(Printer).Title := FPrintJobDocumentName;
+
+  if (TCUPSPrinter(Printer).PrintFile(FPrintJobPDFFilePath) >= 0) then
+    begin
       StatusBar1.Panels[0].Text := 'Print job started';
       Timer1.Enabled            := True;
+    end
+   else
+    StatusBar1.Panels[0].Text := TCUPSPrinter(Printer).GetLastError;
 end;
 
 procedure TMiniBrowserFrm.BrowserPrintStartMsg(Data: PtrInt);
@@ -986,7 +994,7 @@ end;
 
 procedure TMiniBrowserFrm.BrowserPrintResetMsg(Data: PtrInt);
 begin
-  StatusBar1.Panels[0].Text := 'Print reset';
+  StatusBar1.Panels[0].Text := '';
 end;
 
 procedure TMiniBrowserFrm.SendCompMessage(aMsg : cardinal; Data: PtrInt);

update_CEF4Delphi.json

@@ -2,7 +2,7 @@
   "UpdateLazPackages" : [
     {
       "ForceNotify" : true,
-      "InternalVersion" : 252,
+      "InternalVersion" : 253,
       "Name" : "cef4delphi_lazarus.lpk",
       "Version" : "88.2.4.0"
     }