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

disable quick edit mode in windows IDE

Browse Source 
git-svn-id: trunk@6049 -
This commit is contained in:
pierre 2007-01-18 14:00:38 +00:00
parent 6bcc26b21b
commit e79ab4462b
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/fpusrscr.pas
View File

@ -980,6 +980,11 @@ end;
{$ifdef Windows} {$ifdef Windows}
{ Seems to be missing in windows unit PM }
const
ENABLE_INSERT_MODE = $20;
ENABLE_QUICK_EDIT_MODE = $40;
procedure UpdateFileHandles; procedure UpdateFileHandles;
begin begin
{StdInputHandle:=longint(GetStdHandle(STD_INPUT_HANDLE));} {StdInputHandle:=longint(GetStdHandle(STD_INPUT_HANDLE));}
@ -1302,7 +1307,12 @@ begin
{ Needed to force InitSystemMsg to use the right console handle } { Needed to force InitSystemMsg to use the right console handle }
DoneEvents; DoneEvents;
InitEvents; InitEvents;
IdeMode:=(IdeMode or ENABLE_MOUSE_INPUT or ENABLE_WINDOW_INPUT) and not ENABLE_PROCESSED_INPUT; IdeMode:=(IdeMode or ENABLE_MOUSE_INPUT or ENABLE_WINDOW_INPUT)
and not (ENABLE_PROCESSED_INPUT or
ENABLE_LINE_INPUT or
ENABLE_ECHO_INPUT or
ENABLE_INSERT_MODE or
ENABLE_QUICK_EDIT_MODE);
SetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), IdeMode); SetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), IdeMode);
WindowPos.left:=0; WindowPos.left:=0;
WindowPos.right:=ConsoleScreenBufferInfo.srWindow.right WindowPos.right:=ConsoleScreenBufferInfo.srWindow.right