Changeset 611 for trunk/LocalPlayer/PVSB.pas

Timestamp:

Sep 13, 2024, 8:35:17 PM (6 days ago)

Author:

chronos

Message:

• Modified: Scroll just by single row with mouse wheel in tile units list.

File:

• trunk/LocalPlayer/PVSB.pas (modified) (3 diffs)

trunk/LocalPlayer/PVSB.pas

@@ -27 +27 @@
   public
     ScrollBar: TScrollBar;
+    WheelSteps: Integer;
     constructor Create(Parent: TWinControl);
     destructor Destroy; override;
@@ -106 +107 @@
   NewPos: Integer;
 begin
-    if Max < ScrollBar.PageSize then Result := False
-    else begin
-      NewPos := ScrollBar.Position - Delta div 30;
-      if NewPos < 0 then NewPos := 0;
-      if NewPos > Max - ScrollBar.PageSize + 1 then
-        NewPos := Max - ScrollBar.PageSize + 1;
-      Result := NewPos <> ScrollBar.Position;
-      if NewPos <> ScrollBar.Position then begin
-        ScrollBar.Position := NewPos;
-      end;
+  if Max < ScrollBar.PageSize then Result := False
+  else begin
+    NewPos := ScrollBar.Position - Delta div (120 div WheelSteps);
+    if NewPos < 0 then NewPos := 0;
+    if NewPos > Max - ScrollBar.PageSize + 1 then
+      NewPos := Max - ScrollBar.PageSize + 1;
+    Result := NewPos <> ScrollBar.Position;
+    if NewPos <> ScrollBar.Position then begin
+      ScrollBar.Position := NewPos;
     end;
+  end;
 end;
 
@@ -190 +191 @@
   ScrollBar.Parent := Parent;
   ScrollBar.Width := 16;
+  WheelSteps := 4;
 end;