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

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

9
demos/Lazarus_Windows/JavaScript/JSDialog/uJSDialogBrowser.lfm
View File

@ -15,7 +15,7 @@ object JSDialogBrowserFrm: TJSDialogBrowserFrm
OnDestroy = FormDestroy
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.0.6.0'
LCLVersion = '3.4.0.0'
object ChromiumWindow1: TChromiumWindow
Left = 0
Height = 603
@ -37,6 +37,7 @@ object JSDialogBrowserFrm: TJSDialogBrowserFrm
ClientHeight = 21
ClientWidth = 1038
Enabled = False
ParentBackground = False
TabOrder = 1
object AddressEdt: TEdit
Left = 0
@ -54,15 +55,15 @@ object JSDialogBrowserFrm: TJSDialogBrowserFrm
Width = 31
Align = alRight
Caption = 'Go'
OnClick = GoBtnClick
TabOrder = 1
OnClick = GoBtnClick
end
end
object Timer1: TTimer
Enabled = False
Interval = 300
OnTimer = Timer1Timer
left = 56
top = 88
Left = 56
Top = 88
end
end

15
demos/Lazarus_Windows/JavaScript/JSDialog/uJSDialogBrowser.pas
View File

@ -28,14 +28,16 @@ type
AddressEdt: TEdit;
GoBtn: TButton;
Timer1: TTimer;
procedure CEFSentinel1Close(Sender: TObject);
procedure GoBtnClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ChromiumWindow1AfterCreated(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure ChromiumWindow1AfterCreated(Sender: TObject);
procedure ChromiumWindow1Close(Sender: TObject);
procedure ChromiumWindow1BeforeClose(Sender: TObject);
@ -103,6 +105,7 @@ begin
FCallback := nil;
FCanClose := False;
FClosing := False;
ChromiumWindow1.ChromiumBrowser.RuntimeStyle := CEF_RUNTIME_STYLE_ALLOY;
end;
procedure TJSDialogBrowserFrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
@ -145,12 +148,6 @@ begin
ChromiumWindow1.LoadURL(AddressEdt.Text);
end;
procedure TJSDialogBrowserFrm.CEFSentinel1Close(Sender: TObject);
begin
FCanClose := True;
PostMessage(Handle, WM_CLOSE, 0, 0);
end;
procedure TJSDialogBrowserFrm.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;