pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions Releases Activity

Added GlobalCEFWorkScheduler and GlobalFMXWorkScheduler global variables

Browse Source
This commit is contained in:
Salvador Díaz Fau
2018-04-07 20:24:55 +02:00
parent eae6172ef3
commit 62580730d2
18 changed files with 45 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
demos/FMXExternalPumpBrowser/uFMXApplicationService.pas
View File

@@ -77,6 +77,7 @@ implementation
uses
FMX.Forms,
uFMXExternalPumpBrowser,
uFMXWorkScheduler,
{$IFDEF MSWINDOWS}
Winapi.Messages, Winapi.Windows,
{$ENDIF}
@@ -135,7 +136,11 @@ end;
function TFMXApplicationService.Running: Boolean;
begin
{$IFDEF DELPHI24_UP}
Result := OldFMXApplicationService.Running;
{$ELSE}
Result := True;
{$ENDIF}
end;
function TFMXApplicationService.HandleMessage: Boolean;
@@ -179,12 +184,6 @@ begin
(Application.MainForm is TFMXExternalPumpBrowserFrm) then
TFMXExternalPumpBrowserFrm(Application.MainForm).HandleSYSKEYUP(TempMsg);
CEF_AFTERCREATED :
if not(Application.Terminated) and
(Application.MainForm <> nil) and
(Application.MainForm is TFMXExternalPumpBrowserFrm) then
TFMXExternalPumpBrowserFrm(Application.MainForm).DoBrowserCreated;
CEF_PENDINGRESIZE :
if not(Application.Terminated) and
(Application.MainForm <> nil) and
@@ -193,8 +192,8 @@ begin
CEF_PUMPHAVEWORK :
if not(Application.Terminated) and
(GlobalCEFWorkScheduler <> nil) then
GlobalCEFWorkScheduler.ScheduleWork(TempMsg.lParam);
(GlobalFMXWorkScheduler <> nil) then
GlobalFMXWorkScheduler.ScheduleWork(TempMsg.lParam);
end;
{$ENDIF}