Animinated Gif

Return to index

Author

Message

Jeff

Posted: 09/18/2002 14:36:41

Hi,

I try to insert the animinated gif into the rve. I made the following steps.

1. modify the program RVFuncs.pas

2. insert function as follow

procedure My_AfterImportGraphic(Graphic: TGraphic);

begin

       if Graphic is TGifImage then

               TGifImage(Graphic).DrawOptions := TGifImage(Graphic).DrawOptions-[goAnimate];

end;

3. alter ther initialization steps

initialization

  RV_CreateGraphics := RV_CreateGraphicsDefault;

  {RV_AfterImportGraphic := RV_AfterImportGraphicDefault; }

  RV_AfterImportGraphic := My_AfterImportGraphic;

end.

4. recompile again.

when i try my application i insert the gif into the rve. It dosen't work

but the graphic size is chane e.g. the size which include the animinated

path which the size is big enought to hole the animinated gif but it won't

animiated.

Any idea?

Cheers