Delphi/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2024-11-15 15:55:56 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Call ConnectKeyPressReleaseEvents only once in FMXExternalPumpBrowser2

Browse Source
This commit is contained in:
Salvador Diaz Fau 2021-01-29 16:38:07 +01:00
parent 77a5766367
commit e3fdfe8a45
2 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
demos/Delphi_FMX/FMXExternalPumpBrowser2/uFMXExternalPumpBrowser2.pas
View File

@ -224,17 +224,15 @@ begin
end);
end
else
begin
ConnectKeyPressReleaseEvents(TLinuxWindowHandle(Handle).NativeHandle);
if not(chrmosr.Initialized) then
begin
ConnectKeyPressReleaseEvents(TLinuxWindowHandle(Handle).NativeHandle);
if not(chrmosr.Initialized) then
begin
// opaque white background color
chrmosr.Options.BackgroundColor := CefColorSetARGB($FF, $FF, $FF, $FF);
// opaque white background color
chrmosr.Options.BackgroundColor := CefColorSetARGB($FF, $FF, $FF, $FF);
if not(chrmosr.CreateBrowser) then Timer1.Enabled := True;
end;
end;
if not(chrmosr.CreateBrowser) then Timer1.Enabled := True;
end;
end;
procedure TFMXExternalPumpBrowserFrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

2
update_CEF4Delphi.json
View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [
{
"ForceNotify" : true,
"InternalVersion" : 243,
"InternalVersion" : 244,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "88.1.6.0"
}