Преглед изворни кода

* 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);