Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Новый участник


Сообщения: 29
Благодарности: 0

Профиль | Отправить PM | Цитировать


Вложения
Тип файла: zip animok.zip
(491.7 Kb, 27 просмотров)

Iska, так не понятно же что он хочет) и врятли через фотошоп открывается по умолчанию картинка))) но думаю он хочет чтоб у него картинка бегала его по рабочему столу))) делфи в помощь))

Как минимум Delphi 2007в нее входит модуль GifImg, который позволяет проигрывать Gif анимацию.

Ниже привожу пример его использования (Gif анимация в Delphi) :

На форме надо разместить компонент TImage и TButton и в папку с проектом скопировать Gif файл.
Код: Выделить весь код
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Gif: TGifImage;

implementation

{$R *.dfm}

//При нажатии на кнопку загружаем анимацию в Image1
procedure TForm1.Button1Click(Sender: TObject);
begin
//создаем объект gif
    Gif := TGifImage.Create;
//загружаем gif файл
    Gif.LoadFromFile('имя файла.gif');
//включаем анимацию
    Gif.Animate := True;
//задаем ширину и высоту объекта Image1 по размерам Gif
    Image1.Width:=Gif.Width;
    Image1.Height:=Gif.Height;
//Подключаем Image1 к Gif
    Image1.Picture.Assign(Gif);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//освобождаем объект Gif
 Gif.Free;
end;

end.
шаблон прикрепил, закрывается через диспетчер задач

Последний раз редактировалось NibelungXXX, 30-07-2013 в 16:41.


Отправлено: 16:35, 30-07-2013 | #7