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

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

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

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

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

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

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

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 && пол-секунды

&& Вот и все 🙂

Автор: Неизвестно
0

Автор публикации

не в сети 2 месяца

Joys

2
Комментарии: 4Публикации: 194Регистрация: 25-06-2000
Вложенные файлы
#
Тип файла
Размер
Название
1 .zip 4,40 КБ anim
Оставить комментарий
Авторизация
*
*
Генерация пароля