Added SimpleOSRBrowser for QT5

2025-09-30 21:28:55 +02:00 · 2025-09-21 12:31:09 +02:00
parent de7dbe1359
commit f893242ad0
9 changed files with 1187 additions and 1 deletions
--- a/demos/Lazarus_Linux_QT5/SimpleOSRBrowser/00-Delete.bat
+++ b/demos/Lazarus_Linux_QT5/SimpleOSRBrowser/00-Delete.bat
@@ -0,0 +1,2 @@
+rmdir /S /Q lib
+rmdir /S /Q backup
--- a/demos/Lazarus_Linux_QT5/SimpleOSRBrowser/SimpleOSRBrowser.ico
+++ b/demos/Lazarus_Linux_QT5/SimpleOSRBrowser/SimpleOSRBrowser.ico
--- a/demos/Lazarus_Linux_QT5/SimpleOSRBrowser/SimpleOSRBrowser.lpi
+++ b/demos/Lazarus_Linux_QT5/SimpleOSRBrowser/SimpleOSRBrowser.lpi
@@ -0,0 +1,98 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+  <ProjectOptions>
+    <Version Value="12"/>
+    <General>
+      <SessionStorage Value="InProjectDir"/>
+      <Title Value="SimpleOSRBrowser"/>
+      <Scaled Value="True"/>
+      <ResourceType Value="res"/>
+      <UseXPManifest Value="True"/>
+      <XPManifest>
+        <DpiAware Value="True"/>
+      </XPManifest>
+      <Icon Value="0"/>
+    </General>
+    <MacroValues Count="1">
+      <Macro2 Name="LCLWidgetType" Value="qt5"/>
+    </MacroValues>
+    <BuildModes>
+      <Item Name="Default" Default="True"/>
+      <SharedMatrixOptions Count="1">
+        <Item1 ID="279237770443" Modes="Default" Type="IDEMacro" MacroName="LCLWidgetType" Value="qt5"/>
+      </SharedMatrixOptions>
+    </BuildModes>
+    <PublishOptions>
+      <Version Value="2"/>
+      <UseFileFilters Value="True"/>
+    </PublishOptions>
+    <RunParams>
+      <FormatVersion Value="2"/>
+    </RunParams>
+    <RequiredPackages>
+      <Item>
+        <PackageName Value="CEF4Delphi_Lazarus"/>
+      </Item>
+      <Item>
+        <PackageName Value="LCL"/>
+      </Item>
+    </RequiredPackages>
+    <Units>
+      <Unit>
+        <Filename Value="SimpleOSRBrowser.lpr"/>
+        <IsPartOfProject Value="True"/>
+      </Unit>
+      <Unit>
+        <Filename Value="umainform.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="MainForm"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+        <UnitName Value="uMainForm"/>
+      </Unit>
+      <Unit>
+        <Filename Value="interfaces.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit>
+    </Units>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="11"/>
+    <Target>
+      <Filename Value="../../../bin/SimpleOSRBrowserQT"/>
+    </Target>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)"/>
+      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
+    </SearchPaths>
+    <Linking>
+      <Debugging>
+        <DebugInfoType Value="dsDwarf3"/>
+      </Debugging>
+      <Options>
+        <Win32>
+          <GraphicApplication Value="True"/>
+        </Win32>
+      </Options>
+    </Linking>
+    <Other>
+      <CompilerMessages>
+        <IgnoredMessages idx5024="True"/>
+      </CompilerMessages>
+      <CustomOptions Value="-dUseCThreads"/>
+    </Other>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions>
+      <Item>
+        <Name Value="EAbort"/>
+      </Item>
+      <Item>
+        <Name Value="ECodetoolError"/>
+      </Item>
+      <Item>
+        <Name Value="EFOpenError"/>
+      </Item>
+    </Exceptions>
+  </Debugging>
+</CONFIG>
--- a/demos/Lazarus_Linux_QT5/SimpleOSRBrowser/SimpleOSRBrowser.lpr
+++ b/demos/Lazarus_Linux_QT5/SimpleOSRBrowser/SimpleOSRBrowser.lpr
@@ -0,0 +1,42 @@
+program SimpleOSRBrowser;
+
+{$mode objfpc}{$H+}
+
+uses
+  {$IFDEF UNIX}
+  cthreads,
+  {$ENDIF}
+  {$IFDEF HASAMIGA}
+  athreads,
+  {$ENDIF}
+  Interfaces, // this includes the LCL widgetset
+  Forms, uMainForm
+  { you can add units after this },
+  uCEFApplication;
+
+{$R *.res}
+
+begin            
+  CreateGlobalCEFApp;
+
+  if StartMainProcess then
+    begin
+      // The LCL Widgetset must be initialized after the CEF initialization and
+      // only in the browser process.
+      CustomWidgetSetInitialization;
+
+      RequireDerivedFormResource:=True;
+  Application.Scaled:=True;
+      {$PUSH}{$WARN 5044 OFF}
+      Application.MainFormOnTaskbar:=True;
+      {$POP}
+      Application.Initialize;
+      Application.CreateForm(TMainForm, MainForm);
+      Application.Run;
+
+      CustomWidgetSetFinalization;
+    end;
+
+  DestroyGlobalCEFApp;
+end.
+
--- a/demos/Lazarus_Linux_QT5/SimpleOSRBrowser/SimpleOSRBrowser.res
+++ b/demos/Lazarus_Linux_QT5/SimpleOSRBrowser/SimpleOSRBrowser.res
--- a/demos/Lazarus_Linux_QT5/SimpleOSRBrowser/interfaces.pas
+++ b/demos/Lazarus_Linux_QT5/SimpleOSRBrowser/interfaces.pas
@@ -0,0 +1,66 @@
+{
+ /***************************************************************************
+                         Interfaces.pp  -  determines what interface to use
+                             -------------------
+
+                   Initial Revision  : Thu July 1st CST 1999
+
+
+ ***************************************************************************/
+
+ *****************************************************************************
+  This file is part of the Lazarus Component Library (LCL)
+
+  See the file COPYING.modifiedLGPL.txt, included in this distribution,
+  for details about the license.
+ *****************************************************************************
+}
+
+unit interfaces;
+
+{$mode objfpc}
+{$H+}
+
+interface
+
+uses
+  {$IFDEF UNIX}{$IFNDEF DisableCWString}cwstring,{$ENDIF}{$ENDIF}
+  InterfaceBase;
+
+procedure CustomWidgetSetInitialization;
+procedure CustomWidgetSetFinalization;
+
+implementation
+
+uses
+  qtint, Forms, xlib;
+
+function CustomX11ErrorHandler(Display:PDisplay; ErrorEv:PXErrorEvent):longint;cdecl;
+begin
+  {$IFDEF DEBUG}
+  XError := ErrorEv^.error_code;
+  WriteLn('Error: ' + IntToStr(XError));
+  {$ENDIF}
+  Result := 0;
+end;
+
+function CustomXIOErrorHandler(Display:PDisplay):longint;cdecl;
+begin
+  Result := 0;
+end;
+
+procedure CustomWidgetSetInitialization;
+begin
+  CreateWidgetset(TQtWidgetSet);
+  // Install xlib error handlers so that the application won't be terminated
+  // on non-fatal errors. Must be done after initializing QT.
+  XSetErrorHandler(@CustomX11ErrorHandler);
+  XSetIOErrorHandler(@CustomXIOErrorHandler);
+end;
+
+procedure CustomWidgetSetFinalization;
+begin
+  FreeWidgetSet;
+end;
+
+end.
--- a/demos/Lazarus_Linux_QT5/SimpleOSRBrowser/umainform.lfm
+++ b/demos/Lazarus_Linux_QT5/SimpleOSRBrowser/umainform.lfm
@@ -0,0 +1,145 @@
+object MainForm: TMainForm
+  Left = 393
+  Height = 768
+  Top = 250
+  Width = 1024
+  Caption = 'SimpleOSRBrowser. Initializing...'
+  ClientHeight = 768
+  ClientWidth = 1024
+  KeyPreview = True
+  Position = poScreenCenter
+  LCLVersion = '4.2.0.0'
+  OnActivate = FormActivate
+  OnCloseQuery = FormCloseQuery
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnHide = FormHide
+  OnShow = FormShow
+  OnWindowStateChange = FormWindowStateChange
+  object AddressPnl: TPanel
+    Left = 0
+    Height = 26
+    Top = 0
+    Width = 1024
+    Align = alTop
+    BevelOuter = bvNone
+    ClientHeight = 26
+    ClientWidth = 1024
+    TabOrder = 0
+    object AddressCb: TComboBox
+      Left = 0
+      Height = 26
+      Top = 0
+      Width = 965
+      Align = alClient
+      ItemHeight = 0
+      ItemIndex = 0
+      Items.Strings = (
+        'https://www.google.com'
+        'https://www.bing.com'
+        'https://duckduckgo.com'
+        'https://www.qwant.com'
+        'https://yandex.com'
+        'https://www.startpage.com'
+        'https://www.ecosia.org'
+        'https://www.baidu.com'
+        'https://www.whatismybrowser.com/detect/what-http-headers-is-my-browser-sending'
+        'https://www.w3schools.com/js/tryit.asp?filename=tryjs_win_close'
+        'https://www.w3schools.com/js/tryit.asp?filename=tryjs_alert'
+        'https://www.w3schools.com/js/tryit.asp?filename=tryjs_loc_assign'
+        'https://www.w3schools.com/jsref/tryit.asp?filename=tryjsref_style_backgroundcolor'
+        'https://www.w3schools.com/Tags/tryit.asp?filename=tryhtml_iframe_name'
+        'https://www.w3schools.com/tags/tryit.asp?filename=tryhtml5_input_type_file'
+        'https://www.w3schools.com/jsref/tryit.asp?filename=tryjsref_state_throw_error'
+        'https://www.htmlquick.com/es/reference/tags/input-file.html'
+        'https://developer.mozilla.org/en-US/docs/Web/HTML/Element/input/file'
+        'https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement/webkitdirectory'
+        'https://www.w3schools.com/html/html5_video.asp'
+        'http://html5test.com/'
+        'https://webrtc.github.io/samples/src/content/devices/input-output/'
+        'https://test.webrtc.org/'
+        'https://www.browserleaks.com/webrtc'
+        'https://shaka-player-demo.appspot.com/demo/'
+        'http://webglsamples.org/'
+        'https://get.webgl.org/'
+        'https://www.briskbard.com'
+        'https://www.youtube.com'
+        'https://html5demos.com/drag/'
+        'https://frames-per-second.appspot.com/'
+        'https://www.sede.fnmt.gob.es/certificados/persona-fisica/verificar-estado'
+        'https://www.kirupa.com/html5/accessing_your_webcam_in_html5.htm'
+        'https://www.xdumaine.com/enumerateDevices/test/'
+        'https://dagrs.berkeley.edu/sites/default/files/2020-01/sample.pdf'
+        'https://codepen.io/udaymanvar/pen/MWaePBY'
+        'https://developer.mozilla.org/en-US/docs/Web/HTML/Attributes/accept'
+        'chrome://version/'
+        'chrome://net-internals/'
+        'chrome://tracing/'
+        'chrome://appcache-internals/'
+        'chrome://blob-internals/'
+        'chrome://view-http-cache/'
+        'chrome://credits/'
+        'chrome://histograms/'
+        'chrome://media-internals/'
+        'chrome://kill'
+        'chrome://crash'
+        'chrome://hang'
+        'chrome://shorthang'
+        'chrome://gpuclean'
+        'chrome://gpucrash'
+        'chrome://gpuhang'
+        'chrome://extensions-support'
+        'chrome://process-internals'
+      )
+      TabOrder = 0
+      Text = 'https://www.google.com'
+      OnEnter = AddressCbEnter
+    end
+    object GoBtn: TButton
+      Left = 965
+      Height = 26
+      Top = 0
+      Width = 59
+      Align = alRight
+      Caption = 'Go'
+      TabOrder = 1
+      OnClick = GoBtnClick
+      OnEnter = GoBtnEnter
+    end
+  end
+  object Panel1: TBufferPanel
+    Left = 0
+    Height = 742
+    Top = 26
+    Width = 1024
+    Align = alClient
+    TabOrder = 1
+    TabStop = True
+    OnEnter = Panel1Enter
+    OnExit = Panel1Exit
+    OnMouseDown = Panel1MouseDown
+    OnMouseMove = Panel1MouseMove
+    OnMouseUp = Panel1MouseUp
+    OnMouseWheel = Panel1MouseWheel
+    OnResize = Panel1Resize
+    OnMouseEnter = Panel1MouseEnter
+    OnMouseLeave = Panel1MouseLeave
+  end
+  object Chromium1: TChromium
+    OnSetFocus = Chromium1SetFocus
+    OnTooltip = Chromium1Tooltip
+    OnCursorChange = Chromium1CursorChange
+    OnBeforePopup = Chromium1BeforePopup
+    OnAfterCreated = Chromium1AfterCreated
+    OnBeforeClose = Chromium1BeforeClose
+    OnOpenUrlFromTab = Chromium1OpenUrlFromTab
+    OnGetViewRect = Chromium1GetViewRect
+    OnGetScreenPoint = Chromium1GetScreenPoint
+    OnGetScreenInfo = Chromium1GetScreenInfo
+    OnPopupShow = Chromium1PopupShow
+    OnPopupSize = Chromium1PopupSize
+    OnPaint = Chromium1Paint
+    Left = 101
+    Top = 109
+  end
+end
--- a/demos/Lazarus_Linux_QT5/SimpleOSRBrowser/umainform.pas
+++ b/demos/Lazarus_Linux_QT5/SimpleOSRBrowser/umainform.pas
@@ -0,0 +1,833 @@
+unit uMainForm;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls,
+  LMessages, StdCtrls, LCLType, ComCtrls, Types, SyncObjs, 
+  {$IFDEF LCLQT}qt4,{$ENDIF}
+  {$IFDEF LCLQT5}qt5,{$ENDIF}
+  {$IFDEF LCLQT6}qt6,{$ENDIF}
+  uCEFBufferPanel, uCEFChromium, uCEFInterfaces, uCEFTypes;
+
+type
+
+  { TMainForm }
+
+  TMainForm = class(TForm)
+    AddressCb: TComboBox;
+    AddressPnl: TPanel;
+    Panel1: TBufferPanel;
+    Chromium1: TChromium;
+    GoBtn: TButton;
+
+    procedure Panel1Enter(Sender: TObject);
+    procedure Panel1Exit(Sender: TObject);
+    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+    procedure Panel1MouseEnter(Sender: TObject);
+    procedure Panel1MouseLeave(Sender: TObject);
+    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
+    procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+    procedure Panel1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);   
+    procedure Panel1QTKeyPress(Sender: TObject; Event_: QEventH);
+    procedure Panel1QTKeyRelease(Sender: TObject; Event_: QEventH);
+    procedure Panel1Resize(Sender: TObject);
+
+    procedure Chromium1AfterCreated(Sender: TObject; const browser: ICefBrowser);
+    procedure Chromium1BeforeClose(Sender: TObject; const browser: ICefBrowser);
+    procedure Chromium1BeforePopup(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; popup_id: Integer; const targetUrl, targetFrameName: ustring; targetDisposition: TCefWindowOpenDisposition; userGesture: Boolean; const popupFeatures: TCefPopupFeatures; var windowInfo: TCefWindowInfo; var client: ICefClient; var settings: TCefBrowserSettings; var extra_info: ICefDictionaryValue; var noJavascriptAccess: Boolean; var Result: Boolean);
+    procedure Chromium1CursorChange(Sender: TObject; const browser: ICefBrowser; cursor_: TCefCursorHandle; cursorType: TCefCursorType; const customCursorInfo: PCefCursorInfo; var aResult : boolean);
+    procedure Chromium1GetScreenInfo(Sender: TObject; const browser: ICefBrowser; var screenInfo: TCefScreenInfo; out Result: Boolean);
+    procedure Chromium1GetScreenPoint(Sender: TObject; const browser: ICefBrowser; viewX, viewY: Integer; var screenX, screenY: Integer; out Result: Boolean);
+    procedure Chromium1GetViewRect(Sender: TObject; const browser: ICefBrowser; var rect: TCefRect);
+    procedure Chromium1OpenUrlFromTab(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const targetUrl: ustring; targetDisposition: TCefWindowOpenDisposition; userGesture: Boolean; out Result: Boolean);
+    procedure Chromium1Paint(Sender: TObject; const browser: ICefBrowser; type_: TCefPaintElementType; dirtyRectsCount: NativeUInt; const dirtyRects: PCefRectArray; const buffer: Pointer; aWidth, aHeight: Integer);
+    procedure Chromium1PopupShow(Sender: TObject; const browser: ICefBrowser; aShow: Boolean);
+    procedure Chromium1PopupSize(Sender: TObject; const browser: ICefBrowser; const rect: PCefRect);
+    procedure Chromium1SetFocus(Sender: TObject; const browser: ICefBrowser; source: TCefFocusSource; out Result: Boolean);
+    procedure Chromium1Tooltip(Sender: TObject; const browser: ICefBrowser; var aText: ustring; out Result: Boolean);
+
+    procedure FormActivate(Sender: TObject);
+    procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure FormHide(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure FormWindowStateChange(Sender: TObject);   
+
+    procedure Application_OnActivate(Sender: TObject);
+    procedure Application_OnDeactivate(Sender: TObject);
+
+    procedure AddressCbEnter(Sender: TObject);
+    procedure GoBtnClick(Sender: TObject);
+    procedure GoBtnEnter(Sender: TObject);
+  private
+
+  protected
+    FPopUpRect       : TRect;
+    FShowPopUp       : boolean;
+    FResizing        : boolean;
+    FPendingResize   : boolean;
+    FCanClose        : boolean;
+    FClosing         : boolean;
+    FResizeCS        : TCriticalSection;
+    FBrowserCS       : TCriticalSection;
+    FPanelCursor     : TCursor;
+    FPanelHint       : ustring;
+    FPanelOffset     : TPoint;
+
+    function  GetPanelCursor : TCursor;
+    function  GetPanelHint : ustring;
+
+    procedure SetPanelCursor(aValue : TCursor);
+    procedure SetPanelHint(const aValue : ustring);
+
+    procedure SendCompMessage(aMsg : cardinal; aData: PtrInt = 0);
+    function  getModifiers(Shift: TShiftState): TCefEventFlags;
+    function  GetButton(Button: TMouseButton): TCefMouseButtonType;
+    procedure DoResize;
+    procedure UpdatePanelOffset;
+
+    procedure BrowserCreatedMsg(Data: PtrInt);
+    procedure BrowserCloseFormMsg(Data: PtrInt);
+    procedure PendingResizeMsg(Data: PtrInt);
+    procedure PendingInvalidateMsg(Data: PtrInt);
+    procedure PendingCursorUpdateMsg(Data: PtrInt);
+    procedure PendingHintUpdateMsg(Data: PtrInt);
+
+    // CEF needs to handle these messages to call TChromium.NotifyMoveOrResizeStarted
+    procedure WMMove(var Message: TLMMove); message LM_MOVE;
+    procedure WMSize(var Message: TLMSize); message LM_SIZE;
+    procedure WMWindowPosChanged(var Message: TLMWindowPosChanged); message LM_WINDOWPOSCHANGED;
+
+    property PanelCursor  : TCursor   read GetPanelCursor   write SetPanelCursor;
+    property PanelHint    : ustring   read GetPanelHint     write SetPanelHint;
+
+  public
+
+  end;
+
+var
+  MainForm: TMainForm;  
+
+procedure CreateGlobalCEFApp;
+function StartMainProcess: boolean;
+
+implementation
+
+{$R *.lfm}     
+
+uses
+  Math,
+  uCEFMiscFunctions, uCEFApplication, uCEFConstants, uCEFBitmapBitBuffer,
+  uCEFLinuxFunctions;
+
+const
+  CEF_UPDATE_CURSOR   = $A1D;
+  CEF_UPDATE_HINT     = $A1E;
+
+var
+  MainAppEvent : TEventObject;
+
+{GlobalCEFApp functions}
+{%Region}
+procedure GlobalCEFApp_OnContextInitialized();
+begin
+  MainAppEvent.SetEvent;
+end;
+
+procedure CreateGlobalCEFApp;
+begin
+  GlobalCEFApp                            := TCefApplication.Create;
+  GlobalCEFApp.LogFile                    := 'debug.log';
+  GlobalCEFApp.LogSeverity                := LOGSEVERITY_INFO;
+  GlobalCEFApp.RootCache                  := 'RootCache';
+  GlobalCEFApp.SetCurrentDir              := True;
+  GlobalCEFApp.DisableZygote              := True;
+  GlobalCEFApp.OnContextInitialized       := @GlobalCEFApp_OnContextInitialized;
+end;
+
+function StartMainProcess: boolean;
+begin
+  Result := False;
+
+  if GlobalCEFApp.StartMainProcess then
+    begin
+      // Wait until the context is initialized before initializing GTK.
+      if (MainAppEvent.WaitFor(10000) = wrTimeout) then
+        CefDebugLog('CEF initialization failure!')
+       else
+        Result := True;
+    end;
+end;
+{%Endregion}
+
+{TBufferPanel events}
+{%Region}
+procedure TMainForm.Panel1Enter(Sender: TObject);
+begin
+  Chromium1.SetFocus(True);
+end;
+
+procedure TMainForm.Panel1Exit(Sender: TObject);
+begin
+  Chromium1.SetFocus(False);
+end;
+
+procedure TMainForm.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
+  Shift: TShiftState; X, Y: Integer);
+var
+  TempEvent : TCefMouseEvent;
+begin
+  Panel1.SetFocus;
+
+  TempEvent.x         := X;
+  TempEvent.y         := Y;
+  TempEvent.modifiers := getModifiers(Shift);
+  DeviceToLogical(TempEvent, Panel1.ScreenScale);
+  Chromium1.SendMouseClickEvent(@TempEvent, GetButton(Button), False, 1);
+end;
+
+procedure TMainForm.Panel1MouseEnter(Sender: TObject);
+var
+  TempEvent : TCefMouseEvent;
+  TempPoint : TPoint;
+begin
+  TempPoint           := Panel1.ScreenToClient(mouse.CursorPos);
+  TempEvent.x         := TempPoint.x;
+  TempEvent.y         := TempPoint.y;
+  TempEvent.modifiers := EVENTFLAG_NONE;
+  DeviceToLogical(TempEvent, Panel1.ScreenScale);
+  Chromium1.SendMouseMoveEvent(@TempEvent, False);
+end;
+
+procedure TMainForm.Panel1MouseLeave(Sender: TObject);
+var
+  TempEvent : TCefMouseEvent;
+  TempPoint : TPoint;
+begin
+  TempPoint           := Panel1.ScreenToClient(mouse.CursorPos);
+  TempEvent.x         := TempPoint.x;
+  TempEvent.y         := TempPoint.y;
+  TempEvent.modifiers := EVENTFLAG_NONE;
+  DeviceToLogical(TempEvent, Panel1.ScreenScale);
+  Chromium1.SendMouseMoveEvent(@TempEvent, True);
+end;
+
+procedure TMainForm.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
+  Y: Integer);
+var
+  TempEvent : TCefMouseEvent;
+begin
+  TempEvent.x         := x;
+  TempEvent.y         := y;
+  TempEvent.modifiers := getModifiers(Shift);
+  DeviceToLogical(TempEvent, Panel1.ScreenScale);
+  Chromium1.SendMouseMoveEvent(@TempEvent, False);
+end;
+
+procedure TMainForm.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
+  Shift: TShiftState; X, Y: Integer);
+var
+  TempEvent  : TCefMouseEvent;
+begin
+  TempEvent.x         := X;
+  TempEvent.y         := Y;
+  TempEvent.modifiers := getModifiers(Shift);
+  DeviceToLogical(TempEvent, Panel1.ScreenScale);
+  Chromium1.SendMouseClickEvent(@TempEvent, GetButton(Button), True, 1);
+end;
+
+procedure TMainForm.Panel1MouseWheel(Sender: TObject; Shift: TShiftState;
+  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
+var
+  TempEvent  : TCefMouseEvent;
+begin
+  TempEvent.x         := MousePos.x;
+  TempEvent.y         := MousePos.y;
+  TempEvent.modifiers := getModifiers(Shift);
+  DeviceToLogical(TempEvent, Panel1.ScreenScale);
+  Chromium1.SendMouseWheelEvent(@TempEvent, 0, WheelDelta);
+end;
+
+procedure TMainForm.Panel1QTKeyPress(Sender: TObject; Event_: QEventH);   
+var
+  TempCefEvent : TCefKeyEvent;
+begin
+  QTKeyEventToCEFKeyEvent(QKeyEventH(Event_), TempCefEvent);
+
+  TempCefEvent.kind := KEYEVENT_RAWKEYDOWN;
+  CefKeyEventLog(TempCefEvent);
+  Chromium1.SendKeyEvent(@TempCefEvent);
+
+  if AdjustCefKeyCharEvent(QKeyEventH(Event_), TempCefEvent) then
+    begin
+      TempCefEvent.kind := KEYEVENT_CHAR;
+      CefKeyEventLog(TempCefEvent);
+      Chromium1.SendKeyEvent(@TempCefEvent);
+    end;
+end;
+
+procedure TMainForm.Panel1QTKeyRelease(Sender: TObject; Event_: QEventH);  
+var
+  TempCefEvent : TCefKeyEvent;
+begin
+  QTKeyEventToCEFKeyEvent(QKeyEventH(Event_), TempCefEvent);
+
+  TempCefEvent.kind := KEYEVENT_KEYUP;
+  CefKeyEventLog(TempCefEvent);
+  Chromium1.SendKeyEvent(@TempCefEvent);
+end;
+
+procedure TMainForm.Panel1Resize(Sender: TObject);
+begin
+  DoResize;
+end;
+{%Endregion}
+
+{TChromium events}
+{%Region}
+procedure TMainForm.Chromium1AfterCreated(Sender: TObject; const browser: ICefBrowser);
+begin
+  // Now the browser is fully initialized we can initialize the UI.
+  SendCompMessage(CEF_AFTERCREATED);
+end;
+
+procedure TMainForm.Chromium1BeforeClose(Sender: TObject;
+  const browser: ICefBrowser);
+begin
+  FCanClose := True;
+  SendCompMessage(CEF_BEFORECLOSE);
+end;
+
+procedure TMainForm.Chromium1BeforePopup(Sender: TObject;
+  const browser: ICefBrowser; const frame: ICefFrame; popup_id: Integer;
+  const targetUrl, targetFrameName: ustring; targetDisposition: TCefWindowOpenDisposition;
+  userGesture: Boolean; const popupFeatures: TCefPopupFeatures;
+  var windowInfo: TCefWindowInfo; var client: ICefClient;
+  var settings: TCefBrowserSettings; var extra_info: ICefDictionaryValue;
+  var noJavascriptAccess: Boolean; var Result: Boolean);
+begin
+  // For simplicity, this demo blocks all popup windows and new tabs
+  Result := (targetDisposition in [CEF_WOD_NEW_FOREGROUND_TAB, CEF_WOD_NEW_BACKGROUND_TAB, CEF_WOD_NEW_POPUP, CEF_WOD_NEW_WINDOW]);
+end;
+
+procedure TMainForm.Chromium1CursorChange(Sender: TObject;
+  const browser: ICefBrowser; cursor_: TCefCursorHandle;
+  cursorType: TCefCursorType; const customCursorInfo: PCefCursorInfo;
+  var aResult : boolean);
+begin
+  PanelCursor := CefCursorToWindowsCursor(cursorType);
+  aResult     := True;
+
+  SendCompMessage(CEF_UPDATE_CURSOR);
+end;
+
+procedure TMainForm.Chromium1GetScreenInfo(Sender: TObject;
+  const browser: ICefBrowser; var screenInfo: TCefScreenInfo; out
+  Result: Boolean);
+var
+  TempRect  : TCEFRect;
+  TempScale : single;
+begin
+  TempScale       := Panel1.ScreenScale;
+  TempRect.x      := 0;
+  TempRect.y      := 0;
+  TempRect.width  := DeviceToLogical(Panel1.Width,  TempScale);
+  TempRect.height := DeviceToLogical(Panel1.Height, TempScale);
+
+  screenInfo.device_scale_factor := TempScale;
+  screenInfo.depth               := 0;
+  screenInfo.depth_per_component := 0;
+  screenInfo.is_monochrome       := Ord(False);
+  screenInfo.rect                := TempRect;
+  screenInfo.available_rect      := TempRect;
+
+  Result := True;
+end;
+
+procedure TMainForm.Chromium1GetScreenPoint(Sender: TObject;
+  const browser: ICefBrowser; viewX, viewY: Integer; var screenX,
+  screenY: Integer; out Result: Boolean);
+begin
+  try
+    FBrowserCS.Acquire;
+    screenX := LogicalToDevice(viewX, Panel1.ScreenScale) + FPanelOffset.x;
+    screenY := LogicalToDevice(viewY, Panel1.ScreenScale) + FPanelOffset.y;
+    Result  := True;
+  finally
+    FBrowserCS.Release;
+  end;
+end;
+
+procedure TMainForm.Chromium1GetViewRect(Sender: TObject;
+  const browser: ICefBrowser; var rect: TCefRect);
+var
+  TempScale : single;
+begin
+  TempScale   := Panel1.ScreenScale;
+  rect.x      := 0;
+  rect.y      := 0;
+  rect.width  := DeviceToLogical(Panel1.Width,  TempScale);
+  rect.height := DeviceToLogical(Panel1.Height, TempScale);
+end;
+
+procedure TMainForm.Chromium1OpenUrlFromTab(Sender: TObject;
+  const browser: ICefBrowser; const frame: ICefFrame; const targetUrl: ustring;
+  targetDisposition: TCefWindowOpenDisposition; userGesture: Boolean; out
+  Result: Boolean);
+begin
+  // For simplicity, this demo blocks all popup windows and new tabs
+  Result := (targetDisposition in [CEF_WOD_NEW_FOREGROUND_TAB, CEF_WOD_NEW_BACKGROUND_TAB, CEF_WOD_NEW_POPUP, CEF_WOD_NEW_WINDOW]);
+end;
+
+procedure TMainForm.Chromium1Paint(Sender: TObject; const browser: ICefBrowser;
+  type_: TCefPaintElementType; dirtyRectsCount: NativeUInt;
+  const dirtyRects: PCefRectArray; const buffer: Pointer; aWidth, aHeight: Integer
+  );
+var
+  src, dst: PByte;
+  i, j, TempLineSize, TempSrcOffset, TempDstOffset, SrcStride : Integer;
+  n : NativeUInt;
+  TempWidth, TempHeight : integer;
+  TempBufferBits : Pointer;
+  TempForcedResize : boolean;
+  TempBitmap : TCEFBitmapBitBuffer;
+  TempSrcRect : TRect;
+begin
+  try
+    FResizeCS.Acquire;
+    TempForcedResize := False;
+
+    if Panel1.BeginBufferDraw then
+      begin
+        if (type_ = PET_POPUP) then
+          begin
+            Panel1.UpdateOrigPopupBufferDimensions(aWidth, aHeight);
+
+            TempBitmap := Panel1.OrigPopupBuffer;
+            TempWidth  := Panel1.OrigPopupBufferWidth;
+            TempHeight := Panel1.OrigPopupBufferHeight;
+          end
+         else
+          begin
+            TempForcedResize := Panel1.UpdateOrigBufferDimensions(aWidth, aHeight) or
+                                not(Panel1.BufferIsResized(False));
+
+            TempBitmap := Panel1.OrigBuffer;
+            TempWidth  := Panel1.OrigBufferWidth;
+            TempHeight := Panel1.OrigBufferHeight;
+          end;
+
+        SrcStride := aWidth * SizeOf(TRGBQuad);
+        n         := 0;
+
+        while (n < dirtyRectsCount) do
+          begin
+            if (dirtyRects^[n].x >= 0) and (dirtyRects^[n].y >= 0) then
+              begin
+                TempLineSize := min(dirtyRects^[n].width, TempWidth - dirtyRects^[n].x) * SizeOf(TRGBQuad);
+
+                if (TempLineSize > 0) then
+                  begin
+                    TempSrcOffset := ((dirtyRects^[n].y * aWidth) + dirtyRects^[n].x) * SizeOf(TRGBQuad);
+                    TempDstOffset := (dirtyRects^[n].x * SizeOf(TRGBQuad));
+
+                    src := @PByte(buffer)[TempSrcOffset];
+
+                    i := 0;
+                    j := min(dirtyRects^[n].height, TempHeight - dirtyRects^[n].y);
+
+                    while (i < j) do
+                      begin
+                        TempBufferBits := TempBitmap.Scanline[dirtyRects^[n].y + i];
+                        dst            := @PByte(TempBufferBits)[TempDstOffset];
+
+                        Move(src^, dst^, TempLineSize);
+
+                        Inc(src, SrcStride);
+                        inc(i);
+                      end;
+                  end;
+              end;
+
+            inc(n);
+          end;
+
+        if FShowPopup then
+          begin
+            TempSrcRect := Rect(0, 0,
+                                FPopUpRect.Right  - FPopUpRect.Left,
+                                FPopUpRect.Bottom - FPopUpRect.Top);
+
+            Panel1.DrawOrigPopupBuffer(TempSrcRect, FPopUpRect);
+          end;
+
+        Panel1.EndBufferDraw;
+
+        SendCompMessage(CEF_PENDINGINVALIDATE);
+
+        if (type_ = PET_VIEW) then
+          begin
+            if TempForcedResize or FPendingResize then
+              SendCompMessage(CEF_PENDINGRESIZE);
+
+            FResizing      := False;
+            FPendingResize := False;
+          end;
+      end;
+  finally
+    FResizeCS.Release;
+  end;
+end;
+
+procedure TMainForm.Chromium1PopupShow(Sender: TObject; const browser: ICefBrowser; aShow: Boolean);
+begin
+  if aShow then
+    FShowPopUp := True
+   else
+    begin
+      FShowPopUp := False;
+      FPopUpRect := rect(0, 0, 0, 0);
+
+      if (Chromium1 <> nil) then Chromium1.Invalidate(PET_VIEW);
+    end;
+end;
+
+procedure TMainForm.Chromium1PopupSize(Sender: TObject; const browser: ICefBrowser; const rect: PCefRect);
+begin
+  LogicalToDevice(rect^, Panel1.ScreenScale);
+
+  FPopUpRect.Left   := rect^.x;
+  FPopUpRect.Top    := rect^.y;
+  FPopUpRect.Right  := rect^.x + rect^.width  - 1;
+  FPopUpRect.Bottom := rect^.y + rect^.height - 1;
+end;
+
+procedure TMainForm.Chromium1SetFocus(Sender: TObject; const browser: ICefBrowser;
+  source: TCefFocusSource; out Result: Boolean);
+begin
+  Result := not(Panel1.Focused);
+end;
+
+procedure TMainForm.Chromium1Tooltip(Sender: TObject; const browser: ICefBrowser; var aText: ustring; out Result: Boolean);
+begin
+  PanelHint := aText;
+  Result    := True;
+
+  SendCompMessage(CEF_UPDATE_HINT);
+end;
+{%Endregion}
+
+{TForm events}
+{%Region}
+procedure TMainForm.FormActivate(Sender: TObject);
+begin
+  // This will trigger the AfterCreated event when the browser is fully
+  // initialized and ready to receive commands.
+
+  // GlobalCEFApp.GlobalContextInitialized has to be TRUE before creating any browser
+  // If it's not initialized yet, we use a simple timer to create the browser later.
+
+  // Linux needs a visible form to create a browser so we need to use the
+  // TForm.OnActivate event instead of the TForm.OnShow event
+
+  if not(Chromium1.Initialized) then
+    begin
+      // We have to update the DeviceScaleFactor here to get the scale of the
+      // monitor where the main application form is located.
+      GlobalCEFApp.UpdateDeviceScaleFactor;
+
+       UpdatePanelOffset;
+
+      // opaque white background color
+      Chromium1.Options.BackgroundColor := CefColorSetARGB($FF, $FF, $FF, $FF);
+      Chromium1.DefaultURL              := UTF8Decode(AddressCb.Text);
+
+      Chromium1.CreateBrowser;
+    end;
+end;
+
+procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: boolean);
+begin
+  CanClose := FCanClose;
+
+  if not(FClosing) then
+    begin
+      FClosing := True;
+      Visible  := False;
+      Chromium1.CloseBrowser(True);
+    end;
+end;
+
+procedure TMainForm.FormCreate(Sender: TObject);
+begin
+  FPopUpRect        := rect(0, 0, 0, 0);
+  FShowPopUp        := False;
+  FResizing         := False;
+  FPendingResize    := False;
+  FCanClose         := False;
+  FClosing          := False;
+  FResizeCS         := TCriticalSection.Create;
+  FBrowserCS        := TCriticalSection.Create;
+
+  Panel1.CopyOriginalBuffer := True;
+  Panel1.OnQtKeyPress       := @Panel1QTKeyPress;
+  Panel1.OnQtKeyRelease     := @Panel1QTKeyRelease;
+
+  Application.OnActivate    := @Application_OnActivate;
+  Application.OnDeactivate  := @Application_OnDeactivate;
+end;
+
+procedure TMainForm.FormDestroy(Sender: TObject);
+begin
+  if (FResizeCS   <> nil) then FreeAndNil(FResizeCS);
+  if (FBrowserCS  <> nil) then FreeAndNil(FBrowserCS);
+end;
+
+procedure TMainForm.FormHide(Sender: TObject);
+begin
+  Chromium1.SetFocus(False);
+  Chromium1.WasHidden(True);
+end;
+
+procedure TMainForm.FormShow(Sender: TObject);
+begin
+  Chromium1.WasHidden(False);
+  Chromium1.SetFocus(Panel1.Focused);
+end;
+
+procedure TMainForm.FormWindowStateChange(Sender: TObject);
+begin
+  if (WindowState = wsMinimized) then
+    begin
+      Chromium1.SetFocus(False);
+      Chromium1.WasHidden(True);
+    end
+   else
+    begin
+      Chromium1.WasHidden(False);
+      Chromium1.SetFocus(Panel1.Focused);
+    end;
+end;
+{%Endregion}
+
+{TApplication events}
+{%Region}
+procedure TMainForm.Application_OnActivate(Sender: TObject);
+begin
+  Chromium1.SetFocus(Panel1.Focused);
+end;
+
+procedure TMainForm.Application_OnDeactivate(Sender: TObject);
+begin
+  Chromium1.SetFocus(False);
+end;
+{%Endregion}
+
+{Other events}
+{%Region}
+procedure TMainForm.AddressCbEnter(Sender: TObject);
+begin
+  Chromium1.SetFocus(False);
+end;
+
+procedure TMainForm.GoBtnClick(Sender: TObject);
+begin
+  FResizeCS.Acquire;
+  FResizing      := False;
+  FPendingResize := False;
+  FResizeCS.Release;
+
+  Chromium1.LoadURL(UTF8Decode(AddressCb.Text))
+end;
+
+procedure TMainForm.GoBtnEnter(Sender: TObject);
+begin
+  Chromium1.SetFocus(False);
+end;
+{%Endregion}
+
+{Getters and setters}
+{%Region}
+function TMainForm.GetPanelCursor : TCursor;
+begin
+  try
+    FBrowserCS.Acquire;
+    Result := FPanelCursor;
+  finally
+    FBrowserCS.Release;
+  end;
+end;
+
+function TMainForm.GetPanelHint : ustring;
+begin
+  try
+    FBrowserCS.Acquire;
+    Result := FPanelHint;
+  finally
+    FBrowserCS.Release;
+  end;
+end;
+
+procedure TMainForm.SetPanelCursor(aValue : TCursor);
+begin
+  try
+    FBrowserCS.Acquire;
+    FPanelCursor := aValue;
+  finally
+    FBrowserCS.Release;
+  end;
+end;
+
+procedure TMainForm.SetPanelHint(const aValue : ustring);
+begin
+  try
+    FBrowserCS.Acquire;
+    FPanelHint := aValue;
+  finally
+    FBrowserCS.Release;
+  end;
+end;
+{%Endregion}
+
+{Misc functions}
+{%Region}
+procedure TMainForm.SendCompMessage(aMsg : cardinal; aData: PtrInt);
+begin
+  case aMsg of
+    CEF_AFTERCREATED      : Application.QueueAsyncCall(@BrowserCreatedMsg, aData);
+    CEF_BEFORECLOSE       : Application.QueueAsyncCall(@BrowserCloseFormMsg, aData);
+    CEF_PENDINGRESIZE     : Application.QueueAsyncCall(@PendingResizeMsg, aData);
+    CEF_PENDINGINVALIDATE : Application.QueueAsyncCall(@PendingInvalidateMsg, aData);
+    CEF_UPDATE_CURSOR     : Application.QueueAsyncCall(@PendingCursorUpdateMsg, aData);
+    CEF_UPDATE_HINT       : Application.QueueAsyncCall(@PendingHintUpdateMsg, aData);
+  end;
+end;
+
+function TMainForm.getModifiers(Shift: TShiftState): TCefEventFlags;
+begin
+  Result := EVENTFLAG_NONE;
+
+  if (ssShift  in Shift) then Result := Result or EVENTFLAG_SHIFT_DOWN;
+  if (ssAlt    in Shift) then Result := Result or EVENTFLAG_ALT_DOWN;
+  if (ssCtrl   in Shift) then Result := Result or EVENTFLAG_CONTROL_DOWN;
+  if (ssLeft   in Shift) then Result := Result or EVENTFLAG_LEFT_MOUSE_BUTTON;
+  if (ssRight  in Shift) then Result := Result or EVENTFLAG_RIGHT_MOUSE_BUTTON;
+  if (ssMiddle in Shift) then Result := Result or EVENTFLAG_MIDDLE_MOUSE_BUTTON;
+end;
+
+function TMainForm.GetButton(Button: TMouseButton): TCefMouseButtonType;
+begin
+  case Button of
+    TMouseButton.mbRight  : Result := MBT_RIGHT;
+    TMouseButton.mbMiddle : Result := MBT_MIDDLE;
+    else                    Result := MBT_LEFT;
+  end;
+end;
+
+procedure TMainForm.DoResize;
+begin
+  try
+    FResizeCS.Acquire;
+
+    if FResizing then
+      FPendingResize := True
+     else
+      if Panel1.BufferIsResized then
+        Chromium1.Invalidate(PET_VIEW)
+       else
+        begin
+          FResizing := True;
+          Chromium1.WasResized;
+        end;
+  finally
+    FResizeCS.Release;
+  end;
+end;
+
+procedure TMainForm.UpdatePanelOffset;
+var
+  TempPoint : TPoint;
+begin
+  try
+    FBrowserCS.Acquire;
+    TempPoint.x  := 0;
+    TempPoint.y  := 0;
+    FPanelOffset := Panel1.ClientToScreen(TempPoint);
+  finally
+    FBrowserCS.Release;
+  end;
+end;
+{%Endregion}
+
+{Message handlers}
+{%Region}
+procedure TMainForm.BrowserCreatedMsg(Data: PtrInt);
+begin
+  Caption            := 'Simple OSR Browser';
+  AddressPnl.Enabled := True;
+
+  Chromium1.SetFocus(Panel1.Focused);
+  Chromium1.NotifyMoveOrResizeStarted;
+end;
+
+procedure TMainForm.BrowserCloseFormMsg(Data: PtrInt);
+begin
+  Close;
+end;
+
+procedure TMainForm.PendingResizeMsg(Data: PtrInt);
+begin
+  DoResize;
+end;
+
+procedure TMainForm.PendingInvalidateMsg(Data: PtrInt);
+begin
+  Panel1.Invalidate;
+end;
+
+procedure TMainForm.PendingCursorUpdateMsg(Data: PtrInt);
+begin
+  Panel1.Cursor := PanelCursor;
+end;
+
+procedure TMainForm.PendingHintUpdateMsg(Data: PtrInt);
+begin
+  Panel1.hint     := UTF8Encode(PanelHint);
+  Panel1.ShowHint := (length(Panel1.hint) > 0);
+end;
+
+procedure TMainForm.WMMove(var Message: TLMMove);
+begin
+  inherited;
+  UpdatePanelOffset;
+  Chromium1.NotifyMoveOrResizeStarted;
+end;
+
+procedure TMainForm.WMSize(var Message: TLMSize);
+begin
+  inherited;
+  UpdatePanelOffset;
+  Chromium1.NotifyMoveOrResizeStarted;
+end;
+
+procedure TMainForm.WMWindowPosChanged(var Message: TLMWindowPosChanged);
+begin
+  inherited;
+  UpdatePanelOffset;
+  Chromium1.NotifyMoveOrResizeStarted;
+end;
+{%Endregion}
+
+initialization
+  MainAppEvent := TEventObject.Create(nil, True, False, 'MainAppEvent');
+
+finalization
+  if assigned(MainAppEvent) then
+    FreeAndNil(MainAppEvent);
+
+end.
+
--- a/update_CEF4Delphi.json
+++ b/update_CEF4Delphi.json
@@ -2,7 +2,7 @@
  "UpdateLazPackages" : [
    {
      "ForceNotify" : true,
-      "InternalVersion" : 789,
+      "InternalVersion" : 790,
      "Name" : "cef4delphi_lazarus.lpk",
      "Version" : "140.1.14"
    }