From ea7d28b4627ccb9cdb98bf7fef939983fdfd941e Mon Sep 17 00:00:00 2001
From: marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Wed, 17 Feb 2010 08:53:48 +0000
Subject:  * Patch from benjawin, Mantis 15779 to better deal with
 scrollbackbuffer<>screensize.

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14920 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 ide/fpusrscr.pas | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/ide/fpusrscr.pas b/ide/fpusrscr.pas
index e9579fde02..657e5abe2d 100644
--- a/ide/fpusrscr.pas
+++ b/ide/fpusrscr.pas
@@ -986,7 +986,7 @@ begin
   GetConsoleScreenBufferInfo(StartScreenBufferHandle,
     @ConsoleScreenBufferInfo);
   BigWin.X:=ConsoleScreenBufferInfo.dwSize.X;
-  BigWin.Y:=200;
+  BigWin.Y:=ConsoleScreenBufferInfo.srwindow.bottom-ConsoleScreenBufferInfo.srwindow.top; // mants 15779 was 200
   { Try to allow to store more info }
   res:=SetConsoleScreenBufferSize(NewScreenBufferHandle,BigWin);
   if not res then
@@ -999,8 +999,14 @@ begin
     @ConsoleScreenBufferInfo);
   { make sure that the IDE Screen Handle has the maximum display size
     this removes the scroll bars if it is maximized }
+
+  BigWin.X:=ConsoleScreenBufferInfo.dwSize.X;
+  BigWin.Y:=ConsoleScreenBufferInfo.srwindow.bottom-ConsoleScreenBufferInfo.srwindow.top;
   res:=SetConsoleScreenBufferSize(NewScreenBufferHandle,
-         ConsoleScreenBufferInfo.dwMaximumWindowSize);
+     BigWin);
+// mants 15779 : was
+//  res:=SetConsoleScreenBufferSize(NewScreenBufferHandle,
+//         ConsoleScreenBufferInfo.dwMaximumWindowSize);
   if not res then
     error:=GetLastError;
   IDEScreenBufferHandle:=NewScreenBufferHandle;
-- 
cgit v1.2.1