Changeset 468 for trunk/LocalPlayer/PVSB.pas

Timestamp:

Dec 3, 2023, 11:28:08 AM (5 months ago)

Author:

chronos

Message:

• Added: High DPI support integrated into trunk branch. It can be enabled by adding DPI define to compiler parameters for main project and packages.

File:

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

trunk/LocalPlayer/PVSB.pas

@@ -6 +6 @@
 uses
   {$IFDEF WINDOWS}Windows,{$ENDIF}
-  Classes, Controls, Forms, LCLIntf, LCLType, LMessages, Messages, SysUtils,
-  StdCtrls, Math;
+  Classes, LCLIntf, LCLType, LMessages, Messages, SysUtils, Math,
+  {$IFDEF DPI}Dpi.Controls, Dpi.Forms, Dpi.StdCtrls{$ELSE}
+  Controls, Forms, StdCtrls{$ENDIF};
 
 type
@@ -183 +184 @@
   Inc(Count);
   ScrollBar := TScrollBar.Create(Parent);
-  ScrollBar.Kind := sbVertical;
+  ScrollBar.Kind := TScrollBarKind.sbVertical;
   ScrollBar.Name := 'PVSB' + IntToStr(Count);
-  ScrollBar.Align := alRight;
+  ScrollBar.Align := TAlign.alRight;
   ScrollBar.OnChange := ScrollBarChanged;
   ScrollBar.Parent := Parent;