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

trunk/Settings.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  LCLProc, ScreenTools, Messg, ButtonA, Directories, DrawDlg, ButtonC,
-  KeyBindings, Languages;
+  Classes, SysUtils, FileUtil, Dialogs, LCLProc, ScreenTools, Messg, ButtonA,
+  Directories, DrawDlg, ButtonC, KeyBindings, Languages, System.UITypes,
+  {$IFDEF DPI}Dpi.Forms, Dpi.Controls, Dpi.Graphics, Dpi.StdCtrls{$ELSE}
+  Forms, Controls, Graphics, StdCtrls{$ENDIF};
 
 type
@@ -82 +83 @@
 
   Canvas.Font.Assign(UniFont[ftNormal]);
-  Canvas.Brush.Style := bsClear;
+  Canvas.Brush.Style := TBrushStyle.bsClear;
 
   ButtonOk.Caption := Phrases.Lookup('BTN_OK');