1
0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-04-07 06:50:04 +02:00

Fixed TFMXWorkScheduler.QueueThread_OnPulse. Only build it when USEQUEUETHREAD is defined.

This commit is contained in:
Salvador Diaz Fau 2021-02-11 21:07:22 +01:00
parent 002a21e6d6
commit aaf512a419
2 changed files with 6 additions and 6 deletions

View File

@ -225,6 +225,11 @@ begin
if CustomExceptionHandler('TFMXWorkScheduler.DestroyQueueThread', e) then raise;
end;
end;
procedure TFMXWorkScheduler.QueueThread_OnPulse(Sender : TObject; aDelay : integer);
begin
ScheduleWork(aDelay);
end;
{$ENDIF}
procedure TFMXWorkScheduler.DestroyThread;
@ -308,11 +313,6 @@ begin
if not(FStopped) then DoMessageLoopWork;
end;
procedure TFMXWorkScheduler.QueueThread_OnPulse(Sender : TObject; aDelay : integer);
begin
ScheduleWork(aDelay);
end;
procedure TFMXWorkScheduler.DoWork;
begin
DoMessageLoopWork;

View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [
{
"ForceNotify" : true,
"InternalVersion" : 254,
"InternalVersion" : 255,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "88.2.5.0"
}