* try to fix the Win2000 mouse problem

ide/fpcatch.pas

@@ -159,7 +159,7 @@ begin
     exit;
 {$ifdef win32}
   if GetConsoleMode(GetStdHandle(Std_Input_Handle), @Mode) then
-    SetConsoleMode(GetStdHandle(Std_Input_Handle), Mode and not ENABLE_PROCESSED_INPUT);
+    SetConsoleMode(GetStdHandle(Std_Input_Handle), (Mode or ENABLE_MOUSE_INPUT) and not ENABLE_PROCESSED_INPUT);
 {$endif win32}
 {$ifdef go32v2}
   djgpp_set_ctrl_c(false);
@@ -195,7 +195,10 @@ end.
 
 {
   $Log$
-  Revision 1.2  2001-08-05 02:01:47  peter
+  Revision 1.3  2001-10-24 14:17:27  pierre
+   * try to fix the Win2000 mouse problem
+
+  Revision 1.2  2001/08/05 02:01:47  peter
     * FVISION define to compile with fvision units
 
   Revision 1.1  2001/08/04 11:30:22  peter

ide/fpide.pas

@@ -277,7 +277,7 @@ begin
   Insert(HeapView);
   Drivers.ShowMouse;
 {$ifdef win32}
-  Win32ShowMouse;
+  // Win32ShowMouse;
 {$endif win32}
 end;
 
@@ -794,6 +794,9 @@ begin
   InitSysError;
   CurDirChanged;
   Message(Application,evBroadcast,cmUpdate,nil);
+{$ifdef win32}
+  Win32ShowMouse;
+{$endif win32}
   if Assigned(UserScreen) then
     UserScreen^.SwitchBackToIDEScreen;
 {$ifdef Unix}
@@ -802,9 +805,6 @@ begin
 {$ifndef go32v2}
   UpdateScreen(true);
 {$endif go32v2}
-{$ifdef win32}
-  Win32ShowMouse;
-{$endif win32}
 end;
 
 function TIDEApp.AutoSave: boolean;
@@ -1167,7 +1167,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.5  2001-10-02 23:56:30  pierre
+  Revision 1.6  2001-10-24 14:17:27  pierre
+   * try to fix the Win2000 mouse problem
+
+  Revision 1.5  2001/10/02 23:56:30  pierre
    * fix bug 1619 by using wconsole unit
 
   Revision 1.4  2001/10/01 00:24:09  pierre

ide/fpusrscr.pas

@@ -790,7 +790,7 @@ procedure TWin32Screen.SwitchBackToIDEScreen;
 begin
   SetConsoleActiveScreenBuffer(IDEScreenBufferHandle);
   SetStdHandle(Std_Output_Handle,IDEScreenBufferHandle);
-  IdeMode:=IdeMode and not ENABLE_PROCESSED_INPUT;
+  IdeMode:=(IdeMode or ENABLE_MOUSE_INPUT) and not ENABLE_PROCESSED_INPUT;
   SetConsoleMode(GetStdHandle(Std_Input_Handle), IdeMode);
   IDEActive:=true;
 end;
@@ -834,7 +834,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.3  2001-09-09 20:44:53  carl
+  Revision 1.4  2001-10-24 14:17:27  pierre
+   * try to fix the Win2000 mouse problem
+
+  Revision 1.3  2001/09/09 20:44:53  carl
   * bugfix of console sharing mode (on NT this would bug all
   std_input access).