Mouse WheelDelta different vs Windows

In Windows, the WheelDelta parameter is +- 120, in Linux is +- 10. Not sure this is a bug, or as expected (platform dependent).

Some controls like ExtCtrls TImageViewer, TCustomScrollBox.MouseWheel method, TListViewBase, etc, consider delta to be 120.

procedure TForm7.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; var Handled: Boolean);
begin
  Handled:=False;
  Caption:=WheelDelta.ToString;
end;

Comments (2)