TImageList и последовательности картинок для TAnimatedImage

← →
harisma (2007-08-31 13:14) [0]

Есть компонента TAnimatedImage из коллекции TRXLib.
Есть стандартный компонент TImageList
Есть несколько *.bmp" картинок, являющихся последовательностямии рисунков для анимированного их отображения в компоненте TAnimatedImage.
Проблема: Когда я их добавляю в TImageList, то потом в TAnimatedImage эти картинки получаются очень кривые. Анимации вообще никакой не получается. (Реализация анимации реализована в коде примерно следующего вида:
procedure TMainClientForm.BusyIndicatorLoadPicture(AIndex: integer); var LBmp: TBitmap; begin LBmp := TBitmap.Create; try if (AIndex < 1) or (AIndex >= imgBIS.Count) then AIndex := 1; imgBIS.GetBitmap(AIndex - 1, LBmp); aiBusy.Glyph := LBmp; aiBusy.NumGlyphs := LBmp.Width div aiBusy.Width; aiBusy.InactiveGlyph := aiBusy.NumGlyphs - 1; finally FreeAndNil(LBmp); end end;

где imbBIS - TImageList;
aiBusy - TAnimatedImage.
В чем проблема?

← →
@!!ex © (2007-08-31 13:23) [1]

> [0] harisma (31.08.07 13:14)

А нафига использовать какой то компонент?
IMageList успешно умеет себя быстро рисовать прямо на форме, или на ImageLIst"e.

Создай свой TAnimatedImageList

TImageList и последовательности картинок для TAnimatedImage Найти похожие ветки