pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00
Code Issues Actions Releases Activity

Use TChromium.OnCursorChange in the MiniBrowser demo

Browse Source
This commit is contained in:
salvadordf
2022-04-27 11:03:07 +02:00
parent 0b1eeff4dc
commit 7de8912d31
5 changed files with 24 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.pas
View File

@ -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);