2021-02-17 04:58:49 +01:00
|
|
|
(*
|
|
|
|
* Include the following files
|
|
|
|
* BrowserWindow.app/Contents/Frameworks/ExternalPumpBrowser Helper.app/
|
|
|
|
* files from the demos/Lazarus_Mac/AppHelper project
|
|
|
|
* use create_mac_helper.sh
|
|
|
|
*
|
|
|
|
* BrowserWindow.app/Contents/Frameworks/Chromium Embedded Framework.framework
|
|
|
|
* files from Release folder in cef download
|
|
|
|
*
|
|
|
|
*)
|
|
|
|
|
|
|
|
|
|
|
|
program BrowserWindow;
|
|
|
|
|
|
|
|
{$mode objfpc}{$H+}
|
2023-11-27 18:21:07 +01:00
|
|
|
{$IFDEF MSWINDOWS}{$I ..\..\..\source\cef.inc}{$ELSE}{$I ../../../source/cef.inc}{$ENDIF}
|
2021-02-17 04:58:49 +01:00
|
|
|
|
|
|
|
uses
|
|
|
|
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
|
|
|
cthreads,
|
|
|
|
{$ENDIF}{$ENDIF}
|
|
|
|
{$IFDEF LINUX}
|
|
|
|
InitSubProcess, // On Linux this unit must be used *before* the "interfaces" unit.
|
|
|
|
{$ENDIF}
|
|
|
|
Interfaces,
|
|
|
|
Forms,
|
|
|
|
uBrowserWindow, GlobalCefApplication
|
|
|
|
{ you can add units after this }
|
|
|
|
;
|
|
|
|
|
|
|
|
{$R *.res}
|
|
|
|
|
|
|
|
{$IFDEF WIN32}
|
|
|
|
// CEF needs to set the LARGEADDRESSAWARE ($20) flag which allows 32-bit processes to use up to 3GB of RAM.
|
|
|
|
{$SetPEFlags $20}
|
|
|
|
{$ENDIF}
|
|
|
|
|
|
|
|
begin
|
|
|
|
RequireDerivedFormResource:=True;
|
2024-05-02 12:31:19 +02:00
|
|
|
Application.Scaled:=True;
|
2021-02-17 04:58:49 +01:00
|
|
|
Application.Initialize;
|
|
|
|
Application.CreateForm(TForm1, Form1);
|
|
|
|
Application.Run;
|
|
|
|
end.
|
|
|
|
|