1
0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-08-04 21:32:54 +02:00

Enable DPI aware setting in Lazarus demos for Windows

Cleanup some useless code in Lazarus demos for Windows
This commit is contained in:
Salvador Díaz Fau
2025-05-20 19:35:57 +02:00
parent 13ce632b49
commit f3ee45910e
228 changed files with 418 additions and 785 deletions

View File

@ -1,31 +1,20 @@
program EditorBrowser;
{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}
{$MODE Delphi}
{$I ..\..\..\source\cef.inc}
uses
{$IFDEF DELPHI16_UP}
Vcl.Forms,
WinApi.Windows,
{$ELSE}
{$IFnDEF FPC}
{$ELSE}
Interfaces,
{$ENDIF}
Forms,
Windows,
{$ENDIF }
Windows,
Interfaces,
uCEFApplication,
uEditorBrowser in 'uEditorBrowser.pas' {Form1};
{.$R *.res}
// CEF3 needs to set the LARGEADDRESSAWARE flag which allows 32-bit processes to use up to 3GB of RAM.
// If you don't add this flag the rederer process will crash when you try to load large images.
{$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}
// CEF needs to set the LARGEADDRESSAWARE ($20) flag which allows 32-bit processes to use up to 3GB of RAM.
{$IFDEF WIN32}{$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}{$ENDIF}
{$R *.res}
@ -35,9 +24,6 @@ begin
if GlobalCEFApp.StartMainProcess then
begin
Application.Initialize;
{$IFDEF DELPHI11_UP}
Application.MainFormOnTaskbar := True;
{$ENDIF}
Application.CreateForm(TForm1, Form1);
Application.Run;
end;

View File

@ -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"/>