Текущий архив: 2007.09.23;
Скачать: 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 вся ветка
Текущий архив: 2007.09.23;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.045 c
