feat: enabled high dpi support (via LCL and windows manifest)

salvadorbs · Aug 23, 2022 · 1bdc3c8 · 1bdc3c8
1 parent 8d40d72
commit 1bdc3c8
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git 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
@@ -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