pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00
Code Issues Actions Releases Activity

Added TCEFTimerWorkScheduler

Browse Source 
- Moved the GlobalCEFWorkScheduler creation after the GlobalCEFApp creation in all demos using it.
- Replaced TCEFWorkScheduler by TCEFTimerWorkScheduler in FMX demos for Linux and MacOS.
- Fixed context menu issue in FMXExternalPumpBrowser2 for Linux
- Fixed stability issues in FMXExternalPumpBrowser for MacOS
- Fixed 32bit build issues in TinyBrowser and ToolBoxBrowser2 demos.
- Added uCEFMacOSInterfaces and uCEFMacOSCustomCocoaTimer.
This commit is contained in:
Salvador Díaz Fau
2021-06-04 15:10:40 +02:00
parent b14abde967
commit 43ab8ef953
67 changed files with 2517 additions and 1406 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
demos/Delphi_VCL/ToolBoxBrowser2/uMainForm.pas
View File

@ -68,14 +68,14 @@ type
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure CEFWindowComponent1GetPreferredSize(const Sender: TObject; const view: ICefView; var aResult: TCefSize);
procedure CEFWindowComponent1WindowCreated(const Sender: TObject; const window: ICefWindow);
procedure CEFWindowComponent1WindowDestroyed(const Sender: TObject; const window: ICefWindow);
procedure CEFWindowComponent1CanClose(const Sender: TObject; const window: ICefWindow; var aResult: Boolean);
procedure Chromium1TitleChange(Sender: TObject; const browser: ICefBrowser; const title: ustring);
procedure Chromium1BeforePopup(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const targetUrl, targetFrameName: ustring; targetDisposition: TCefWindowOpenDisposition; userGesture: Boolean; const popupFeatures: TCefPopupFeatures; var windowInfo: TCefWindowInfo; var client: ICefClient; var settings: TCefBrowserSettings; var extra_info: ICefDictionaryValue; var noJavascriptAccess, Result: Boolean);
procedure CEFWindowComponent1GetInitialBounds(const Sender: TObject;
const window: ICefWindow; var aResult: TCefRect);
protected
procedure CEFInitializedMsg(var aMessage : TMessage); message CEFBROWSER_INITIALIZED;
@ -168,10 +168,12 @@ begin
aResult := Chromium1.TryCloseBrowser;
end;
procedure TMainForm.CEFWindowComponent1GetPreferredSize(const Sender: TObject;
const view: ICefView; var aResult: TCefSize);
procedure TMainForm.CEFWindowComponent1GetInitialBounds(
const Sender: TObject; const window: ICefWindow; var aResult: TCefRect);
begin
// This is the initial window size
aResult.x := 0;
aResult.y := 0;
aResult.width := DEFAULT_WINDOW_VIEW_WIDTH;
aResult.height := DEFAULT_WINDOW_VIEW_HEIGHT;
end;
@ -185,7 +187,9 @@ var
TempDisplay : ICefDisplay;
begin
TempURL := trim(Edit1.Text);
if (length(TempURL) = 0) then TempURL := 'about:blank';
if (length(TempURL) = 0) then
TempURL := 'about:blank';
// This event is executed in the CEF UI thread and we can call all these other
// functions on this thread. In fact, all of these functions only work when