paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-08 18:19:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL, patch to reset cached pen width between documents and pages, from Anton Kavalenka, issue #13356

Browse Source 
git-svn-id: trunk@19255 -
This commit is contained in:
jesus 2009-04-06 18:54:19 +00:00
parent 1f9ba7214a
commit 55de292278
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/postscriptcanvas.pas
View File

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