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

Fix compilation with DisableFPImage defined.

Browse Source 
git-svn-id: trunk@6127 -
This commit is contained in:
vincents 2004-10-09 17:15:42 +00:00
parent ff34364753
commit 000cdb2e4c
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/postscriptcanvas.pas
View File

@ -1391,7 +1391,7 @@ end;
//Draw an picture with scale size
procedure TPostscriptPrinterCanvas.StretchDraw(const DestRect: TRect; SrcGraphic: TGraphic);
var X,Y,X1,Y1 : Integer;
var X1,Y1,X2,Y2 : Integer;
DrawWidth : Integer;
DrawHeight: Integer;
ImgWidth : Integer;
@ -1402,13 +1402,13 @@ begin
Changing;
RequiredState([csHandleValid]);
X:=DestRect.Left;
Y:=DestRect.Top;
X1:=DestRect.Right;
Y1:=DestRect.Bottom;
X1:=DestRect.Left;
Y1:=DestRect.Top;
X2:=DestRect.Right;
Y2:=DestRect.Bottom;
TranslateCoord(X,Y);
TransLateCoord(X1,Y1);
TranslateCoord(X1,Y1);
TransLateCoord(X2,Y2);
ImgWidth:=SrcGraphic.Width;
ImgHeight:=SrcGraphic.Height;
@ -1416,12 +1416,12 @@ begin
//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;
DrawWidth:=X2-X1;
DrawHeight:=Y1-Y2;
ClearBuffer;
WriteB('gsave');
writeB(Format('%d %d translate',[X,Y-DrawHeight]));
writeB(Format('%d %d translate',[X1,Y1-DrawHeight]));
WriteB(Format('%d %d scale',[DrawWidth,DrawHeight]));
WriteB(Format('/scanline %d 3 mul string def',[ImgWidth]));
WriteB(Format('%d %d %d',[ImgWidth,ImgHeight,8]));