From: "Finn Tolderlund" <no@spam.dk>
Newsgroups: borland.public.delphi.graphics
References: <3db053ba@newsgroups.borland.com>
Subject: Re: GIF Question
Date: Fri, 18 Oct 2002 22:04:02 +0200
Lines: 47
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
NNTP-Posting-Host: 80.198.56.157
Message-ID: <3db068e9$1@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1034971369 80.198.56.157 (18 Oct 2002 13:02:49 -0700)
Path: newsgroups.borland.com!not-for-mail
Xref: newsgroups.borland.com borland.public.delphi.graphics:52388

Try this:

  private
    { Private declarations }
    procedure GifOnEndPaint(Sender: TObject);

implementation

{$R *.DFM}

procedure TFormNative.FormCreate(Sender: TObject);
begin
  ImageGIF.Picture.Assign(FormMain.ImageBackground.Picture);
  (ImageGIF.Picture.Graphic as TGIFImage).OnEndPaint := GifOnEndPaint;
end;

procedure TFormNative.GifOnEndPaint(Sender: TObject);
begin
  (ImageGIF.Picture.Graphic as TGIFImage).Animate := False;
  (ImageGIF.Picture.Graphic as TGIFImage).Animate := True;  // Play it
again, Sam.
end;
--
Finn Tolderlund


"Bill" <btalbert@fbtc.net> skrev i en meddelelse
news:3db053ba@newsgroups.borland.com...
> Greetings;
>
> So there is no doubt, I am not a graphics programmer.
> I have GIFImage loaded and running.  It works fine.
> D6 win2000.
>
> What I would like to do is run an animated GIF three times.  When the
> program starts the GIF runs once.  Looking at the help file, I did not see
a
> way to re-run the Gif.  Is there a method to kick start this?  and is
there
> a way to tell when the GIF has stopped?
>
> Regards
> Bill