Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 2011-01

TTrayIcon.Animate - Minor Repair

3 messages · 3 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Perpetual Newbie II

No indication of who to thank for this component in the header ... thanks all the same.

I ran into a problem swapping image lists [Icons property] where an Index error would be thrown. One imagelist has 150 images, the other has 40. Swapping from the big one when the index [FCurAnimationStep] was over 40 to the small one is where the error would be thrown. By intentionally slowing down the animation I could recreate the :
FCurAnimationStep := 0;
to the end of
procedure TCustomTrayIcon.SetIcons(const AValue: TCustomImageList); in the file;
customtrayicon.inc
fixes the problem nicely but I don't know if it breaks anything else.

Lazarus 0.9.31 on Ubuntu [Wubi] 10.04.1

Thanks all.

Dave

Reply by email