- Fixed potential crash when using the Mouse Wheel

2009-12-17 00:36:26 +01:00 · 2009-12-17 00:36:26 +01:00 · 13264d3251
parent 3969493d90
commit 13264d3251
1 changed files with 3 additions and 0 deletions
--- a/Client/UfrmMain.pas
+++ b/Client/UfrmMain.pas
@ -793,6 +793,9 @@ var
  cursorNeedsUpdate: Boolean;
  newZ: ShortInt;
 begin
+  if CurrentTile = nil then
+    Exit;
+
  //We want single steps ...
  WheelDelta := WheelDelta div WHEEL_DELTA;