| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Не понятно работает ImageList1.GetBitmap [D7, XP]
ambhtr © (2007-07-24 15:47:00)Пытаюсь модифицировать пример из http://delphiworld.narod.ru/base/app_anim_icon.html
Делаю "динамическую картинку" в Image1: TImage;
В обработчике Timer1Timer вставил следующий код:
ImageList1.GetBitmap(imgindex,Image1.Picture.Bitmap);
Image1.Refresh;
imgindex := imgindex + 1;
if imgindex > 5 then imgindex := 0;
Однако, битмапы в Image1 добавляются один на другой, а не сменяя друг друга. Подскажите, пожалуйста, как можно избежать этого.
Т.е. как сделать, чтобы картинки высвечивались каждая отдельно?
ambhtr (2007-07-25 09:19:00) [1]
> MsGuns
Большое спасибо!!!
MsGuns (2007-07-24 21:22:00) [2]Image1.Picture := nil;
ImageList1.GetBitmap(imgindex,Image1.Picture.Bitmap);
ambhtr (2007-07-24 16:09:00) [3]Пробовал и:
Image1.Transparent := True;
пробовал и:
Image1.Transparent := False;
Все равно идут наложения изображений. Т.е. у меня рисунки представляют собой сегменты круга. По замыслу сегмент должен кружиться, а получается, что он за один оборот заполняет весь круг и потом я вижу только один "черный" круг.
clickmaker (2007-07-24 16:02:00) [4]
> один на другой, а не сменяя друг друга
то есть? Transparent = true?
| |
