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

postcript fixes for fpc 1.0.10 from Olivier

Browse Source 
git-svn-id: trunk@6116 -
This commit is contained in:
mattias 2004-10-05 17:54:36 +00:00
parent ce54817546
commit 6d35eda3fe
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/postscriptcanvas.pas
View File

@ -1402,6 +1402,12 @@ 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}
DrawWidth:=X1-X;
DrawHeight:=Y-Y1;
ClearBuffer;
@ -1417,9 +1423,25 @@ begin
GetRGBImage(SrcGraphic,fBuffer);
WriteB('% end of image data');
{$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}
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;