Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Динамеческое создание TImageList

Автор: Toland2 17.4.2012, 19:57

Всем доброго времени суток!
Я тут решил разобраться со спрайтами, нашел в интернете спрайты из Warcraft III и взял один на пробу. Картинка 567х504, в которой 9 картинок по ширине и 8 по высоте. Кидаю на форму TImageList, выставляю свойства Height и Width на 63, выбираю свой спрайт и он успешно разбивается на 72 части. В общем всё работает как надо, но мне захотелось создать TImageList программно. Делаю я это вот так:

Код


procedure TForm1.FormCreate(Sender: TObject);
var
ImgList:TImageList;
bmp:TBitMap;
begin
bmp:=TBitMap.Create;
bmp.LoadFromFile('sprites\mage.bmp');
ImgList:=TImageList.Create(self);
ImgList.Height:=63;
ImgList.Width:=63;
imgList.AddMasked(bmp,clWhite);
bmp.free;
end;

Из этого спрайта загружаются только 9 картинок из первой строчки. Дальше пустота. Подскажите пожалуйста, что с этим делать?