paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-17 21:22:49 +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('%%Pages: (atend)');
WriteHeader('%%PageResources: (atend)'); WriteHeader('%%PageResources: (atend)');
WriteHeader('%%PageOrder: Ascend'); WriteHeader('%%PageOrder: Ascend');
WriteHeader('%%Page: 1'); WriteHeader('%%Page: 1 1');
WriteHeader(''); WriteHeader('');
WriteHeader('%------------------------------------------------------------'); WriteHeader('%------------------------------------------------------------');
WriteHeader('%================== BEGIN SETUP=============================='); WriteHeader('%================== BEGIN SETUP==============================');
@ -1243,7 +1243,7 @@ begin
Write('stroke'); Write('stroke');
Write('showpage'); Write('showpage');
Write('%%'+Format('Page: %d',[PageNumber])); Write('%%'+Format('Page: %d %d',[PageNumber, PageNumber]));
write('newpath'); write('newpath');
end; end;