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

Update to CEF 81.3.5

Browse Source 
- Added TChromium.IndexOfBrowserID
- Fixed TChromium.GetBrowserById
- Added "Find text..." menu option to the MiniBrowser demo
This commit is contained in:
Salvador Díaz Fau
2020-05-12 11:30:19 +02:00
parent 0befb93f1b
commit dbab922640
15 changed files with 180 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
source/uCEFChromiumCore.pas
View File

@ -604,6 +604,7 @@ type
procedure CloseAllBrowsers;
function TryCloseBrowser : boolean;
function SelectBrowser(aID : integer) : boolean;
function IndexOfBrowserID(aID : integer) : integer;
function ShareRequestContext(var aContext : ICefRequestContext; const aHandler : ICefRequestContextHandler = nil) : boolean;
{$IFDEF MSWINDOWS}
procedure InitializeDragAndDrop(const aDropTargetWnd : HWND);
@ -2380,7 +2381,7 @@ begin
try
FBrowsersCS.Acquire;
if (FBrowsers <> nil) then
Result := FBrowsers.Browser[FBrowserId];
Result := FBrowsers.Browser[aID];
finally
FBrowsersCS.Release;
end;
@ -4772,6 +4773,20 @@ begin
end;
end;
function TChromiumCore.IndexOfBrowserID(aID : integer) : integer;
begin
Result := -1;
try
FBrowsersCS.Acquire;
if (FBrowsers <> nil) then
Result := FBrowsers.SearchBrowser(aID);
finally
FBrowsersCS.Release;
end;
end;
procedure TChromiumCore.SetBrowserIsClosing(aID : integer);
begin
try