pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-10-30 23:07:52 +02:00
Code Issues Actions 1 Releases Activity

Fixed cursor handling in MiniBrowser

Browse Source
This commit is contained in:
Salvador Díaz Fau
2024-08-22 10:52:32 +02:00
parent a6b258d24d
commit ed52c6144c
5 changed files with 8 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
demos/Delphi_VCL/MiniBrowser/uMiniBrowser.dfm
View File

@@ -300,7 +300,6 @@ object MiniBrowserFrm: TMiniBrowserFrm
OnStatusMessage = Chromium1StatusMessage OnStatusMessage = Chromium1StatusMessage
OnConsoleMessage = Chromium1ConsoleMessage OnConsoleMessage = Chromium1ConsoleMessage
OnLoadingProgressChange = Chromium1LoadingProgressChange OnLoadingProgressChange = Chromium1LoadingProgressChange
OnCursorChange = Chromium1CursorChange
OnMediaAccessChange = Chromium1MediaAccessChange OnMediaAccessChange = Chromium1MediaAccessChange
OnCanDownload = Chromium1CanDownload OnCanDownload = Chromium1CanDownload
OnBeforeDownload = Chromium1BeforeDownload OnBeforeDownload = Chromium1BeforeDownload

15
demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas
View File

@@ -166,7 +166,6 @@ type
procedure Chromium1ZoomPctAvailable(Sender: TObject; const aZoomPct: Double); procedure Chromium1ZoomPctAvailable(Sender: TObject; const aZoomPct: Double);
procedure Chromium1DevToolsMethodResult(Sender: TObject; const browser: ICefBrowser; message_id: Integer; success: Boolean; const result: ICefValue); procedure Chromium1DevToolsMethodResult(Sender: TObject; const browser: ICefBrowser; message_id: Integer; success: Boolean; const result: ICefValue);
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 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 Chromium1CanDownload(Sender: TObject; const browser: ICefBrowser; const url, request_method: ustring; var aResult: Boolean); procedure Chromium1CanDownload(Sender: TObject; const browser: ICefBrowser; const url, request_method: ustring; var aResult: Boolean);
procedure Chromium1MediaAccessChange(Sender: TObject; const browser: ICefBrowser; has_video_access, has_audio_access: Boolean); procedure Chromium1MediaAccessChange(Sender: TObject; const browser: ICefBrowser; has_video_access, has_audio_access: Boolean);
procedure Chromium1RequestMediaAccessPermission(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const requesting_origin: ustring; requested_permissions: Cardinal; const callback: ICefMediaAccessCallback; var aResult: Boolean); procedure Chromium1RequestMediaAccessPermission(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const requesting_origin: ustring; requested_permissions: Cardinal; const callback: ICefMediaAccessCallback; var aResult: Boolean);
@@ -688,15 +687,6 @@ begin
PostMessage(Handle, MINIBROWSER_COOKIESFLUSHED, 0, 0); PostMessage(Handle, MINIBROWSER_COOKIESFLUSHED, 0, 0);
end; end;
procedure TMiniBrowserFrm.Chromium1CursorChange(Sender: TObject;
const browser: ICefBrowser; cursor_: TCefCursorHandle;
cursorType: TCefCursorType; const customCursorInfo: PCefCursorInfo;
var aResult: Boolean);
begin
aResult := True;
CEFWindowParent1.Cursor := CefCursorToWindowsCursor(cursorType);
end;
procedure TMiniBrowserFrm.CookiesFlushedMsg(var aMessage : TMessage); procedure TMiniBrowserFrm.CookiesFlushedMsg(var aMessage : TMessage);
begin begin
showmessage('The cookies were flushed successfully'); showmessage('The cookies were flushed successfully');
@@ -1448,7 +1438,10 @@ end;
procedure TMiniBrowserFrm.FindText1Click(Sender: TObject); procedure TMiniBrowserFrm.FindText1Click(Sender: TObject);
begin begin
FindFrm.Show; if GlobalCEFApp.ChromeRuntime then
Chromium1.ExecuteChromeCommand(IDC_FIND, CEF_WOD_CURRENT_TAB)
else
FindFrm.Show;
end; end;
procedure TMiniBrowserFrm.Flushcookies1Click(Sender: TObject); procedure TMiniBrowserFrm.Flushcookies1Click(Sender: TObject);

7
demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.lfm
View File

@@ -15,7 +15,7 @@ object MiniBrowserFrm: TMiniBrowserFrm
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '3.2.0.0' LCLVersion = '3.4.0.0'
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 1179 Left = 1179
Height = 663 Height = 663
@@ -118,11 +118,11 @@ object MiniBrowserFrm: TMiniBrowserFrm
TabOrder = 1 TabOrder = 1
object URLCbx: TComboBox object URLCbx: TComboBox
Left = 0 Left = 0
Height = 22 Height = 21
Top = 3 Top = 3
Width = 978 Width = 978
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
ItemHeight = 14 ItemHeight = 13
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'https://www.google.com' 'https://www.google.com'
@@ -264,7 +264,6 @@ object MiniBrowserFrm: TMiniBrowserFrm
OnFullScreenModeChange = Chromium1FullScreenModeChange OnFullScreenModeChange = Chromium1FullScreenModeChange
OnStatusMessage = Chromium1StatusMessage OnStatusMessage = Chromium1StatusMessage
OnLoadingProgressChange = Chromium1LoadingProgressChange OnLoadingProgressChange = Chromium1LoadingProgressChange
OnCursorChange = Chromium1CursorChange
OnMediaAccessChange = Chromium1MediaAccessChange OnMediaAccessChange = Chromium1MediaAccessChange
OnCanDownload = Chromium1CanDownload OnCanDownload = Chromium1CanDownload
OnBeforeDownload = Chromium1BeforeDownload OnBeforeDownload = Chromium1BeforeDownload

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

@@ -122,10 +122,6 @@ type
procedure Chromium1CanDownload(Sender: TObject; const browser: ICefBrowser; procedure Chromium1CanDownload(Sender: TObject; const browser: ICefBrowser;
const url, request_method: ustring; var aResult: boolean); const url, request_method: ustring; var aResult: boolean);
procedure Chromium1CookiesFlushed(Sender: TObject); 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; procedure Chromium1DevToolsMethodResult(Sender: TObject;
const browser: ICefBrowser; message_id: integer; success: boolean; const browser: ICefBrowser; message_id: integer; success: boolean;
const result: ICefValue); const result: ICefValue);
@@ -1205,14 +1201,6 @@ begin
PostMessage(Handle, MINIBROWSER_COOKIESFLUSHED, 0, 0); PostMessage(Handle, MINIBROWSER_COOKIESFLUSHED, 0, 0);
end; 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; procedure TMiniBrowserFrm.Chromium1DevToolsMethodResult(Sender: TObject;
const browser: ICefBrowser; message_id: integer; success: boolean; const browser: ICefBrowser; message_id: integer; success: boolean;
const result: ICefValue); const result: ICefValue);

2
update_CEF4Delphi.json
View File

@@ -2,7 +2,7 @@
"UpdateLazPackages" : [ "UpdateLazPackages" : [
{ {
"ForceNotify" : true, "ForceNotify" : true,
"InternalVersion" : 642, "InternalVersion" : 643,
"Name" : "cef4delphi_lazarus.lpk", "Name" : "cef4delphi_lazarus.lpk",
"Version" : "127.3.5" "Version" : "127.3.5"
} }