mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2025-04-17 06:57:13 +02:00
f764c39cc1
Remove the outdated license text. Use the main cef.inc file in all Delphi demos. Fixed issue #493.
98 lines
2.2 KiB
ObjectPascal
98 lines
2.2 KiB
ObjectPascal
unit uCEF4DelphiLoader;
|
|
|
|
{$I ..\..\..\source\cef.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
{$IFDEF DELPHI16_UP}
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
|
|
{$ELSE}
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics,
|
|
Controls, Forms, Dialogs, StdCtrls;
|
|
{$ENDIF}
|
|
|
|
type
|
|
TForm1 = class(TForm)
|
|
InitializeBtn: TButton;
|
|
ShowBtn: TButton;
|
|
FinalizeBtn: TButton;
|
|
CloseBtn: TButton;
|
|
procedure InitializeBtnClick(Sender: TObject);
|
|
procedure ShowBtnClick(Sender: TObject);
|
|
procedure FinalizeBtnClick(Sender: TObject);
|
|
procedure CloseBtnClick(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
|
private
|
|
FInitialized : boolean;
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
procedure InitializeCEF4Delphi; stdcall; external 'DLLBrowser.dll';
|
|
procedure FinalizeCEF4Delphi; stdcall; external 'DLLBrowser.dll';
|
|
procedure ShowBrowser; stdcall; external 'DLLBrowser.dll';
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
// ****************************************
|
|
// READ THE CODE COMMENTS IN DLLBROWSER.DPR
|
|
// ****************************************
|
|
|
|
// To test this demo you need to build the CEF4DelphiLoader, DLLBrowser and SubProcess projects found in this directory.
|
|
|
|
procedure TForm1.CloseBtnClick(Sender: TObject);
|
|
begin
|
|
close;
|
|
end;
|
|
|
|
procedure TForm1.FinalizeBtnClick(Sender: TObject);
|
|
begin
|
|
FinalizeCEF4Delphi;
|
|
|
|
ShowBtn.Enabled := False;
|
|
FinalizeBtn.Enabled := False;
|
|
CloseBtn.Enabled := True;
|
|
end;
|
|
|
|
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
|
begin
|
|
if FInitialized then FinalizeCEF4Delphi;
|
|
|
|
CanClose := True;
|
|
end;
|
|
|
|
procedure TForm1.FormCreate(Sender: TObject);
|
|
begin
|
|
FInitialized := False;
|
|
end;
|
|
|
|
procedure TForm1.InitializeBtnClick(Sender: TObject);
|
|
begin
|
|
InitializeCEF4Delphi;
|
|
|
|
FInitialized := True;
|
|
|
|
InitializeBtn.Enabled := False;
|
|
ShowBtn.Enabled := True;
|
|
FinalizeBtn.Enabled := True;
|
|
end;
|
|
|
|
procedure TForm1.ShowBtnClick(Sender: TObject);
|
|
begin
|
|
ShowBrowser;
|
|
|
|
ShowBtn.Enabled := False;
|
|
end;
|
|
|
|
end.
|
|
|
|
|