|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
как в делфи добавить картинку анимацию gif ??
Здравствуйте !!! как в делфи добавить картинку анимацию gif ??
|
#2
|
||||
|
||||
через класс TGIFImage
Пишу программы за еду. __________________ |
#3
|
|||
|
|||
А по другому можно как то?? может куомпоненты какие то есть для делфи чтоб вставить анимашку??
|
#4
|
||||
|
||||
Можно поискать описание формата файла, да самому покадрово рисовать.
|
#5
|
||||
|
||||
можно по-другому:
-кинуть на форму TWebBrowser -загрузить в TWebBrowser страничку с gif можно еще по-другому: -конвертировать gif в avi -кинуть на форму TMediaPlayer -загрузить в TMediaPlayer этот avi можно еще более по-другому: -конвертировать gif в кадры bmp -кинуть на форму TImage -загружать циклически в таймере кадры в TImage но я бы через gdiplus поигрался... Пишу программы за еду. __________________ Последний раз редактировалось NumLock, 11.03.2012 в 13:49. |
#6
|
|||
|
|||
-кинуть на форму TMediaPlayer - TAnimate
|
#7
|
||||
|
||||
для Delphi 7 компонент TGdipGIF:
http://narod.ru/disk/44227306001.997...ipGIF.rar.html пример: http://narod.ru/disk/44227256001.35f....Test.rar.html Код:
public property FrameCount: Integer read GetFrameCount; property FrameDelay: TArrayOfFrameDelay read FFrameDelay; procedure LoadFromStream(Stream: TStream); procedure LoadFromFile(const Filename: String); procedure LoadFromResource(ResName: String); function PictureWidth: Integer; function PictureHeight: Integer; published property AutoSize; property Align; property Anchors; property Color; property Visible; property Active: Boolean read FActive write SetActive default False; property BevelInner: TBevelCut read FBevelInner write SetBevelInner default bvRaised; property BevelOuter: TBevelCut read FBevelOuter write SetBevelOuter default bvNone; property Center: Boolean read FCenter write SetCenter default False; property Stretch: Boolean read FStretch write SetStretch default False; Пишу программы за еду. __________________ |
#8
|
||||
|
||||
Все упорно забывают про старую библиотеку RxLib.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |