Delphi/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2024-11-16 00:05:55 +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

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

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

2
update_CEF4Delphi.json
View File

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