[Boss.king]

Здравствуйте !!! как в делфи добавить картинку анимацию gif ??

[NumLock]

через класс TGIFImage

[Boss.king]

А по другому можно как то?? может куомпоненты какие то есть для делфи чтоб вставить анимашку??

[M.A.D.M.A.N.]

Можно поискать описание формата файла, да самому покадрово рисовать.

[NumLock]

можно по-другому:
-кинуть на форму TWebBrowser
-загрузить в TWebBrowser страничку с gif

можно еще по-другому:
-конвертировать gif в avi
-кинуть на форму TMediaPlayer
-загрузить в TMediaPlayer этот avi

можно еще более по-другому:
-конвертировать gif в кадры bmp
-кинуть на форму TImage
-загружать циклически в таймере кадры в TImage

но я бы через gdiplus поигрался...

[icsander]

-кинуть на форму TMediaPlayer - TAnimate

[NumLock]

для 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;

[angvelem]

Все упорно забывают про старую библиотеку RxLib.