Merged revisions 3592 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

r3592 (florian)
* fix broken getmouseevent

git-svn-id: branches/fixes_2_0@3593 -

ide/fp.pas

@@ -1,4 +1,39 @@
-{
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+di{
     This file is part of the Free Pascal Integrated Development Environment
     Copyright (c) 1998-2000 by Berczi Gabor
 

rtl/inc/mouse.inc

@@ -148,7 +148,8 @@ begin
   else
     If Assigned(CurrentMouseDriver.GetMouseEvent) Then
       begin
-      LastMouseEvent:=MouseEvent;
+        LastMouseEvent:=MouseEvent;
+        CurrentMouseDriver.GetMouseEvent(MouseEvent);
       end
     else
       FillChar(MouseEvent,sizeof(TMouseEvent),0);