Changeset 468 for trunk/LocalPlayer/Diagram.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/Diagram.pas (modified) (3 diffs)

trunk/LocalPlayer/Diagram.pas

@@ -5 +5 @@
 
 uses
-  BaseWin, LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms,
-  ButtonB, Menus;
+  BaseWin, LCLIntf, LCLType, SysUtils, Classes, ButtonB,
+{$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.Menus{$ELSE}
+Graphics, Controls, Forms, Menus{$ENDIF};
 
 type
@@ -60 +61 @@
   Canvas.Brush.Color := $000000;
   Canvas.FillRect(Rect(Left, Top, Left + Width, Top + 200));
-  Canvas.Brush.Style := bsClear;
+  Canvas.Brush.Style := TBrushStyle.bsClear;
     ScreenTools.Frame(Canvas, Left - 1, Top - 1, Left + Width, Top + 200,
       MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
@@ -202 +203 @@
       Brush.Color := $000000;
       FillRect(Rect(0, 0, InnerWidth, InnerHeight));
-      Brush.Style := bsClear;
+      Brush.Style := TBrushStyle.bsClear;
       Pen.Color := $606060;
       MoveTo(Border, InnerHeight - Border);