Форум: "Начинающим";
Текущий архив: 2007.08.19;
Скачать: [xml.tar.bz2];
Вниз
Не понятно работает 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.08.19;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.046 c
