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

LCL: fixed test for new value in Timer.SetOnTimer (bug #9078)

Browse Source 
git-svn-id: trunk@11449 -
This commit is contained in:
vincents 2007-07-09 11:16:49 +00:00
parent abc335dd5a
commit 8b59cbf44e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/customtimer.pas
View File

@ -161,7 +161,8 @@ end;
------------------------------------------------------------------------------}
procedure TCustomTimer.SetOnTimer (value : TNotifyEvent);
begin
if Value=FOnTimer then exit;
// Value=FOnTimer only compares code part
if CompareByte(Value,FOnTimer,SizeOf(Value))=0 then exit;
FOnTimer := value;
UpdateTimer;
end;