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

* Convert to code that also works correct in $T+ case.

Browse Source 
* Remove typecasts to longint.

git-svn-id: trunk@7940 -
This commit is contained in:
daniel 2007-07-03 21:40:54 +00:00
parent d9b1dbbec9
commit 6d059a0640
2 changed files with 8 additions and 8 deletions
rtl
go32v2
mouse.pp
os2
mouse.pp

4
rtl/go32v2/mouse.pp
View File

@ -763,8 +763,8 @@ begin
end;
MouseEvent:=PendingMouseHead^;
inc(PendingMouseHead);
if ptruint(PendingMouseHead)=ptruint(@PendingMouseEvent)+sizeof(PendingMouseEvent) then
PendingMouseHead:=PMouseEvent(@PendingMouseEvent);
if PendingMouseHead=@PendingMouseEvent[0]+MouseEventBufsize then
PendingMouseHead:=@PendingMouseEvent[0];
dec(PendingMouseEvents);
if (LastMouseEvent.x<>MouseEvent.x) or (LastMouseEvent.y<>MouseEvent.y) then
MouseEvent.Action:=MouseActionMove;

12
rtl/os2/mouse.pp
View File

@ -275,7 +275,7 @@ begin
WF := Mou_NoWait;
if (MouReadEventQue (SysEvent, WF, Handle) = 0) then
begin
if PendingMouseHead = @PendingMouseEvent then
if PendingMouseHead = @PendingMouseEvent[0] then
P := @PendingMouseEvent [MouseEventBufSize - 1] else
begin
P := PendingMouseHead;
@ -297,7 +297,7 @@ begin
TranslateEvents (SysEvent, Event);
if Event.Action <> MouseActionMove then
begin
if Q = @PendingMouseEvent then
if Q = @PendingMouseEvent[0] then
Q := @PendingMouseEvent [MouseEventBufSize - 1] else Dec (Q);
if MouseEventOrderHead = 0 then
MouseEventOrderHead := MouseEventBufSize - 1 else
@ -359,8 +359,8 @@ begin
LastMouseEvent := MouseEvent;
end;
Inc (PendingMouseHead);
if longint (PendingMouseHead) = longint (@PendingMouseEvent)
+ SizeOf (PendingMouseEvent) then PendingMouseHead := @PendingMouseEvent;
if PendingMouseHead = @PendingMouseEvent[0]+MouseEventBufsize then
PendingMouseHead := @PendingMouseEvent[0];
Inc (MouseEventOrderHead);
if MouseEventOrderHead = MouseEventBufSize then MouseEventOrderHead := 0;
Dec (PendingMouseEvents);
@ -374,8 +374,8 @@ begin
begin
PendingMouseTail^ := MouseEvent;
Inc (PendingMouseTail);
if longint (PendingMouseTail) = longint (@PendingMouseEvent) +
SizeOf (PendingMouseEvent) then PendingMouseTail := @PendingMouseEvent;
if PendingMouseTail=@PendingMouseEvent[0]+MouseEventBufSize then
PendingMouseTail := @PendingMouseEvent[0];
MouGetNumQueEl (QI, Handle);
PendingMouseEventOrder [MouseEventOrderTail] := QI.cEvents;
Inc (MouseEventOrderTail);