1
0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00

Update to CEF 128.4.8

This commit is contained in:
Salvador Díaz Fau
2024-09-03 17:26:03 +02:00
parent ed52c6144c
commit 55a70a998e
338 changed files with 10558 additions and 16111 deletions

View File

@ -28,7 +28,6 @@ object JSExtensionFrm: TJSExtensionFrm
Padding.Right = 5
Padding.Bottom = 5
TabOrder = 0
ExplicitWidth = 974
object Edit1: TEdit
Left = 5
Top = 5
@ -38,7 +37,6 @@ object JSExtensionFrm: TJSExtensionFrm
Align = alClient
TabOrder = 0
Text = 'http://www.google.com'
ExplicitWidth = 933
ExplicitHeight = 21
end
object GoBtn: TButton
@ -51,7 +49,6 @@ object JSExtensionFrm: TJSExtensionFrm
Caption = 'Go'
TabOrder = 1
OnClick = GoBtnClick
ExplicitLeft = 938
end
end
object StatusBar1: TStatusBar
@ -63,8 +60,6 @@ object JSExtensionFrm: TJSExtensionFrm
item
Width = 50
end>
ExplicitTop = 569
ExplicitWidth = 974
end
object CEFWindowParent1: TCEFWindowParent
Left = 0
@ -73,8 +68,6 @@ object JSExtensionFrm: TJSExtensionFrm
Height = 540
Align = alClient
TabOrder = 2
ExplicitWidth = 974
ExplicitHeight = 539
end
object Chromium1: TChromium
OnProcessMessageReceived = Chromium1ProcessMessageReceived

View File

@ -49,10 +49,7 @@ type
procedure Chromium1BeforePopup(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; 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 Chromium1Close(Sender: TObject; const browser: ICefBrowser; var aAction : TCefCloseBrowserAction);
procedure Chromium1BeforeClose(Sender: TObject; const browser: ICefBrowser);
procedure Chromium1ContextMenuCommand(Sender: TObject;
const browser: ICefBrowser; const frame: ICefFrame;
const params: ICefContextMenuParams; commandId: Integer;
eventFlags: Cardinal; out Result: Boolean);
procedure Chromium1ContextMenuCommand(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const params: ICefContextMenuParams; commandId: Integer; eventFlags: TCefEventFlags; out Result: Boolean);
protected
FText : string;
@ -294,7 +291,7 @@ end;
procedure TJSExtensionFrm.Chromium1ContextMenuCommand(Sender: TObject;
const browser: ICefBrowser; const frame: ICefFrame;
const params: ICefContextMenuParams; commandId: Integer;
eventFlags: Cardinal; out Result: Boolean);
eventFlags: TCefEventFlags; out Result: Boolean);
var
TempPoint : TPoint;
TempJSCode : string;
@ -408,6 +405,7 @@ procedure TJSExtensionFrm.FormCreate(Sender: TObject);
begin
FCanClose := False;
FClosing := False;
Chromium1.RuntimeStyle := CEF_RUNTIME_STYLE_ALLOY;
end;
procedure TJSExtensionFrm.FormShow(Sender: TObject);