paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 01:55:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TTimer: checking csDesgning is no longer useful, since SetDesigning works recursive

Browse Source 
git-svn-id: trunk@30500 -
This commit is contained in:
mattias 2011-04-28 18:52:30 +00:00
parent ab52351a55
commit 1e43eccbfd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/customtimer.pas
View File

@ -129,7 +129,7 @@ procedure TCustomTimer.UpdateTimer;
begin begin
KillTimer; KillTimer;
if (FEnabled) and (FInterval > 0) if (FEnabled) and (FInterval > 0)
and (([csDesigning,csLoading,csDestroying]*ComponentState=[])) and (([csLoading,csDestroying]*ComponentState=[]))
and Assigned (FOnTimer) then begin and Assigned (FOnTimer) then begin
//DebugLn(['TCustomTimer.UpdateTimer ',dbgsName(Self),' WidgetSet.CreateTimer']); //DebugLn(['TCustomTimer.UpdateTimer ',dbgsName(Self),' WidgetSet.CreateTimer']);
FTimerHandle := WidgetSet.CreateTimer(FInterval, @Timer); FTimerHandle := WidgetSet.CreateTimer(FInterval, @Timer);