From c63d36f974ae14e133f437febaf4bdee964d6e5a Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 3 Nov 2004 12:36:24 +0000
Subject: [PATCH]   * fixed background clearing for large screens

---
 ide/wansi.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/ide/wansi.pas b/ide/wansi.pas
index 4a009ad7f0..7030dab1c2 100644
--- a/ide/wansi.pas
+++ b/ide/wansi.pas
@@ -993,7 +993,7 @@ begin
   LockCount:=0;
   GrowMode:=gfGrowHiX or gfGrowHiY;
   New(Console, Init(@Self));
-  Console^.Size.X:=132; Console^.Size.Y:=50;
+  Console^.Size.X:=Bounds.B.X+1; Console^.Size.Y:=Bounds.B.Y+1;
   Console^.ClrScr;
   Console^.CursorOn;
 end;
@@ -1091,7 +1091,10 @@ end;
 END.
 {
  $Log$
- Revision 1.4  2002-09-07 15:40:47  peter
+ Revision 1.5  2004-11-03 12:36:24  florian
+   * fixed background clearing for large screens
+
+ Revision 1.4  2002/09/07 15:40:47  peter
    * old logs removed and tabs fixed
 
  Revision 1.3  2002/03/25 11:51:43  pierre