Changeset 468 for trunk/LocalPlayer/Rates.pas

Timestamp:

Dec 3, 2023, 11:28:08 AM (6 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/Rates.pas (modified) (2 diffs)

trunk/LocalPlayer/Rates.pas

@@ -5 +5 @@
 
 uses
-  Protocol, ScreenTools, BaseWin, LCLIntf, LCLType, SysUtils, Classes, Graphics,
-  Controls, Forms, ButtonB, ButtonC;
+  Protocol, ScreenTools, BaseWin, LCLIntf, LCLType, SysUtils, Classes, ButtonB,
+  ButtonC,
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms{$ELSE}
+  Graphics, Controls, Forms{$ENDIF};
 
 type
@@ -124 +126 @@
       Brush.Color := $000000;
       FillRect(Rect(X, Y, X + Max - current, Y + 7));
-      Brush.Style := bsClear;
+      Brush.Style := TBrushStyle.bsClear;
     end;