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

Fix from olivier GUILBAUD

Browse Source 
git-svn-id: trunk@6121 -
This commit is contained in:
vincents 2004-10-08 14:15:17 +00:00
parent 67287e4bfc
commit f15594e52d
1 changed files with 2 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/postscriptcanvas.pas
View File

@ -1402,9 +1402,6 @@ begin
ImgWidth:=SrcGraphic.Width;
ImgHeight:=SrcGraphic.Height;
//if not FPImage then draw ab Rectangle because other wise PostScript
//interpreter wait infinite some RGB datas
{$ifndef DisableFPImage}
//if not FPImage then draw ab Rectangle because other wise PostScript
//interpreter wait infinite some RGB datas
{$ifndef DisableFPImage}
@ -1423,6 +1420,8 @@ begin
GetRGBImage(SrcGraphic,fBuffer);
WriteB('% end of image data');
WriteB('grestore');
{$else}
WriteB('newpath');
writeB(Format(' %d %d moveto',[X1,Y1]));
@ -1431,17 +1430,8 @@ begin
writeB(Format(' %d %d lineto',[X1,Y2]));
writeB('closepath');
{$endif}
WriteB('grestore');
Write(fBuffer);
{$else}
WriteB('newpath');
writeB(Format(' %d %d moveto',[X1,Y1]));
writeB(Format(' %d %d lineto',[X2,Y1]));
writeB(Format(' %d %d lineto',[X2,Y2]));
writeB(Format(' %d %d lineto',[X1,Y2]));
writeB('closepath');
{$endif}
Changed;
end;