From 88bacf3d6250d16f134dd1bca14fcdd85d60d616 Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Mon, 28 Sep 2020 17:34:39 +0000
Subject: [PATCH] Printers: missing patch for custom size papers for linux

git-svn-id: trunk@63932 -
---
 components/printers/unix/cupsprinters_h.inc | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/components/printers/unix/cupsprinters_h.inc b/components/printers/unix/cupsprinters_h.inc
index f543085e5d..4ec56c248c 100644
--- a/components/printers/unix/cupsprinters_h.inc
+++ b/components/printers/unix/cupsprinters_h.inc
@@ -67,7 +67,8 @@ type
     cpsPaperNameValid,
     cpsCopiesValid,
     cpsPaperRectValid,
-    cpsResolutionValid
+    cpsResolutionValid,
+    cpsCustomPaperValid
     );
   TCUPSPrinterStates = set of TCUPSPrinterState;
 
@@ -95,9 +96,11 @@ type
      fRawModeStream: TMemoryStream;
      FOutputFilename: string;
      fCachedResolution: TPoint;
+     fCustomPaperWidth,fCustomPaperHeight: double;
 
      function GetCupsRequest : Pipp_t;
      procedure DoCupsConnect;
+     procedure DoCustomPaper;
 
   private
      fCupsPapersCount: Integer;
@@ -126,6 +129,7 @@ type
      procedure DoSetPaperName(aName : string); override;
      function DoGetPaperRect(aName : string;
                              var aPaperRc: TPaperRect): Integer; override;
+     function DoSetPaperRect(aPaperRc: TPaperRect): boolean; override;
      function DoGetPrinterState: TPrinterState; override;
      function DoGetDefaultCanvasClass: TPrinterCanvasRef; override;