paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 20:40:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Keep the entry ScreenBuffer at exit

Browse Source
This commit is contained in:
pierre 2000-02-04 23:17:25 +00:00
parent 1081fc6d3b
commit 1ca165a3b8
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/text/fpusrscr.pas
View File

@ -499,8 +499,10 @@ end;
destructor TWin32Screen.Done;
begin
if IDEActive then
SwitchTo;
{ copy the Dos buffer content into the original ScreenBuffer
which remains the startup std_output_handle PM }
BufferCopy(DosScreenBufferHandle,IDEScreenBufferHandle);
SetConsoleActiveScreenBuffer(IDEScreenBufferHandle);
SetStdHandle(Std_Output_Handle,IDEScreenBufferHandle);
CloseHandle(DosScreenBufferHandle);
inherited Done;
@ -667,7 +669,10 @@ end;
end.
{
$Log$
Revision 1.8 1999-12-01 16:17:18 pierre
Revision 1.9 2000-02-04 23:17:25 pierre
* Keep the entry ScreenBuffer at exit
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
@ -721,5 +726,4 @@ end.
Revision 1.0 1998/12/24 09:55:49 gabor
Original implementation
}
}