diff --git a/demos/Delphi_FMX/FMXExternalPumpBrowser2/uFMXExternalPumpBrowser2.pas b/demos/Delphi_FMX/FMXExternalPumpBrowser2/uFMXExternalPumpBrowser2.pas index c6e28d0f..9d50fddc 100644 --- a/demos/Delphi_FMX/FMXExternalPumpBrowser2/uFMXExternalPumpBrowser2.pas +++ b/demos/Delphi_FMX/FMXExternalPumpBrowser2/uFMXExternalPumpBrowser2.pas @@ -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); diff --git a/update_CEF4Delphi.json b/update_CEF4Delphi.json index 633708b7..8aa897da 100644 --- a/update_CEF4Delphi.json +++ b/update_CEF4Delphi.json @@ -2,7 +2,7 @@ "UpdateLazPackages" : [ { "ForceNotify" : true, - "InternalVersion" : 243, + "InternalVersion" : 244, "Name" : "cef4delphi_lazarus.lpk", "Version" : "88.1.6.0" }