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

Faster browser destruction

Browse Source 
Faster browser destruction. All timers have been removed from the demos.
Removed unnecessary client handler class in TChromium. Now there's only
an interface.
Fixed an old memory leak in popup windows.
This commit is contained in:
Salvador Diaz Fau
2017-06-11 17:48:20 +02:00
parent d0c7e0926e
commit 830117e0ca
47 changed files with 1118 additions and 864 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
demos/ToolBoxBrowser/uMainForm.pas
View File

@ -53,18 +53,17 @@ uses
const
CEFBROWSER_CREATED = WM_APP + $100;
CEFBROWSER_CHILDDESTROYED = WM_APP + $101;
CEFBROWSER_DESTROY = WM_APP + $102;
type
TMainForm = class(TForm)
Button1: TButton;
Edit1: TEdit;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
// Variables to control when can we destroy the form safely
FCanClose : boolean; // Set to True when the final timer is triggered
FCanClose : boolean; // Set to True when all the child forms are closed
FClosing : boolean; // Set to True in the CloseQuery event.
procedure CreateToolboxChild(const ChildCaption, URL: string);
@ -95,8 +94,7 @@ uses
// Destruction steps
// =================
// 1. Destroy all child forms
// 2. Enable a Timer and wait for 1 second
// 3. Close and destroy the main form
// 2. Wait until all the child forms are closed before closing the main form and terminating the application.
procedure TMainForm.CreateToolboxChild(const ChildCaption, URL: string);
var
@ -182,17 +180,6 @@ begin
end;
end;
procedure TMainForm.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
if not(FCanClose) then
begin
FCanClose := True;
PostMessage(self.Handle, WM_CLOSE, 0, 0);
end;
end;
procedure TMainForm.Button1Click(Sender: TObject);
begin
CreateToolboxChild('Browser', Edit1.Text);
@ -203,8 +190,8 @@ begin
// If there are no more child forms we can destroy the main form
if FClosing and (ChildFormCount = 0) then
begin
ShowWindow(Handle, SW_HIDE);
Timer1.Enabled := True;
FCanClose := True;
PostMessage(Handle, WM_CLOSE, 0, 0);
end;
end;