paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 23:19:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-CustomDrawn-X11: Fixes timers with zero interval, adds support for Application.Idle calling and more checks for Terminated

Browse Source 
git-svn-id: trunk@34356 -
This commit is contained in:
sekelsenmat 2011-12-21 17:01:22 +00:00
parent ecf3f41b11
commit 383db45538
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/customdrawn/customdrawnobject_x11.inc
View File

@ -432,9 +432,11 @@ begin
lTimeoutInterval := GetSmallestTimerInterval();
// Limit the maximum interval, even if only to process Application.OnIdle or
// for general safety
if (lTimeoutInterval <= 0) or (lTimeoutInterval >= 1000) then lTimeoutInterval := 1000;
if (lTimeoutInterval < 0) or (lTimeoutInterval >= 1000) then lTimeoutInterval := 1000;
// To avoid consuming too much CPU, if the interval is zero, act as if it was 1
if lTimeoutInterval = 0 then lTimeoutInterval := 1;
while True do
while not Application.Terminated do
begin
xconnnum := XConnectionNumber(FDisplay);
XFlush(FDisplay);
@ -470,7 +472,12 @@ begin
if selectresult <> 0 then // We got a X event or the timeout happened
Exit
else
Continue; // nothing further to do here!
begin
// Process standard application Idle
if not Application.Terminated then Application.Idle(False);
Continue; // Go back and keep waiting for a message
end;
end;
end;
{$endif}