pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-07-02 22:26:53 +02:00
Code Issues Actions Releases Activity

Fix for duplicated resources in FMX apps made by SchneiderInfosystems

Browse Source 
- The FMX demos now load the initial web page using the TFMXChromium.DefaultUrl property.
- Added the $(FrameworkType) conditional define to all the FMX demos.
- Added the $(FrameworkType) conditional define to the CEF4Delphi_FMX project.
This commit is contained in:
Salvador Díaz Fau
2019-03-20 15:56:14 +01:00
parent 00cb710e59
commit 2ed976d906
13 changed files with 79 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
demos/FMXToolBoxBrowser/uFMXApplicationService.pas
View File

@ -189,22 +189,6 @@ begin
(Application.MainForm is TMainForm) then
TMainForm(Application.MainForm).DoChildDestroyed;
CEF_AFTERCREATED :
if not(Application.Terminated) then
begin
i := 0;
while (i < screen.FormCount) do
if (screen.Forms[i] is TChildForm) and
(TChildForm(screen.Forms[i]).BrowserID = TempMsg.lParam) then
begin
TChildForm(screen.Forms[i]).DoBrowserCreated;
i := screen.FormCount;
end
else
inc(i);
end;
CEF_DESTROY :
if not(Application.Terminated) then
begin