浏览代码

* Inc (PendingMouseEvents) added to PutMouseEvent

Tomas Hajny 25 年之前
父节点
当前提交
1f29cc1c76
共有 1 个文件被更改,包括 5 次插入1 次删除
  1. 5 1
      api/os2/mouse.inc

+ 5 - 1
api/os2/mouse.inc

@@ -396,12 +396,16 @@ begin
   PendingMouseEventOrder [MouseEventOrderTail] := QI.cEvents;
   PendingMouseEventOrder [MouseEventOrderTail] := QI.cEvents;
   Inc (MouseEventOrderTail);
   Inc (MouseEventOrderTail);
   if MouseEventOrderTail = MouseEventBufSize then MouseEventOrderTail := 0;
   if MouseEventOrderTail = MouseEventBufSize then MouseEventOrderTail := 0;
+  Inc (PendingMouseEvents);
  end;
  end;
 end;
 end;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.2  2000-01-09 20:43:04  hajny
+  Revision 1.3  2000-04-10 15:50:55  hajny
+    * Inc (PendingMouseEvents) added to PutMouseEvent
+
+  Revision 1.2  2000/01/09 20:43:04  hajny
     * cardinal = longint removed for FPC
     * cardinal = longint removed for FPC
 
 
 }
 }