From 2a4e9585c64a58e330eec08bbdcbaf8eda3096fc Mon Sep 17 00:00:00 2001 From: vincents Date: Wed, 1 Dec 2004 22:38:36 +0000 Subject: [PATCH] fixed error, when more than one timer was disabled in a timer callback. git-svn-id: trunk@6319 - --- lcl/interfaces/win32/win32callback.inc | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc index 069e505d2c..9582063bb0 100644 --- a/lcl/interfaces/win32/win32callback.inc +++ b/lcl/interfaces/win32/win32callback.inc @@ -1468,8 +1468,10 @@ begin while (n>0) do begin dec(n); TimerInfo := FTimerData[n]; - if TimerInfo^.TimerID=idEvent - then TimerInfo^.TimerFunc; + if TimerInfo^.TimerID=idEvent then begin + TimerInfo^.TimerFunc; + break; + end; end; end; @@ -1480,6 +1482,9 @@ end; { $Log$ + Revision 1.170 2004/12/01 22:38:36 vincents + fixed error, when more than one timer was disabled in a timer callback. + Revision 1.169 2004/11/26 12:26:13 vincents implemented SelectionChange event