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

fixed debug replacement

Browse Source 
git-svn-id: trunk@6923 -
This commit is contained in:
mattias 2005-03-08 00:36:56 +00:00
parent 495b7d1675
commit ea27cf7a4c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/postscriptcanvas.pas
View File

@ -1805,7 +1805,7 @@ begin
WriteB(Format('/scanline %d 3 mul string def',[ImgWidth]));
WriteB(Format('%d %d %d',[ImgWidth,ImgHeight,8]));
WriteB(Format('[%d %d %d %d %d %d]',[ImgWidth,0,0,-ImgHeight,0,ImgHeight]));
WriteB('{ currentfile scanline readDbgSing pop } false 3');
WriteB('{ currentfile scanline readhexstring pop } false 3');
WriteB('colorimage');
GetRGBImage(SrcGraphic,fBuffer);