Анимированная иконка
Анимированная, причем не просто иконка, а та, что в левом верхнем углу формы.
Применение этого класса очень удобно, если вы хотите показать, что ваша программа
не повисла,а ведет какие-то свои подсчеты и просто не трогает хард - раз иконка
анимируется, значит мы еще живы.
Скачайте класс ...
Теперь выберите место в программе перед каким-нибудь больним вычислением или
поиском и вставьте нижеследующий код ...
&& Классу необходимо передать массив, содержащий названия файлов-иконок:
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 && пол-секунды
&& Вот и все :)
|