From 49d29767874651d51f90c880f243719c5407d917 Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Fri, 30 Mar 2007 18:43:23 +0000
Subject: [PATCH] LCL: Reset current font selection in postscript output after
 new page (issue #8579)

git-svn-id: trunk@10834 -
---
 lcl/postscriptcanvas.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lcl/postscriptcanvas.pas b/lcl/postscriptcanvas.pas
index c573a49a6b..05ab297806 100644
--- a/lcl/postscriptcanvas.pas
+++ b/lcl/postscriptcanvas.pas
@@ -1239,13 +1239,17 @@ end;
 
 procedure TPostscriptPrinterCanvas.NewPage;
 begin
-  Inherited NewPage;
-  
+  inherited NewPage;
+
   Write('stroke');
   Write('showpage');
   Write('%%'+Format('Page: %d %d',[PageNumber, PageNumber]));
   
   write('newpath');
+  
+  // after showpage, font holds an invalid font dictionary
+  // force selection of current font
+  FirstUpdatefont:=True;
 end;
 
 //Move the current position