paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 18:39:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

Implements iterating through icons in TTrayIcon

Browse Source 
git-svn-id: trunk@27583 -
This commit is contained in:
sekelsenmat 2010-10-05 15:27:22 +00:00
parent 24af2168c1
commit e9e423f664
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/customtrayicon.inc
View File

@ -182,6 +182,11 @@ begin
FIcons.GetBitmap(FCurAnimationStep, lBitmap); FIcons.GetBitmap(FCurAnimationStep, lBitmap);
FIcon.Assign(lBitmap); FIcon.Assign(lBitmap);
InternalUpdate(); InternalUpdate();
// Code to iterate throw the icons
Inc(FCurAnimationStep);
if FCurAnimationStep >= FIcons.Count then
FCurAnimationStep := 0;
finally finally
lBitmap.Free; lBitmap.Free;
end; end;