Changeset 468 for trunk/Inp.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/Inp.pas (modified) (2 diffs)

trunk/Inp.pas

@@ -5 +5 @@
 
 uses
-  ScreenTools, LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms,
-  DrawDlg, ButtonA, StdCtrls;
+  ScreenTools, LCLIntf, LCLType, SysUtils, Classes, DrawDlg, ButtonA, StdCtrls,
+  System.UITypes,
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms{$ELSE}
+  Graphics, Controls, Forms{$ENDIF};
 
 type
@@ -35 +37 @@
 begin
   Canvas.Font.Assign(UniFont[ftNormal]);
-  Canvas.Brush.Style := bsClear;
+  Canvas.Brush.Style := TBrushStyle.bsClear;
   TitleHeight := Height;
   InitButtons;