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

* bugfix of console sharing mode (on NT this would bug all

Browse Source 
std_input access).
This commit is contained in:
carl 2001-09-09 20:44:53 +00:00
parent 4930d6448f
commit 5d0b6c1431
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/fpusrscr.pas
View File

@ -599,7 +599,7 @@ begin
SecurityAttr.bInheritHandle:=true;
DosScreenBufferHandle:=CreateConsoleScreenBuffer(
GENERIC_READ or GENERIC_WRITE,
0,SecurityAttr,
FILE_SHARE_READ or FILE_SHARE_WRITE,SecurityAttr,
CONSOLE_TEXTMODE_BUFFER,nil);
IDEScreenBufferHandle:=GetStdHandle(STD_OUTPUT_HANDLE);
GetConsoleMode(GetStdHandle(Std_Input_Handle), @ConsoleMode);
@ -834,7 +834,11 @@ end;
end.
{
$Log$
Revision 1.2 2001-08-12 00:04:50 pierre
Revision 1.3 2001-09-09 20:44:53 carl
* bugfix of console sharing mode (on NT this would bug all
std_input access).
Revision 1.2 2001/08/12 00:04:50 pierre
* some speed improvements for string operations
Revision 1.1 2001/08/04 11:30:24 peter