paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 10:50:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Restore std_output_handle correctly at exit for GDB

Browse Source
This commit is contained in:
pierre 1999-12-01 16:17:18 +00:00
parent ca0cda8819
commit e858b8bea8
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/text/fpusrscr.pas
View File

@ -486,14 +486,14 @@ begin
BigWin.Y:=50;
SetConsoleScreenBufferSize(DosScreenBufferHandle,BigWin);
SetConsoleScreenBufferSize(IDEScreenBufferHandle,BigWin);
{$endif win32bigwin}
Capture;
BigWin.X:=80;
BigWin.Y:=50;
{ Try to allow to store more info }
res:=SetConsoleScreenBufferSize(DosScreenBufferHandle,BigWin);
if not res then
error:=GetLastError;
{$endif win32bigwin}
Capture;
SwitchBack;
end;
@ -501,6 +501,7 @@ destructor TWin32Screen.Done;
begin
if IDEActive then
SwitchTo;
SetStdHandle(Std_Output_Handle,IDEScreenBufferHandle);
CloseHandle(DosScreenBufferHandle);
inherited Done;
end;
@ -666,7 +667,10 @@ end;
end.
{
$Log$
Revision 1.7 1999-11-10 17:12:00 pierre
Revision 1.8 1999-12-01 16:17:18 pierre
* Restore std_output_handle correctly at exit for GDB
Revision 1.7 1999/11/10 17:12:00 pierre
* Win32 screen problems solved
Revision 1.6 1999/09/22 13:02:00 pierre