Анимированная иконка
Анимированная, причем не просто иконка, а та, что в левом верхнем углу формы. Применение этого класса очень удобно, если вы хотите показать, что ваша программа не повисла,а ведет какие-то свои подсчеты и просто не трогает хард - раз иконка анимируется, значит мы еще живы.
Теперь выберите место в программе перед каким-нибудь больним вычислением или поиском и вставьте нижеследующий код ...
&& Классу необходимо передать массив, содержащий названия файлов-иконок:
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 && пол-секунды
&& Вот и все 🙂
Вложенные файлы
# |
Тип файла |
Размер |
Название |
---|---|---|---|
1 | .zip | 4,40 КБ | anim |