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:
parent
002a21e6d6
commit
aaf512a419
@ -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;
|
||||
|
@ -2,7 +2,7 @@
|
||||
"UpdateLazPackages" : [
|
||||
{
|
||||
"ForceNotify" : true,
|
||||
"InternalVersion" : 254,
|
||||
"InternalVersion" : 255,
|
||||
"Name" : "cef4delphi_lazarus.lpk",
|
||||
"Version" : "88.2.5.0"
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user