Tools/DebugServer: Use high-dpi icons by Roland Hahn

tools/debugserver/README.txt

@@ -46,3 +46,9 @@ The indentation of the messages (by SendMethodEnter) is intentional: if an
 exception occurs, then the SendMethodExit does not happen, and you see that
 something is wrong visually.
 
+-------------------------
+
+Icons used by this application were provided by Roland Hahn (https://www.rhsoft.de/)
+under Creative Commons CC0 1.0 Universal License
+(freely available, no restrictions in usage).
+

tools/debugserver/debugserver.lpi

@@ -9,7 +9,11 @@
       </Flags>
       <SessionStorage Value="InIDEConfig"/>
       <Title Value="FPC/Lazarus debug message server"/>
+      <Scaled Value="True"/>
       <UseXPManifest Value="True"/>
+      <XPManifest>
+        <DpiAware Value="True"/>
+      </XPManifest>
       <Icon Value="0"/>
     </General>
     <BuildModes Count="1">
@@ -66,6 +70,7 @@
     <Version Value="11"/>
     <SearchPaths>
       <IncludeFiles Value="$(ProjOutDir)"/>
+      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
     <Parsing>
       <SyntaxOptions>

tools/debugserver/debugserver.lpr

@@ -13,6 +13,7 @@ uses
 {$R *.res}
 
 begin
+  Application.Scaled:=True;
   Application.Title:='FPC/Lazarus debug message server';
   Application.Initialize;
   Application.CreateForm(TMainForm, MainForm);

tools/debugserver/frmoptions.pp

@@ -24,14 +24,14 @@ unit frmOptions;
 interface
 
 uses
-  Forms, ButtonPanel, StdCtrls;
+  Forms, ButtonPanel, StdCtrls, Classes;
 
 type
 
   { TOptionsForm }
 
   TOptionsForm = class(TForm)
-    ButtonPanel1: TButtonPanel;
+    ButtonPanel:TButtonPanel;
     CBNewVisible: TCheckBox;
     CBCleanLogOnNewProcess: TCheckBox;
     CBShowOnStartUp: TCheckBox;
@@ -39,7 +39,9 @@ type
     CBNewAtBottom: TCheckBox;
     GBWindow: TGroupBox;
     GBMessages: TGroupBox;
+    procedure FormActivate(Sender:TObject);
   private
+    FActivated: boolean;
     function GetB(AIndex: integer): Boolean;
     function GetCB(AIndex: Integer): TCheckBox;
     procedure SetB(AIndex: integer; const AValue: Boolean);
@@ -60,8 +62,20 @@ implementation
 
 { TOptionsForm }
 
-function TOptionsForm.GetCB(AIndex : Integer) : TCheckBox;
+procedure TOptionsForm.FormActivate(Sender:TObject);
+begin
+  if not FActivated then
+  begin
+    FActivated := true;
+    AutoSize := false;
+    ClientHeight := GBMessages.Top + GBMessages.Height +
+      GBMessages.BorderSpacing.Around + GBMessages.BorderSpacing.Bottom +
+      ButtonPanel.Height;
+    ClientWidth := GBMessages.Left + GBMessages.Width + GBMessages.BorderSpacing.Around;
+  end;
+end;
 
+function TOptionsForm.GetCB(AIndex : Integer) : TCheckBox;
 begin
   Case AIndex of
     0 : Result:=CBShowOnStartUp;