pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-08-04 21:32:54 +02:00
Code Issues Actions Releases Activity

Update to CEF 128.4.8

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

8
demos/Lazarus_any_OS/BrowserWindow/uBrowserWindow.lfm
View File

@ -9,7 +9,7 @@ object Form1: TForm1
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '2.2.6.0'
LCLVersion = '3.4.0.0'
object AddressPnl: TPanel
Left = 0
Height = 23
@ -27,16 +27,16 @@ object Form1: TForm1
Width = 35
Align = alRight
Caption = 'Go'
OnClick = GoBtnClick
TabOrder = 0
OnClick = GoBtnClick
end
object AddressEdt: TComboBox
Left = 0
Height = 24
Height = 23
Top = 0
Width = 932
Align = alClient
ItemHeight = 16
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'https://www.google.com'

1
demos/Lazarus_any_OS/BrowserWindow/uBrowserWindow.pas
View File

@ -139,6 +139,7 @@ end;
procedure TForm1.FormCreate(Sender: TObject);
begin
BrowserWindow1.Chromium.RuntimeStyle := CEF_RUNTIME_STYLE_ALLOY;
BrowserWindow1.LoadURL(UTF8Decode(AddressEdt.Text));
end;

2
demos/Lazarus_any_OS/BrowserWindowDom/uBrowserWindowDom.pas
View File

@ -193,7 +193,7 @@ begin
BrowserWindow1.Chromium.OnBeforeContextMenu := @DoBeforeContextMenu;
BrowserWindow1.Chromium.OnContextMenuCommand := @DoContextMenuCmd;
BrowserWindow1.Chromium.OnProcessMessageReceived := @DoProcessMessageReceived;
BrowserWindow1.Chromium.RuntimeStyle := CEF_RUNTIME_STYLE_ALLOY;
BrowserWindow1.LoadURL(UTF8Decode(AddressEdt.Text));
end;

40
demos/Lazarus_any_OS/BrowserWindowEx/uBrowserWindowEx.lfm
View File

@ -9,7 +9,7 @@ object Form1: TForm1
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '2.2.6.0'
LCLVersion = '3.4.0.0'
object PanelLeft: TPanel
Left = 0
Height = 556
@ -37,16 +37,16 @@ object Form1: TForm1
Width = 35
Align = alRight
Caption = 'Go'
OnClick = GoBtnLeftClick
TabOrder = 0
OnClick = GoBtnLeftClick
end
object AddressEdtLeft: TComboBox
Left = 0
Height = 24
Height = 23
Top = 0
Width = 424
Align = alClient
ItemHeight = 16
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'https://www.google.com'
@ -127,16 +127,16 @@ object Form1: TForm1
Width = 35
Align = alRight
Caption = 'Go'
OnClick = GoBtnRightClick
TabOrder = 0
OnClick = GoBtnRightClick
end
object AddressEdtRight: TComboBox
Left = 0
Height = 24
Height = 23
Top = 0
Width = 418
Align = alClient
ItemHeight = 16
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'https://www.google.com'
@ -201,31 +201,31 @@ object Form1: TForm1
ClientWidth = 967
TabOrder = 3
object BtnCloseApp: TButton
Left = 5
Height = 26
Top = 3
Left = 6
Height = 25
Top = 4
Width = 80
Caption = 'Close App'
OnClick = BtnCloseAppClick
TabOrder = 0
OnClick = BtnCloseAppClick
end
object BtnCloseForm: TButton
Left = 95
Height = 26
Top = 3
Left = 96
Height = 25
Top = 4
Width = 86
Caption = 'Close Form'
OnClick = BtnCloseFormClick
TabOrder = 1
OnClick = BtnCloseFormClick
end
object BtnModal: TButton
Left = 191
Height = 26
Top = 3
Width = 93
Left = 192
Height = 25
Top = 4
Width = 92
Caption = 'Show Modal'
OnClick = BtnModalClick
TabOrder = 2
OnClick = BtnModalClick
end
end
object ImageList1: TImageList

3
demos/Lazarus_any_OS/BrowserWindowEx/uBrowserWindowEx.pas
View File

@ -120,7 +120,7 @@ begin
FBrowserLeft.OnBrowserClosed := @LeftBrowserClosed;
FBrowserLeft.Align := alClient;
FBrowserLeft.Parent := PanelLeft;
FBrowserLeft.Chromium.RuntimeStyle := CEF_RUNTIME_STYLE_ALLOY;
OpenBtnLeft.Enabled := False;
GoBtnLeftClick(nil);
end;
@ -163,6 +163,7 @@ begin
{$ENDIF}
FBrowserRight.Align := alClient;
FBrowserRight.Parent := PanelRight;
FBrowserRight.Chromium.RuntimeStyle := CEF_RUNTIME_STYLE_ALLOY;
OpenBtnRight.Enabled := False;
GoBtnRightClick(nil);

8
demos/Lazarus_any_OS/ExternalPumpBrowser/uExternalPumpBrowser.lfm
View File

@ -10,7 +10,7 @@ object Form1: TForm1
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '2.2.6.0'
LCLVersion = '3.4.0.0'
object AddressPnl: TPanel
Left = 0
Height = 23
@ -29,16 +29,16 @@ object Form1: TForm1
Width = 35
Align = alRight
Caption = 'Go'
OnClick = GoBtnClick
TabOrder = 0
OnClick = GoBtnClick
end
object AddressEdt: TComboBox
Left = 0
Height = 24
Height = 23
Top = 0
Width = 932
Align = alClient
ItemHeight = 16
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'https://www.google.com'

2
demos/Lazarus_any_OS/ExternalPumpBrowser/uExternalPumpBrowser.pas
View File

@ -104,7 +104,7 @@ procedure TForm1.FormCreate(Sender: TObject);
begin
FCanClose := False;
FClosing := False;
Chromium1.RuntimeStyle := CEF_RUNTIME_STYLE_ALLOY;
Chromium1.DefaultURL := UTF8Decode(AddressEdt.Text);
end;