paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 20:49:16 +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

19
ide/fpcatch.pas
View File

@ -224,10 +224,27 @@ begin
exit; exit;
{$ifdef Windows} {$ifdef Windows}
if GetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), @Mode) then 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} {$endif Windows}
{$ifdef go32v2} {$ifdef go32v2}
{
I think that it was an error to put that here PM
djgpp_set_ctrl_c(false); djgpp_set_ctrl_c(false);
at least since that this is now handled in fpusrscr.pas unit
}
{$endif go32v2} {$endif go32v2}
{$ifdef HasSignal} {$ifdef HasSignal}
{$ifndef TP} {$ifndef TP}