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

* allow window input for fvsion system messages

Browse Source
This commit is contained in:
pierre 2002-06-06 14:10:34 +00:00
parent a0d19e2a81
commit 24ff512f2f
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/fpusrscr.pas
View File

@ -908,7 +908,7 @@ begin
GetConsoleScreenBufferInfo(IDEScreenBufferHandle, GetConsoleScreenBufferInfo(IDEScreenBufferHandle,
@ConsoleScreenBufferInfo); @ConsoleScreenBufferInfo);
SetConsoleActiveScreenBuffer(IDEScreenBufferHandle); SetConsoleActiveScreenBuffer(IDEScreenBufferHandle);
IdeMode:=(IdeMode or ENABLE_MOUSE_INPUT) and not ENABLE_PROCESSED_INPUT; IdeMode:=(IdeMode or ENABLE_MOUSE_INPUT or ENABLE_WINDOW_INPUT) and not ENABLE_PROCESSED_INPUT;
SetConsoleMode(GetStdHandle(Std_Input_Handle), IdeMode); SetConsoleMode(GetStdHandle(Std_Input_Handle), IdeMode);
WindowPos.left:=0; WindowPos.left:=0;
WindowPos.right:=ConsoleScreenBufferInfo.srWindow.right WindowPos.right:=ConsoleScreenBufferInfo.srWindow.right
@ -969,7 +969,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.10 2002-06-06 06:46:28 pierre Revision 1.11 2002-06-06 14:10:34 pierre
* allow window input for fvsion system messages
Revision 1.10 2002/06/06 06:46:28 pierre
* No videobuffer switch necessary for fvision win32 graphic version * No videobuffer switch necessary for fvision win32 graphic version
Revision 1.9 2002/04/25 13:34:17 pierre Revision 1.9 2002/04/25 13:34:17 pierre