pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions 1 Releases Activity

Fixed issue #415 : TChromiumCore.Initialized remains False in some popup windows

Browse Source 
Added the TabbedOSRBrowser demo
This commit is contained in:
salvadordf
2022-04-30 19:01:45 +02:00
parent 7de8912d31
commit 455a75c849
13 changed files with 5062 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
source/uCEFChromiumCore.pas
View File

@@ -2203,9 +2203,13 @@ var
TempURL : TCefString;
TempBrowser : ICefBrowser;
begin
TempURL := CefString(aURL);
TempBrowser := TCefBrowserRef.UnWrap(cef_browser_host_create_browser_sync(aWindowInfo, FHandler.Wrap, @TempURL, aSettings, CefGetData(aExtraInfo), CefGetData(aContext)));
Result := AddBrowser(TempBrowser);
try
TempURL := CefString(aURL);
TempBrowser := TCefBrowserRef.UnWrap(cef_browser_host_create_browser_sync(aWindowInfo, FHandler.Wrap, @TempURL, aSettings, CefGetData(aExtraInfo), CefGetData(aContext)));
Result := assigned(TempBrowser);
finally
TempBrowser := nil;
end;
end;
procedure TChromiumCore.Find(const aSearchText : ustring; aForward, aMatchCase, aFindNext : Boolean);
@@ -5122,9 +5126,7 @@ begin
try
FBrowsersCS.Acquire;
if (FBrowsers <> nil) and
(FMultiBrowserMode or (FBrowsers.Count = 0)) and
FBrowsers.AddBrowser(aBrowser) then
if (FBrowsers <> nil) and FBrowsers.AddBrowser(aBrowser) then
begin
Result := True;
@@ -5234,9 +5236,7 @@ end;
procedure TChromiumCore.doOnAfterCreated(const browser: ICefBrowser);
begin
if MultithreadApp or MultiBrowserMode or GlobalCEFApp.ChromeRuntime then
AddBrowser(browser);
AddBrowser(browser);
doUpdatePreferences(browser);
if (FMediaObserver <> nil) and (FMediaObserverReg = nil) then