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

ExternalPumpBrowser: Fix thread handling

Browse Source
This commit is contained in:
martin
2021-02-24 20:09:52 +01:00
parent 70042ffc67
commit 08d8c3076f
2 changed files with 22 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
demos/Lazarus_Mac/ExternalPumpBrowser/uExternalPumpBrowser.pas
View File

@ -88,10 +88,9 @@ type
procedure WMSize(var Message: TLMSize); message LM_SIZE;
procedure WMWindowPosChanged(var Message: TLMWindowPosChanged); message LM_WINDOWPOSCHANGED;
procedure SendCompMessage(aMsg : cardinal);
procedure BrowserCreatedMsg(Data: PtrInt);
procedure BrowserCloseFormMsg(Data: PtrInt);
procedure BrowserFocusMsg(Data: PtrInt);
procedure BrowserBeforeCloseMsg(Data: PtrInt);
public
end;
@ -203,13 +202,13 @@ begin
// We must wait until all browsers trigger the TChromium.OnBeforeClose event
// in order to close the application safely or we will have shutdown issues.
FCanClose := True;
SendCompMessage(CEF_BEFORECLOSE);
Application.QueueAsyncCall(@BrowserBeforeCloseMsg, 0);
end;
procedure TForm1.Chromium1AfterCreated(Sender: TObject; const browser: ICefBrowser);
begin
// Now the browser is fully initialized we can initialize the UI.
SendCompMessage(CEF_AFTERCREATED);
Application.QueueAsyncCall(@BrowserCreatedMsg, 0);
end;
procedure TForm1.CEFLinkedWindowParent1Enter(Sender: TObject);
@ -234,22 +233,19 @@ begin
AddressPnl.Enabled := True;
end;
procedure TForm1.BrowserCloseFormMsg(Data: PtrInt);
procedure TForm1.BrowserFocusMsg(Data: PtrInt);
begin
CEFLinkedWindowParent1.SetFocus;
end;
procedure TForm1.BrowserBeforeCloseMsg(Data: PtrInt);
begin
Close;
end;
procedure TForm1.SendCompMessage(aMsg : cardinal);
begin
case aMsg of
CEF_AFTERCREATED : Application.QueueAsyncCall(@BrowserCreatedMsg, 0);
CEF_BEFORECLOSE : Application.QueueAsyncCall(@BrowserCloseFormMsg, 0);
end;
end;
procedure TForm1.Chromium1GotFocus(Sender: TObject; const browser: ICefBrowser);
begin
CEFLinkedWindowParent1.SetFocus;
Application.QueueAsyncCall(@BrowserFocusMsg, 0);
end;
procedure TForm1.WMMove(var Message: TLMMove);

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

@ -92,10 +92,9 @@ type
procedure WMExitMenuLoop(var aMessage: TMessage); message WM_EXITMENULOOP;
{$ENDIF}
procedure SendCompMessage(aMsg : cardinal);
procedure BrowserCreatedMsg(Data: PtrInt);
procedure BrowserCloseFormMsg(Data: PtrInt);
procedure BrowserFocusMsg(Data: PtrInt);
procedure BrowserBeforeCloseMsg(Data: PtrInt);
public
end;
@ -211,13 +210,13 @@ begin
// We must wait until all browsers trigger the TChromium.OnBeforeClose event
// in order to close the application safely or we will have shutdown issues.
FCanClose := True;
SendCompMessage(CEF_BEFORECLOSE);
Application.QueueAsyncCall(@BrowserBeforeCloseMsg, 0);
end;
procedure TForm1.Chromium1AfterCreated(Sender: TObject; const browser: ICefBrowser);
begin
// Now the browser is fully initialized we can initialize the UI.
SendCompMessage(CEF_AFTERCREATED);
Application.QueueAsyncCall(@BrowserCreatedMsg, 0);
end;
procedure TForm1.CEFLinkedWindowParent1Enter(Sender: TObject);
@ -242,22 +241,19 @@ begin
AddressPnl.Enabled := True;
end;
procedure TForm1.BrowserCloseFormMsg(Data: PtrInt);
procedure TForm1.BrowserFocusMsg(Data: PtrInt);
begin
CEFLinkedWindowParent1.SetFocus;
end;
procedure TForm1.BrowserBeforeCloseMsg(Data: PtrInt);
begin
Close;
end;
procedure TForm1.SendCompMessage(aMsg : cardinal);
begin
case aMsg of
CEF_AFTERCREATED : Application.QueueAsyncCall(@BrowserCreatedMsg, 0);
CEF_BEFORECLOSE : Application.QueueAsyncCall(@BrowserCloseFormMsg, 0);
end;
end;
procedure TForm1.Chromium1GotFocus(Sender: TObject; const browser: ICefBrowser);
begin
CEFLinkedWindowParent1.SetFocus;
Application.QueueAsyncCall(@BrowserFocusMsg, 0);
end;
procedure TForm1.WMMove(var Message: TLMMove);