- Fixed WheelDelta not being adjusted right

2008-09-06 23:08:50 +02:00
parent cc8eee1b1b
commit 7399b13fd0
4 changed files with 54 additions and 49 deletions
--- a/Client/UfrmMain.pas
+++ b/Client/UfrmMain.pas
@@ -665,6 +665,9 @@ procedure TfrmMain.oglGameWindowMouseWheel(Sender: TObject; Shift: TShiftState;
 var
  cursorNeedsUpdate: Boolean;
 begin
+  //We want single steps ...
+  WheelDelta := WheelDelta div WHEEL_DELTA;
+
  cursorNeedsUpdate := False;
  if (CurrentTile is TVirtualTile) or ((ssCtrl in Shift) and (frmVirtualLayer.cbShowLayer.Checked)) then
  begin