paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-03 12:03:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* the size was calculated wrong by imagesize

Browse Source
This commit is contained in:
florian 1999-11-11 17:55:07 +00:00
parent 056d6d2716
commit 3839c77a58
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/graph/graph.pp
View File

@ -1950,7 +1950,7 @@ Function DefaultImageSize(X1,Y1,X2,Y2: Integer): longint; {$ifndef fpc}far;{$end
Begin Begin
{ each pixel uses two bytes, to enable modes with colors up to 64K } { each pixel uses two bytes, to enable modes with colors up to 64K }
{ to work. } { to work. }
DefaultImageSize := 12 + (((X2-X1)*(Y2-Y1))*2); DefaultImageSize := 12 + (((X2-X1+1)*(Y2-Y1+1))*2);
end; end;
Procedure DefaultPutImage(X,Y: Integer; var Bitmap; BitBlt: Word); {$ifndef fpc}far;{$endif fpc} Procedure DefaultPutImage(X,Y: Integer; var Bitmap; BitBlt: Word); {$ifndef fpc}far;{$endif fpc}
@ -2966,7 +2966,10 @@ SetGraphBufSize
{ {
$Log$ $Log$
Revision 1.37 1999-11-11 14:07:14 florian Revision 1.38 1999-11-11 17:55:07 florian
* the size was calculated wrong by imagesize
Revision 1.37 1999/11/11 14:07:14 florian
* better looking font * better looking font
Revision 1.36 1999/11/08 15:01:38 peter Revision 1.36 1999/11/08 15:01:38 peter