TCustomImageList.InsertImage и ImageList_Copy
Добрый день!
Кто-нибудь сталкивался с подобной проблемой?
Делаю дублирование картинки в TListImag'е:
ABitmap := TBitmap.Create();
try
ACurrImageIndex := GetImageIndex();
Images.GetBitmap(ACurrImageIndex,ABitmap);
Images.Insert(ACurrImageIndex,ABitmap, nil);
finally
System.SysUtils.FreeAndNil(ABitmap);
end;
При первом вызове картинка вставляется в конец коллекции изображений. При последующих вызовах все выполняется корректно.
Такое ощущение, что происходит непонятное при первом вызове ImageList_Copy(Handle, I, Handle, I + 1, ILCF_SWAP)
В чем может быть причина и как ее можно решать?