Не понятно работает 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

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

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