pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-12-03 21:44:45 +02:00
Code Issues Actions Releases Activity

Added the PopupBrowser2 demo for Linux

Browse Source 
Set the CEFLinkedWindowParent1.TabStop to true to fix a focus issue
Moved TCEFLinkedWindowParent.UpdateSize to the public section
This commit is contained in:
Salvador Diaz Fau
2021-01-04 18:39:15 +01:00
parent 187a4d825c
commit bef1626f31
16 changed files with 1952 additions and 212 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
demos/Lazarus_Linux/TabbedBrowser2/uBrowserFrame.pas
View File

@@ -309,18 +309,29 @@ begin
SendCompMessage(CEF_AFTERCREATED);
end;
// This is a workaround for the CEF issue #2026
// https://bitbucket.org/chromiumembedded/cef/issues/2026/multiple-major-keyboard-focus-issues-on
// We use CEFLinkedWindowParent1.OnEnter, CEFLinkedWindowParent1.OnExit and
// TChromium.OnGotFocus to avoid most of the focus issues.
// CEFLinkedWindowParent1.TabStop must be TRUE.
procedure TBrowserFrame.CEFLinkedWindowParent1Exit(Sender: TObject);
begin
if not(csDesigning in ComponentState) then
Chromium1.SendCaptureLostEvent;
end;
procedure TBrowserFrame.CEFLinkedWindowParent1Enter(Sender: TObject);
begin
if not(csDesigning in ComponentState) and
Chromium1.Initialized and
not(Chromium1.FrameIsFocused) then
Chromium1.SendFocusEvent(True);
end;
end;
procedure TBrowserFrame.CEFLinkedWindowParent1Exit(Sender: TObject);
procedure TBrowserFrame.Chromium1GotFocus(Sender: TObject;
const browser: ICefBrowser);
begin
if not(csDesigning in ComponentState) then
Chromium1.SendCaptureLostEvent;
CEFLinkedWindowParent1.SetFocus;
end;
procedure TBrowserFrame.BackBtnClick(Sender: TObject);
@@ -360,12 +371,6 @@ begin
aAction := cbaClose;
end;
procedure TBrowserFrame.Chromium1GotFocus(Sender: TObject;
const browser: ICefBrowser);
begin
CEFLinkedWindowParent1.SetFocus;
end;
procedure TBrowserFrame.Chromium1LoadError(Sender: TObject;
const browser: ICefBrowser; const frame: ICefFrame; errorCode: Integer;
const errorText, failedUrl: ustring);
@@ -431,7 +436,8 @@ var
begin
TempURL := BrowserAddress;
if (URLCbx.Items.IndexOf(TempURL) < 0) then URLCbx.Items.Add(TempURL);
if (URLCbx.Items.IndexOf(TempURL) < 0) then
URLCbx.Items.Add(TempURL);
URLCbx.Text := TempURL;
end;