pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-08-04 21:32:54 +02:00
Code Issues Actions Releases Activity

Update to CEF 91.1.17

Browse Source 
Remove unnecessary workarounds in the FMX demo for MacOS
This commit is contained in:
Salvador Díaz Fau
2021-06-16 10:31:12 +02:00
parent 3228738e3a
commit c5b989588e
5 changed files with 15 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
demos/Delphi_FMX_Mac/FMXExternalPumpBrowser/uFMXExternalPumpBrowser.pas
View File

@ -324,7 +324,9 @@ procedure TFMXExternalPumpBrowserFrm.FormCreate(Sender: TObject);
begin
TFMXApplicationService.AddPlatformService;
GlobalCEFTimerWorkScheduler.OnAllowDoWork := GlobalCEFTimerWorkScheduler_OnAllowDoWork;
// Enable this code line in case there's an unexpected crash when
// cef_do_message_loop_work is called.
//GlobalCEFTimerWorkScheduler.OnAllowDoWork := GlobalCEFTimerWorkScheduler_OnAllowDoWork;
FPopUpBitmap := nil;
FPopUpRect := rect(0, 0, 0, 0);
@ -554,25 +556,10 @@ var
begin
if not(ssTouch in Shift) then
begin
Panel1.SetFocus;
TempEvent.x := round(X);
TempEvent.y := round(Y);
TempEvent.modifiers := getModifiers(Button, Shift);
if (Button = TMouseButton.mbRight) then
begin
// We set the focus in another control as a workaround to show the context
// menu when we click the right mouse button.
GoBtn.SetFocus;
// We move the event point slightly so the mouse is over the context menu
TempEvent.x := TempEvent.x - 5;
TempEvent.y := TempEvent.y - 5;
end
else
Panel1.SetFocus;
if (ssDouble in Shift) then
TempCount := 2
else