| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TImageList и последовательности картинок для TAnimatedImage [D5, XP]
harisma © (2007-08-31 13:14:00)Есть компонента 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.
В чем проблема?
Ega23 (2007-08-31 13:29:00) [1]Создай свой TAnimatedImageList
@!!ex (2007-08-31 13:23:00) [2]> [0] harisma (31.08.07 13:14)
А нафига использовать какой то компонент?
IMageList успешно умеет себя быстро рисовать прямо на форме, или на ImageLIst'e.
| |
