* another cleanup of unnecessary variables

git-svn-id: trunk@3781 -
This commit is contained in:
Tomas Hajny 2006-06-03 23:47:52 +00:00
parent c877c6d97c
commit f7e596e4fd

View File

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