Преглед на файлове

* fix broken getmouseevent

git-svn-id: trunk@3592 -
florian преди 19 години
родител
ревизия
d427da09d5
променени са 1 файла, в които са добавени 2 реда и са изтрити 1 реда
  1. 2 1
      rtl/inc/mouse.inc

+ 2 - 1
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);