Changeset 210 for branches/highdpi/LocalPlayer/PVSB.pas

Timestamp:

May 9, 2020, 4:02:07 PM (4 years ago)

Author:

chronos

Message:

• Modified: Improved HighDPI branch. Imported new changes from trunk branch.

File:

• branches/highdpi/LocalPlayer/PVSB.pas (modified) (3 diffs)

branches/highdpi/LocalPlayer/PVSB.pas

@@ -5 +5 @@
 
 uses
-  {$IFDEF WINDOWS}
+  UDpiControls, {$IFDEF WINDOWS}
   Windows,
   {$ENDIF}
   Classes, Controls, Forms, LCLIntf, LCLType, LMessages, Messages, SysUtils,
-  StdCtrls, Math, UDpiControls;
+  StdCtrls, Math;
 
 type
@@ -109 +109 @@
     if Max < ScrollBar.PageSize then Result := False
     else begin
-      NewPos := ScrollBar.Position - Delta div 300;
+      NewPos := ScrollBar.Position - Delta div 30;
       if NewPos < 0 then NewPos := 0;
       if NewPos > Max - ScrollBar.PageSize + 1 then
@@ -153 +153 @@
 begin
   FMax := AValue;
-  ScrollBar.Max := Math.Max(0, Max{$IFDEF LINUX} - PageSize + 1{$ENDIF});
+  ScrollBar.Max := Math.Max(0, FMax);
 end;