You've already forked CEF4Delphi
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:
@ -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"/>
|
||||
|
@ -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}
|
||||
|
||||
|
Binary file not shown.
@ -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
|
||||
|
@ -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;
|
||||
|
Reference in New Issue
Block a user