diff --git a/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.dfm b/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.dfm index f0957212..26f6cf1d 100644 --- a/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.dfm +++ b/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.dfm @@ -15,7 +15,6 @@ object MiniBrowserFrm: TMiniBrowserFrm OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 96 TextHeight = 13 object Splitter1: TSplitter Left = 1179 @@ -285,6 +284,7 @@ object MiniBrowserFrm: TMiniBrowserFrm OnFullScreenModeChange = Chromium1FullScreenModeChange OnStatusMessage = Chromium1StatusMessage OnLoadingProgressChange = Chromium1LoadingProgressChange + OnCursorChange = Chromium1CursorChange OnBeforeDownload = Chromium1BeforeDownload OnDownloadUpdated = Chromium1DownloadUpdated OnAfterCreated = Chromium1AfterCreated diff --git a/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas b/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas index ad8d2179..50ccd671 100644 --- a/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas +++ b/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas @@ -185,6 +185,7 @@ type procedure Chromium1DevToolsMethodResult(Sender: TObject; const browser: ICefBrowser; message_id: Integer; success: Boolean; const result: ICefValue); procedure Chromium1FileDialog(Sender: TObject; const browser: ICefBrowser; mode: Cardinal; const title, defaultFilePath: ustring; const acceptFilters: TStrings; selectedAcceptFilter: Integer; const callback: ICefFileDialogCallback; out Result: Boolean); procedure Chromium1SelectClientCertificate(Sender: TObject; const browser: ICefBrowser; isProxy: Boolean; const host: ustring; port: Integer; certificatesCount: NativeUInt; const certificates: TCefX509CertificateArray; const callback: ICefSelectClientCertificateCallback; var aResult: Boolean); + procedure Chromium1CursorChange(Sender: TObject; const browser: ICefBrowser; cursor_: TCefCursorHandle; cursorType: TCefCursorType; const customCursorInfo: PCefCursorInfo; var aResult: Boolean); procedure BackBtnClick(Sender: TObject); procedure ForwardBtnClick(Sender: TObject); @@ -591,6 +592,14 @@ begin PostMessage(Handle, MINIBROWSER_COOKIESFLUSHED, 0, 0); end; +procedure TMiniBrowserFrm.Chromium1CursorChange(Sender: TObject; + const browser: ICefBrowser; cursor_: TCefCursorHandle; + cursorType: TCefCursorType; const customCursorInfo: PCefCursorInfo; + var aResult: Boolean); +begin + CEFWindowParent1.Cursor := CefCursorToWindowsCursor(cursorType); +end; + procedure TMiniBrowserFrm.CookiesFlushedMsg(var aMessage : TMessage); begin showmessage('The cookies were flushed successfully'); diff --git a/demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.lfm b/demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.lfm index 6d19f24c..b33ed371 100644 --- a/demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.lfm +++ b/demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.lfm @@ -257,6 +257,7 @@ object MiniBrowserFrm: TMiniBrowserFrm OnFullScreenModeChange = Chromium1FullScreenModeChange OnStatusMessage = Chromium1StatusMessage OnLoadingProgressChange = Chromium1LoadingProgressChange + OnCursorChange = Chromium1CursorChange OnBeforeDownload = Chromium1BeforeDownload OnDownloadUpdated = Chromium1DownloadUpdated OnAfterCreated = Chromium1AfterCreated diff --git a/demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.pas b/demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.pas index ec8dfaef..05136824 100644 --- a/demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.pas +++ b/demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.pas @@ -134,6 +134,10 @@ type Memoryinfo1: TMenuItem; procedure CEFWindowParent1DragDrop(Sender, Source: TObject; X, Y: Integer); procedure Chromium1CookiesFlushed(Sender: TObject); + procedure Chromium1CursorChange(Sender: TObject; + const browser: ICefBrowser; cursor_: TCefCursorHandle; + cursorType: TCefCursorType; const customCursorInfo: PCefCursorInfo; + var aResult: boolean); procedure Chromium1DevToolsMethodResult(Sender: TObject; const browser: ICefBrowser; message_id: integer; success: boolean; const result: ICefValue); @@ -1107,6 +1111,14 @@ begin PostMessage(Handle, MINIBROWSER_COOKIESFLUSHED, 0, 0); end; +procedure TMiniBrowserFrm.Chromium1CursorChange(Sender: TObject; + const browser: ICefBrowser; cursor_: TCefCursorHandle; + cursorType: TCefCursorType; const customCursorInfo: PCefCursorInfo; + var aResult: boolean); +begin + CEFWindowParent1.Cursor := CefCursorToWindowsCursor(cursorType); +end; + procedure TMiniBrowserFrm.Chromium1DevToolsMethodResult(Sender: TObject; const browser: ICefBrowser; message_id: integer; success: boolean; const result: ICefValue); diff --git a/update_CEF4Delphi.json b/update_CEF4Delphi.json index 6cee10d8..fab99c11 100644 --- a/update_CEF4Delphi.json +++ b/update_CEF4Delphi.json @@ -2,7 +2,7 @@ "UpdateLazPackages" : [ { "ForceNotify" : true, - "InternalVersion" : 390, + "InternalVersion" : 391, "Name" : "cef4delphi_lazarus.lpk", "Version" : "100.0.24.0" }