Скачать: CL | DM;

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.

---

← →
Ega23 ©   (2007-08-31 13:29) [2]

Создай свой TAnimatedImageList

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c