From 55de2922785e45f5e4832aa567c65de0e5cea231 Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Mon, 6 Apr 2009 18:54:19 +0000
Subject: [PATCH] LCL, patch to reset cached pen width between documents and
 pages, from Anton Kavalenka, issue #13356

git-svn-id: trunk@19255 -
---
 lcl/postscriptcanvas.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/postscriptcanvas.pas b/lcl/postscriptcanvas.pas
index ee56d4a4b9..6c9c17fdc6 100644
--- a/lcl/postscriptcanvas.pas
+++ b/lcl/postscriptcanvas.pas
@@ -1242,7 +1242,7 @@ begin
   if Assigned(fPsUnicode) then
     FreeAndNil(fPsUnicode);
 
-  Self.fcPenWidth:=0;
+  Self.fcPenWidth:=-2; // prevent cached line width affect new page
 end;
 
 procedure TPostScriptPrinterCanvas.NewPage;
@@ -1253,6 +1253,9 @@ begin
   Write('showpage');
   Write('%%'+Format('Page: %d %d',[PageNumber, PageNumber]));
   write('newpath');
+
+  Self.fcPenWidth:=-1; // prevent cached line width affect new page
+  UpdateLineWidth;
 end;
 
 //Move the current position