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

14
demos/Lazarus_Windows/SubProcess/uSimpleBrowser.pas
View File

@ -25,14 +25,18 @@ type
AddressEdt: TEdit;
GoBtn: TButton;
Timer1: TTimer;
procedure CEFSentinel1Close(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure GoBtnClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ChromiumWindow1AfterCreated(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure ChromiumWindow1AfterCreated(Sender: TObject);
procedure ChromiumWindow1Close(Sender: TObject);
procedure ChromiumWindow1BeforeClose(Sender: TObject);
private
// You have to handle this two messages to call NotifyMoveOrResizeStarted or some page elements will be misaligned.
procedure WMMove(var aMessage : TWMMove); message WM_MOVE;
@ -155,9 +159,9 @@ begin
ChromiumWindow1.LoadURL(AddressEdt.Text);
end;
procedure TForm1.CEFSentinel1Close(Sender: TObject);
procedure TForm1.FormCreate(Sender: TObject);
begin
ChromiumWindow1.ChromiumBrowser.RuntimeStyle := CEF_RUNTIME_STYLE_ALLOY;
end;
procedure TForm1.Timer1Timer(Sender: TObject);