Анимированная иконка приложения
Материал из DRKB
Анимированная иконка приложения[править | править код]
Увидев анимацию на форме, мы не удивимся, но сейчас нам предстоит освоить более сложную технологию: мы попытаемся анимировать иконку приложения, ту самую, которая находится на панели задач на кнопке нашего exe-файла!
Сначала нужно будет создать каждый кадр потенциального анимационного клипа. Для этого запустим утилиту "Image Editor", которая в ходит в стандартный пакет Delphi. Запустить её можно одноимённой командой из меню Tools[инструменты]. Там создаём несколько bmp-файлов размером 16х16.
После чего возвращаемся в Delphi и выносим на форму компонент класса TImageList, дважды щёлкаем на нём и с помощью кнопки Add последовательно добавляем созданные кадры. В каком порядке изображения будут добавляться, в таком же порядке они затем будут выводится.
Далее выносим таймер[Timer], его свойство Interval устанавливаем в нужное значение[например - 5], и именно через заданное здесь количество миллисекунд будут меняться кадры. По событию OnTimer пишем такой код:
ImageList1.GetIcon(IconIndex, Application.Icon);
IconIndex := IconIndex + 1;
if IconIndex > 5 then
IconIndex := 0;
В строке [if IconIndex > 5 then IconIndex := 0;] число 5 замените на индекс последней иконки в вашем ImageList'e[это количество иконок -1]
Не забудьте объявить глобальную переменную IconIndex, которая должна быть типа Integer
А по созданию окна инициализируйте иконку приложения первым изображением в списке
IconIndex := 0;
ImageList1.GetIcon(IconIndex, Application.Icon);
Посмотрите на иконку программы ACDSee, которая показана в левом верхнем углу. На ней изображён глаз. По-моему, было бы довольно эффектно, если бы время от времени он подмигивал пользователю!
ID: 02355