Call ConnectKeyPressReleaseEvents only once in FMXExternalPumpBrowser2

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

View File

@ -224,18 +224,16 @@ begin
end);
end
else
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);
if not(chrmosr.CreateBrowser) then Timer1.Enabled := True;
end;
end;
end;
procedure TFMXExternalPumpBrowserFrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin

View File

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