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

trunk/NoTerm.pas

@@ -5 +5 @@
 
 uses
-  ScreenTools, Protocol, Messg, LCLIntf, LCLType, dateutils, Platform,
-  SysUtils, Classes, Graphics, Controls, Forms, ButtonB, DrawDlg;
+  ScreenTools, Protocol, Messg, LCLIntf, LCLType, DateUtils, Platform,
+  SysUtils, Classes, ButtonB, DrawDlg, System.UITypes,
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms{$ELSE}
+  Graphics, Controls, Forms{$ENDIF};
 
 type
@@ -88 +90 @@
   Top := 8;
   Caption := Phrases.Lookup('AIT');
-  Canvas.Brush.Style := bsClear;
+  Canvas.Brush.Style := TBrushStyle.bsClear;
   Canvas.Font.Assign(UniFont[ftSmall]);
   TitleHeight := 36;
@@ -168 +170 @@
         State := TBitmap.Create;
         State.SetSize(192, 20);
-        State.Canvas.Brush.Style := bsClear;
+        State.Canvas.Brush.Style := TBrushStyle.bsClear;
         State.Canvas.Font.Assign(UniFont[ftSmall]);
         NewStat;