mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 10:45:58 +02:00
* another cleanup of unnecessary variables
git-svn-id: trunk@3781 -
This commit is contained in:
parent
c877c6d97c
commit
f7e596e4fd
@ -97,7 +97,6 @@ end;
|
||||
function SysDetectMouse:byte;
|
||||
var
|
||||
Buttons: word;
|
||||
RC: longint;
|
||||
TempHandle: word;
|
||||
begin
|
||||
MouOpen (nil, TempHandle);
|
||||
@ -347,8 +346,6 @@ begin
|
||||
end;
|
||||
|
||||
procedure SysGetMouseEvent (var MouseEvent: TMouseEvent);
|
||||
var
|
||||
Event: TMouEventInfo;
|
||||
begin
|
||||
if (PendingMouseEvents = 0) or
|
||||
(PendingMouseEventOrder [MouseEventOrderHead] <> 0) then
|
||||
|
Loading…
Reference in New Issue
Block a user