pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions Releases Activity

Update to CEF 80.0.4

Browse Source 
- Added GlobalCEFApp.DisableNewBrowserInfoTimeout property
- Removed remaining TCEFSentinel from all the demos.
- Fixed mouse coordinates in FMX demos with OSR browsers before sending a mouse wheel event.
This commit is contained in:
Salvador Díaz Fau
2020-02-26 13:28:29 +01:00
parent a20752eb53
commit feaeb772cb
149 changed files with 7651 additions and 929 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
demos/Delphi_FMX/FMXTabbedOSRBrowser/uBrowserFrame.pas
View File

@@ -497,12 +497,17 @@ procedure TBrowserFrame.FMXBufferPanel1MouseWheel(Sender: TObject;
Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean);
var
TempEvent : TCefMouseEvent;
TempPoint : TPoint;
TempPointF : TPointF;
begin
if FMXBufferPanel1.IsFocused and GetMousePosition(TempPointF) then
begin
TempEvent.x := round(TempPointF.x);
TempEvent.y := round(TempPointF.y);
TempPoint.x := round(TempPointF.x);
TempPoint.y := round(TempPointF.y);
TempPoint := FMXBufferPanel1.ScreenToClient(TempPoint);
TempEvent.x := TempPoint.x;
TempEvent.y := TempPoint.y;
TempEvent.modifiers := getModifiers(Shift);
FMXChromium1.SendMouseWheelEvent(@TempEvent, 0, WheelDelta);
end;
@@ -929,7 +934,7 @@ end;
procedure TBrowserFrame.InitializeLastClick;
begin
FLastClickCount := 0;
FLastClickCount := 1;
FLastClickTime := 0;
FLastClickPoint.x := 0;
FLastClickPoint.y := 0;