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

* compilation fixed

Browse Source 
git-svn-id: trunk@7904 -
This commit is contained in:
florian 2007-07-01 14:43:06 +00:00
parent f5beba1eeb
commit 4ba2a49318
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/win/mouse.pp
View File

@ -106,8 +106,8 @@ begin
mode:=mode or ENABLE_MOUSE_INPUT;
SetConsoleMode(StdInputHandle,mode);
PendingMouseHead:=@PendingMouseEvent;
PendingMouseTail:=@PendingMouseEvent;
PendingMouseHead:=@PendingMouseEvent[0];
PendingMouseTail:=@PendingMouseEvent[0];
PendingMouseEvents:=0;
FillChar(LastMouseEvent,sizeof(TMouseEvent),0);
InitializeCriticalSection(ChangeMouseEvents);
@ -159,7 +159,7 @@ begin
MouseEvent:=PendingMouseHead^;
inc(PendingMouseHead);
if ptrint(PendingMouseHead)=ptrint(@PendingMouseEvent)+sizeof(PendingMouseEvent) then
PendingMouseHead:=@PendingMouseEvent;
PendingMouseHead:=@PendingMouseEvent[0];
dec(PendingMouseEvents);
{ LastMouseEvent is already set at the end of the mouse event handler,
@ -205,7 +205,7 @@ begin
PendingMouseTail^:=MouseEvent;
inc(PendingMouseTail);
if ptrint(PendingMouseTail)=ptrint(@PendingMouseEvent)+sizeof(PendingMouseEvent) then
PendingMouseTail:=@PendingMouseEvent;
PendingMouseTail:=@PendingMouseEvent[0];
{ why isn't this done here ?
so the win32 version do this by hand:}
inc(PendingMouseEvents);