paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 01:59:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Reset current font selection in postscript output after new page (issue #8579)

Browse Source 
git-svn-id: trunk@10834 -
This commit is contained in:
jesus 2007-03-30 18:43:23 +00:00
parent 19872b8e64
commit 49d2976787
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/postscriptcanvas.pas
View File

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