Enable DPI aware setting in Lazarus demos for Windows

Cleanup some useless code in Lazarus demos for Windows

demos/Lazarus_Windows/ToolBoxBrowser/ToolBoxBrowser.lpi

@@ -16,6 +16,9 @@
       <UseAppBundle Value="False"/>
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>
+      <XPManifest>
+        <DpiAware Value="True/PM_V2"/>
+      </XPManifest>
     </General>
     <BuildModes Count="1">
       <Item1 Name="Default" Default="True"/>

demos/Lazarus_Windows/ToolBoxBrowser/ToolBoxBrowser.lpr

@@ -5,20 +5,14 @@ program ToolBoxBrowser;
 {$I ..\..\..\source\cef.inc}
 
 uses
-  {$IFDEF DELPHI16_UP}
-  Vcl.Forms,
-  WinApi.Windows,
-  {$ELSE}
   Forms,
   LCLIntf, LCLType, LMessages, Interfaces,
-  {$ENDIF }
   uCEFApplication,
   uMainForm in 'uMainForm.pas' {MainForm},
   uChildForm in 'uChildForm.pas' {ChildForm};
 
-{.$R *.RES}
-
-{$SetPEFlags $20}
+// CEF needs to set the LARGEADDRESSAWARE ($20) flag which allows 32-bit processes to use up to 3GB of RAM.
+{$IFDEF WIN32}{$SetPEFlags $20}{$ENDIF}
 
 {$R *.res}
 

demos/Lazarus_Windows/ToolBoxBrowser/uChildForm.lfm

@@ -11,13 +11,14 @@ object ChildForm: TChildForm
   Font.Color = clWindowText
   Font.Height = -11
   Font.Name = 'Tahoma'
+  Position = poScreenCenter
+  ShowInTaskBar = stAlways
+  LCLVersion = '4.0.0.4'
   OnClose = FormClose
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnShow = FormShow
-  Position = poScreenCenter
-  ShowInTaskBar = stAlways
   object CEFWindowParent1: TCEFWindowParent
     Left = 0
     Height = 394

demos/Lazarus_Windows/ToolBoxBrowser/uChildForm.pas

@@ -7,14 +7,8 @@
 interface
 
 uses
-  {$IFDEF DELPHI16_UP}
-  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
-  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls,
-  System.UITypes,
-  {$ELSE}
   LCLIntf, LCLType, LMessages, Messages, SysUtils, Variants, Classes, Graphics,
   Controls, Forms, Dialogs, ExtCtrls,
-  {$ENDIF}
   uCEFChromium, uCEFWindowParent, uCEFInterfaces, uCEFConstants, uCEFTypes, uMainForm,
   uCEFWinControl;
 

demos/Lazarus_Windows/ToolBoxBrowser/uMainForm.lfm

@@ -12,10 +12,10 @@ object MainForm: TMainForm
   Font.Color = clWindowText
   Font.Height = -11
   Font.Name = 'Tahoma'
+  Position = poScreenCenter
+  LCLVersion = '4.0.0.4'
   OnCreate = FormCreate
   OnShow = FormShow
-  Position = poScreenCenter
-  LCLVersion = '2.0.6.0'
   object ButtonPnl: TPanel
     Left = 0
     Height = 37
@@ -26,6 +26,7 @@ object MainForm: TMainForm
     ClientHeight = 37
     ClientWidth = 357
     Enabled = False
+    ParentBackground = False
     TabOrder = 0
     object Edit1: TEdit
       Left = 8
@@ -41,8 +42,8 @@ object MainForm: TMainForm
       Top = 6
       Width = 51
       Caption = 'Open'
-      OnClick = Button1Click
       TabOrder = 1
+      OnClick = Button1Click
     end
   end
 end

demos/Lazarus_Windows/ToolBoxBrowser/uMainForm.pas

@@ -7,13 +7,8 @@
 interface
 
 uses
-  {$IFDEF DELPHI16_UP}
-  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
-  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
-  {$ELSE}
   LCLIntf, LCLType, LMessages, Messages, SysUtils, Variants, Classes, Graphics,
   Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
-  {$ENDIF}
 
 const
   CEFBROWSER_CREATED          = WM_APP + $100;