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 79.1.31

Browse Source 
- Fixed an issue with the RETURN key not working in the FMXExternalPumpBrowser demo.
- Moved CEF_SHOWBROWSER constant to the main form unit and removed the DoChildDestroyed procedure in the FMXToolBoxBrowser demo.
- Removed references to the TFMXApplicationService in the SimpleFMXBrowser demo comments.
This commit is contained in:
Salvador Díaz Fau
2020-01-17 11:39:27 +01:00
parent 91a845e42f
commit ec244b75d1
8 changed files with 37 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
demos/Delphi_FMX/FMXToolBoxBrowser/uMainForm.pas
View File

@ -53,6 +53,7 @@ uses
const
CEF_CHILDDESTROYED = WM_APP + $100;
CEF_INITIALIZED = WM_APP + $101;
CEF_SHOWBROWSER = WM_APP + $102;
type
TMainForm = class(TForm)
@ -92,7 +93,6 @@ type
public
procedure DoCEFInitialized;
procedure DoChildDestroyed;
procedure SendChildDestroyedMsg;
property ChildClosing : boolean read GetChildClosing;
@ -211,8 +211,15 @@ begin
UpdateCustomWindowState;
end;
CEF_INITIALIZED : DoCEFInitialized;
CEF_CHILDDESTROYED : DoChildDestroyed;
CEF_CHILDDESTROYED :
if FClosing and (ChildFormCount = 0) then
begin
// If there are no more child forms we can destroy the main form
FCanClose := True;
PostCustomMessage(WM_CLOSE);
end;
CEF_INITIALIZED : DoCEFInitialized;
end;
aMessage.Result := CallWindowProc(FOldWndPrc, FmxHandleToHWND(Handle), aMessage.Msg, aMessage.wParam, aMessage.lParam);
@ -402,16 +409,6 @@ begin
cursor := crDefault;
end;
procedure TMainForm.DoChildDestroyed;
begin
// If there are no more child forms we can destroy the main form
if FClosing and (ChildFormCount = 0) then
begin
FCanClose := True;
PostCustomMessage(WM_CLOSE);
end;
end;
procedure TMainForm.SendChildDestroyedMsg;
begin
PostCustomMessage(CEF_CHILDDESTROYED);