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

Timestamp:

Jun 23, 2019, 3:15:29 PM (5 years ago)

Author:

chronos

Message:

• Modified: Use DpiControls package for High DPI support.

File:

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

branches/highdpi/LocalPlayer/PVSB.pas

@@ -9 +9 @@
   {$ENDIF}
   Classes, Controls, Forms, LCLIntf, LCLType, LMessages, Messages, SysUtils,
-  StdCtrls, Math;
+  StdCtrls, Math, UDpiControls;
 
 type
@@ -18 +18 @@
   private
     FOnUpdate: TNotifyEvent;
-    ScrollBar: TScrollBar;
+    ScrollBar: TDpiScrollBar;
     FMax: Integer;
     function GetMax: Integer;
@@ -28 +28 @@
     procedure SetPosition(AValue: Integer);
   public
-    constructor Create(Parent: TWinControl);
+    constructor Create(Parent: TDpiWinControl);
     destructor Destroy; override;
     procedure Init(Max, PageSize: Integer);
@@ -109 +109 @@
     if Max < ScrollBar.PageSize then Result := False
     else begin
-      NewPos := ScrollBar.Position - Delta div 30;
+      NewPos := ScrollBar.Position - Delta div 300;
       if NewPos < 0 then NewPos := 0;
       if NewPos > Max - ScrollBar.PageSize + 1 then
@@ -153 +153 @@
 begin
   FMax := AValue;
-  ScrollBar.Max := Math.Max(0, FMax);
+  ScrollBar.Max := Math.Max(0, Max{$IFDEF LINUX} - PageSize + 1{$ENDIF});
 end;
 
@@ -181 +181 @@
 end;
 
-constructor TPVScrollBar.Create(Parent: TWinControl);
+constructor TPVScrollBar.Create(Parent: TDpiWinControl);
 begin
   Inc(Count);
-  ScrollBar := TScrollBar.Create(Parent);
+  ScrollBar := TDpiScrollBar.Create(Parent);
   ScrollBar.Kind := sbVertical;
   ScrollBar.Name := 'PVSB' + IntToStr(Count);