From 1bdc3c8b4fcba05b9cc2faab03b7bfab848cb532 Mon Sep 17 00:00:00 2001
From: Matteo Salvi <salvadorbs@gmail.com>
Date: Mon, 22 Aug 2022 11:42:07 +0200
Subject: [PATCH] feat: enabled high dpi support (via LCL and windows manifest)

---
 ASuite.lpi | 1 +
 ASuite.lpr | 8 +++++---
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/ASuite.lpi b/ASuite.lpi
index c51ffd6b..4713982a 100644
--- a/ASuite.lpi
+++ b/ASuite.lpi
@@ -17,6 +17,7 @@
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>
       <XPManifest>
+        <DpiAware Value="True"/>
         <TextName Value="ASuite"/>
         <TextDesc Value="Portable Launcher"/>
       </XPManifest>
diff --git a/ASuite.lpr b/ASuite.lpr
index 688cc2be..dd7a602b 100644
--- a/ASuite.lpr
+++ b/ASuite.lpr
@@ -43,12 +43,14 @@
         DeleteFile('heap.trc');
       SetHeapTraceOutput('heap.trc');
     {$ENDIF}
-
+                                    
+    Application.Scaled := True;
     Application.Initialize;
-  Application.Title := APP_TITLE;
+    Application.Title := APP_TITLE;
 
     Application.CreateForm(TfrmMain, frmMain);
-  Application.CreateForm(TfrmGraphicMenu, frmGraphicMenu);
+    Application.CreateForm(TfrmGraphicMenu, frmGraphicMenu);
+
   //Show MainForm and/or TrayMenu
     Application.ShowMainForm := Config.ShowPanelAtStartUp;
     if (Config.ShowGraphicMenuAtStartUp) then