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

* removed CtrlC for go32v2 and added checks for windows calls

Browse Source 
git-svn-id: trunk@6121 -
This commit is contained in:
pierre 2007-01-22 04:13:54 +00:00
parent 07327f9301
commit b6fc04080e
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ide/fpcatch.pas
View File

@ -224,10 +224,27 @@ begin
exit;
{$ifdef Windows}
if GetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), @Mode) then
SetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), (Mode or ENABLE_MOUSE_INPUT) and not ENABLE_PROCESSED_INPUT);
begin
{$ifdef DEBUG}
Writeln(stderr,'Starting value of ConsoleMode is $',hexstr(Mode,8));
{$endif DEBUG}
SetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)),
(Mode or ENABLE_MOUSE_INPUT) and not ENABLE_PROCESSED_INPUT);
{$ifdef DEBUG}
end
else
begin
Writeln(stderr,'Call to GetConsoleMode failed, GetLastError=',
GetLastError);
{$endif DEBUG}
end;
{$endif Windows}
{$ifdef go32v2}
djgpp_set_ctrl_c(false);
{
I think that it was an error to put that here PM
djgpp_set_ctrl_c(false);
at least since that this is now handled in fpusrscr.pas unit
}
{$endif go32v2}
{$ifdef HasSignal}
{$ifndef TP}