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

LCL: TIdleTimer: fire on idle

Browse Source 
git-svn-id: trunk@19439 -
This commit is contained in:
mattias 2009-04-15 09:51:02 +00:00
parent 33895f9399
commit 04d02eda27
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/idletimer.inc
View File

@ -30,16 +30,16 @@ end;
procedure TCustomIdleTimer.DoOnIdle(Sender: TObject; var Done: Boolean);
begin
if FFireOnIdle then begin
DoOnTimer;
Done:=not FFireOnIdle;
end;
if not AutoEnabled then exit;
// automatic start, stop or restart
if AutoEndEvent=itaOnIdle then
Enabled:=false;
if AutoStartEvent=itaOnIdle then
Enabled:=true;
if FFireOnIdle then begin
DoOnTimer;
Done:=not FFireOnIdle;
end;
end;
procedure TCustomIdleTimer.DoOnIdleEnd(Sender: TObject);