1
0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-07-12 22:30:17 +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,20 +3,14 @@ program ToolBoxBrowser2;
{$MODE Delphi}
uses
{$IFDEF DELPHI16_UP}
Vcl.Forms,
WinApi.Windows,
{$ELSE}
Windows,
Forms,
LCLIntf, LCLType, LMessages, Interfaces,
{$ENDIF }
uCEFApplication,
uMainForm in 'uMainForm.pas' {MainForm};
{.$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 $20}{$ENDIF}
{$R *.res}

View File

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

View File

@ -5,13 +5,8 @@ unit uMainForm;
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, Vcl.ComCtrls,
{$ELSE}
LCLIntf, LCLType, LMessages, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls,
{$ENDIF}
uCEFInterfaces, uCEFTypes, uCEFConstants, uCEFViewComponent,
uCEFPanelComponent, uCEFWindowComponent,
uCEFBrowserViewComponent, uCEFChromiumCore, uCEFChromium, uCEFViewsFrameworkEvents;