paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 00:50:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Inc (PendingMouseEvents) added to PutMouseEvent

Browse Source
This commit is contained in:
Tomas Hajny 2000-04-10 15:50:55 +00:00
parent 28ef8ce303
commit 1f29cc1c76
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
api/os2/mouse.inc
View File

@ -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
} }