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

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

View File

@ -3,15 +3,15 @@ program SchemeRegistrationBrowser;
{$I ..\..\..\source\cef.inc}
uses
Forms, Interfaces,
Forms,
Interfaces,
Windows,
uCEFApplication,
uSchemeRegistrationBrowser in 'uSchemeRegistrationBrowser.pas' {SchemeRegistrationBrowserFrm},
uHelloScheme in 'uHelloScheme.pas';
//{$R *.res}
{$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}

View File

@ -5,12 +5,12 @@ program SchemeRegistrationBrowser_sp;
{$I ..\..\..\source\cef.inc}
uses
LCLIntf, LCLType, LMessages, Forms, Interfaces,
Forms,
Interfaces,
uCEFApplicationCore, uCEFConstants, uCEFSchemeRegistrar;
// CEF3 needs to set the LARGEADDRESSAWARE flag which allows 32-bit processes
// to use up to 3GB of RAM.
{$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}
// It's necessary to register the custom scheme in all CEF subprocesses
procedure GlobalCEFApp_OnRegCustomSchemes(const registrar: TCefSchemeRegistrarRef);

View File

@ -10,10 +10,11 @@ object SchemeRegistrationBrowserFrm: TSchemeRegistrationBrowserFrm
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Position = poScreenCenter
LCLVersion = '4.0.0.4'
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
object AddressBarPnl: TPanel
Left = 0
Height = 21

View File

@ -8,14 +8,8 @@ unit uSchemeRegistrationBrowser;
interface
uses
{$IFDEF DELPHI16_UP}
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Menus,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, System.Types, Vcl.ComCtrls, Vcl.ClipBrd,
System.UITypes,
{$ELSE}
Windows, Messages, SysUtils, Variants, Classes, Graphics, Menus,
Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Types, ComCtrls, ClipBrd,
{$ENDIF}
uCEFChromium, uCEFWindowParent, uCEFInterfaces, uCEFApplication, uCEFSchemeRegistrar,
uCEFTypes, uCEFConstants, uCEFWinControl, uCEFChromiumEvents;