VPF::Анимированная иконка в таскбаре

Dimich

Дата 25.1.2005, 12:10 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 247
Регистрация: 25.8.2004
Где: Брянск

Репутация: 1
Всего: 7

Доброе время суток!
Вот проблемка: хочу сделать для программы в таскбаре анимированную иконку. Заготовил набор иконок - фазы анимации, положил на форму TImageList, засунул эти иконки туда. Кинул на форму TTimer, и пишу примерно следующий код:

Код


var
 i : integer;
 Icon : TIcon;

procedure TForm1.FormCreate(Sender: TObject);
begin
 i := 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 ImageList1.GetIcon(i, Icon);
 Application.Icon := Icon;
 Inc (i);
 if i > 58 then i := 0;
end;

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

--------------------

Не работает - исправь, работает - не трогай!!!

Akella

Дата 25.1.2005, 16:34 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

попробуй засунуть в отдельный поток (Thread)

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »