浏览代码

Mouse wheel do not affect AutoTicks.

Margers 1 月之前
父节点
当前提交
f7e0de1b11
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      packages/fv/src/drivers.inc

+ 2 - 1
packages/fv/src/drivers.inc

@@ -1447,7 +1447,8 @@ begin
                MouseButton5: Event.Wheel:=mwDown;
              end;
              e.Buttons:=e.Buttons and( not word( MouseButton4 or MouseButton5)); {remove wheel buttons for Buttons}
-             AutoTicks:=0;  {there is no "holding down" mouse wheel }
+             { do not temper with AutoTicks because other buttons can be held down while scrolling
+             AutoTicks:=0;}  {there is no "holding down" mouse wheel }
            end;
          end;
        MouseActionUp :