- Fixed potential crash when using the Mouse Wheel

This commit is contained in:
Andreas Schneider 2009-12-17 00:36:26 +01:00
parent 3969493d90
commit 13264d3251
1 changed files with 3 additions and 0 deletions

View File

@ -793,6 +793,9 @@ var
cursorNeedsUpdate: Boolean; cursorNeedsUpdate: Boolean;
newZ: ShortInt; newZ: ShortInt;
begin begin
if CurrentTile = nil then
Exit;
//We want single steps ... //We want single steps ...
WheelDelta := WheelDelta div WHEEL_DELTA; WheelDelta := WheelDelta div WHEEL_DELTA;