paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-16 00:02:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: PostScriptCanvas - a page in postscript needs also the name, not only the index (bug #8381) from Tom Gregorovic

Browse Source 
git-svn-id: trunk@10670 -
This commit is contained in:
vincents 2007-02-22 22:04:47 +00:00
parent 3009865d8e
commit 6b74e3cb41
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/postscriptcanvas.pas
View File

@ -872,7 +872,7 @@ begin
WriteHeader('%%Pages: (atend)');
WriteHeader('%%PageResources: (atend)');
WriteHeader('%%PageOrder: Ascend');
WriteHeader('%%Page: 1');
WriteHeader('%%Page: 1 1');
WriteHeader('');
WriteHeader('%------------------------------------------------------------');
WriteHeader('%================== BEGIN SETUP==============================');
@ -1243,7 +1243,7 @@ begin
Write('stroke');
Write('showpage');
Write('%%'+Format('Page: %d',[PageNumber]));
Write('%%'+Format('Page: %d %d',[PageNumber, PageNumber]));
write('newpath');
end;