pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-10-30 23:07:52 +02:00
Code Issues Actions 1 Releases Activity

uCEFApplicationCore is a VCL-free implementation (no Controls/Forms units, no Application object).

Browse Source 
The old uCEFApplication.pas is renamed to uCEFApplicationCore.pas and a new uCEFApplication.pas is created that only contains the Controls/Forms unit related code and is backward compatible to existing code.

This allows the creation of a SubProcess executable that doesn't initialize the VCL with all its problems (GlobalAtom leak in Delphi 6-XE, Application.Handle, OleInitialize and other unnecessary init-code).

ujCEFMiscFunctions.GefCursorToWindowsCursor is renamed to >>C<<efCursorToWindowsCursor and moved to uCEFApplication.pas to prevent the inclusion of the Controls unit in Delphi 7-XE.
This commit is contained in:
Andreas Hausladen
2019-11-08 23:15:53 +01:00
parent 473170529e
commit 4cdb8207c6
34 changed files with 2848 additions and 2681 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
demos/Delphi_VCL/ConsoleBrowser/uWebBrowser.pas
View File

@@ -307,7 +307,7 @@ procedure TWebBrowserFrm.chrmosrCursorChange( Sender : TObject;
cursorType : TCefCursorType;
const customCursorInfo : PCefCursorInfo);
begin
Panel1.Cursor := GefCursorToWindowsCursor(cursorType);
Panel1.Cursor := CefCursorToWindowsCursor(cursorType);
end;
procedure TWebBrowserFrm.chrmosrGetScreenInfo( Sender : TObject;

2
demos/Delphi_VCL/KioskOSRBrowser/uKioskOSRBrowser.pas
View File

@@ -365,7 +365,7 @@ procedure TForm1.chrmosrCursorChange( Sender : TObject;
cursorType : TCefCursorType;
const customCursorInfo : PCefCursorInfo);
begin
Panel1.Cursor := GefCursorToWindowsCursor(cursorType);
Panel1.Cursor := CefCursorToWindowsCursor(cursorType);
end;
procedure TForm1.chrmosrGetScreenInfo( Sender : TObject;

2
demos/Delphi_VCL/OSRExternalPumpBrowser/uOSRExternalPumpBrowser.pas
View File

@@ -358,7 +358,7 @@ procedure TOSRExternalPumpBrowserFrm.chrmosrCursorChange(Sender : TObject;
cursorType : TCefCursorType;
const customCursorInfo : PCefCursorInfo);
begin
Panel1.Cursor := GefCursorToWindowsCursor(cursorType);
Panel1.Cursor := CefCursorToWindowsCursor(cursorType);
end;
procedure TOSRExternalPumpBrowserFrm.chrmosrGetScreenInfo(Sender : TObject;

2
demos/Delphi_VCL/PopupBrowser/uChildForm.pas
View File

@@ -360,7 +360,7 @@ procedure TChildForm.Chromium1CursorChange(Sender : TObject;
cursorType : TCefCursorType;
const customCursorInfo : PCefCursorInfo);
begin
Panel1.Cursor := GefCursorToWindowsCursor(cursorType);
Panel1.Cursor := CefCursorToWindowsCursor(cursorType);
end;
procedure TChildForm.Chromium1GetScreenInfo(Sender : TObject;

2
demos/Delphi_VCL/SimpleOSRBrowser/uSimpleOSRBrowser.pas
View File

@@ -358,7 +358,7 @@ procedure TForm1.chrmosrCursorChange(Sender : TObject;
cursorType : TCefCursorType;
const customCursorInfo : PCefCursorInfo);
begin
Panel1.Cursor := GefCursorToWindowsCursor(cursorType);
Panel1.Cursor := CefCursorToWindowsCursor(cursorType);
end;
procedure TForm1.chrmosrGetScreenInfo(Sender : TObject;

4
demos/Delphi_VCL/SubProcess/SubProcess.dpr
View File

@@ -45,14 +45,14 @@ uses
{$ELSE}
Windows,
{$ENDIF}
uCEFApplication;
uCEFApplicationCore;
// CEF3 needs to set the LARGEADDRESSAWARE flag which allows 32-bit processes
// to use up to 3GB of RAM.
{$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp := TCefApplicationCore.Create;
// The main process and the subprocess *MUST* have the same GlobalCEFApp
// properties and events, specially FrameworkDirPath, ResourcesDirPath,