Анимированная иконка

Анимированная, причем не просто иконка, а та, что в левом верхнем углу формы. Применение этого класса очень удобно, если вы хотите показать, что ваша программа не повисла,а ведет какие-то свои подсчеты и просто не трогает хард - раз иконка анимируется, значит мы еще живы.

Скачайте класс ...

Теперь выберите место в программе перед каким-нибудь больним вычислением или поиском и вставьте нижеследующий код ...

&& Классу необходимо передать массив, содержащий названия файлов-иконок:

LOCAL laIconList
DIMENSION laIconList[4]
laIconList[1]="icon01.ico"
laIconList[2]="icon02.ico"
laIconList[3]="icon03.ico"
laIconList[4]="icon04.ico"

&& Теперь нужно программа создать объект таймера:

SET CLASSLIB TO animate
THISFORM.ADDOBJECT("tmrIcon","animicon",@laIconList)

&& И наконец, вам нужно активизировать таймер путем установки интервала:

THISFORM.tmrIcon.Interval=500 && пол-секунды

&& Вот и все :)