Gif анимации

[Witaliy]

Как сделать gif анимацию із нескольких jpg (или bmp, png, ico...)

[N!ckeL]

Macromedia Flash - лично я только ей пользуюсь.

[Witaliy]

В Flash и ребенок сделает. Но как самостоятельно.

[Dj_smart]

Можно поставить компонент RxLib и не парится, а если вручную, то я предлагаю такое:
1.Создать кучу рисунков Image и дать им свойства Visible=false.
2. Чтобы при редактировании не мешали то widht и height в 0.
3. Можно поставить вместо первых 2 ImageList, но я их не люблю
4. Создать Timer и переменную.
В обработчик:

Inc(per);
if per>5 then per=0;
case per of
0: image1.picture.xxxxxxx:=image2.pict ure.xxxxxxx;
1: image1.picture.xxxxxxx:=image3.bitm ap.xxxxxxx;
................................... ...........
4: image1.picture.xxxxxxx:=image6.pict ure.xxxxxxx;
end;

4- количество кадров (5-1)

если bmp то xxxxxxx - bimap, если ico - то icon

набирал в вебе, так что за ошибки не отвечаю.

Ну и будет тебе счастье

[SunKnight]

Лучше будет создать 1 Image и массив из Bitmap`ов изображений. А потом в цикле их заменять.

[Dj_smart]

Так ведь именно об этом я и говорил. В case сперва image1.

[Witaliy]

а как ето сохранить у gif

[Dj_smart]

1. Ставишь RxLib (компонент RxGIFAnimator).
2. Если проблема как сделать GIF, то EasyGifAnimator тебе в помощь.

Rx Lib скачать.
Animator скачать.

[Witaliy]

спасибо!!!

[SunKnight]

Сообщение от Dj_smart

Так ведь именно об этом я и говорил. В case сперва image1.

Что Вы говорили? Создать кучу обьектов типа Image!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons;

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    Timer1: TTimer;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  mas:array [0..2] of TBitmap;
  i:word;
  img:array [0..2] of string;
implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
    img[0]:='D:\IM\0.bmp';
    img[1]:='D:\IM\1.bmp';
    img[2]:='D:\IM\2.bmp';
    for i:=0 to 2 do
    begin
        mas[i]:=TBitmap.Create;
        mas[i].LoadFromFile(img[i]);
    end;
    Timer1.Enabled:=true;
// это представлен простой пример загрузки файла, но так же можено 
//загружать ресурсы которые вы вставите в свое приложение.
//допустим так: 
//ResStream := TResourceStream.Create(HInstance,PChar('main2'), RT_RCDATA);
        //mas[i].LoadFromStream(ResStream);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
     for i:=0 to 2 do
    begin
        sleep(400);
        Form1.Canvas.Draw(0,0,mas[i]);// я использовал канву формы но так же можно Image.Canvas.Draw(0,0,mas[i]) ;
    end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    for i:=0 to 2 do
    begin
        mas[i].Free;
    end;
end;

end.