Скачать: CL | DM;

Не понятно работает ImageList1.GetBitmap   Найти похожие ветки 

← →
ambhtr   (2007-07-24 15:47) [0]

Пытаюсь модифицировать пример из 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 добавляются один на другой, а не сменяя друг друга. Подскажите, пожалуйста, как можно избежать этого.
Т.е. как сделать, чтобы картинки высвечивались каждая отдельно?

---

← →
clickmaker ©   (2007-07-24 16:02) [1]

> один на другой, а не сменяя друг друга

то есть? Transparent = true?

---

← →
ambhtr   (2007-07-24 16:09) [2]

Пробовал и:
Image1.Transparent := True;
пробовал и:
Image1.Transparent := False;
Все равно идут наложения изображений. Т.е. у меня рисунки представляют собой сегменты круга. По замыслу сегмент должен кружиться, а получается, что он за один оборот заполняет весь круг и потом я вижу только один "черный" круг.

---

← →
MsGuns ©   (2007-07-24 21:22) [3]

Image1.Picture := nil;
ImageList1.GetBitmap(imgindex,Image1.Picture.Bitmap);

---

← →
ambhtr   (2007-07-25 09:19) [4]

> MsGuns

Большое спасибо!!!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c