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

* another cleanup of unnecessary variables

Browse Source 
git-svn-id: trunk@3781 -
This commit is contained in:
Tomas Hajny 2006-06-03 23:47:52 +00:00
parent c877c6d97c
commit f7e596e4fd
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/os2/mouse.pp
View File

@ -97,7 +97,6 @@ end;
function SysDetectMouse:byte; function SysDetectMouse:byte;
var var
Buttons: word; Buttons: word;
RC: longint;
TempHandle: word; TempHandle: word;
begin begin
MouOpen (nil, TempHandle); MouOpen (nil, TempHandle);
@ -347,8 +346,6 @@ begin
end; end;
procedure SysGetMouseEvent (var MouseEvent: TMouseEvent); procedure SysGetMouseEvent (var MouseEvent: TMouseEvent);
var
Event: TMouEventInfo;
begin begin
if (PendingMouseEvents = 0) or if (PendingMouseEvents = 0) or
(PendingMouseEventOrder [MouseEventOrderHead] <> 0) then (PendingMouseEventOrder [MouseEventOrderHead] <> 0) then