From 3839c77a5870fd0425a1a41fb81995d6585c4ee8 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Thu, 11 Nov 1999 17:55:07 +0000
Subject: [PATCH]   * the size was calculated wrong by imagesize

---
 rtl/inc/graph/graph.pp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/graph/graph.pp b/rtl/inc/graph/graph.pp
index 08595427f9..7d81f8cfb3 100644
--- a/rtl/inc/graph/graph.pp
+++ b/rtl/inc/graph/graph.pp
@@ -1950,7 +1950,7 @@ Function DefaultImageSize(X1,Y1,X2,Y2: Integer): longint; {$ifndef fpc}far;{$end
 Begin
   { each pixel uses two bytes, to enable modes with colors up to 64K }
   { to work.                                                         }
-  DefaultImageSize := 12 + (((X2-X1)*(Y2-Y1))*2);
+  DefaultImageSize := 12 + (((X2-X1+1)*(Y2-Y1+1))*2);
 end;
 
 Procedure DefaultPutImage(X,Y: Integer; var Bitmap; BitBlt: Word); {$ifndef fpc}far;{$endif fpc}
@@ -2966,7 +2966,10 @@ SetGraphBufSize
 
 {
   $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
 
   Revision 1.36  1999/11/08 15:01:38  peter