Re: OfficeConverters+gif

Author

Message

Christophe

Posted: 08/28/2002 19:32:33

Hello Sergey,

I did what you wrote but without success.

Regards

Christophe

"Sergey Tkachenko" <[email protected]> wrote:

>In the officeconverter demo, find a line {.$DEFINE USEGIFIMAGE} and remove

>dot before $:

>{$DEFINE USEGIFIMAGE}

>This will add the following code

>=== CODE START ====

>procedure MyAfterImportGraphic(Graphic: TGraphic);

>begin

> if Graphic is TGifImage then

> TGifImage(Graphic).DrawOptions :=

>TGifImage(Graphic).DrawOptions-[goAnimate]+[goTransparent];

>end;

>{---------------------------------------------------------------------------

>---}

>// Required for all Delphi/C++Builder, except from D6

>function MyCreateGraphics(GraphicClass: TGraphicClass): TGraphic;

>begin

> if GraphicClass=TGifImage then begin

> Result := TGifImage.Create;

> end

> else

> Result := GraphicClass.Create;

>end;

>{---------------------------------------------------------------------------

>---}

>initialization

> TPicture.RegisterFileFormat('gif','Gif Image',TGifImage);

> RV_CreateGraphics := MyCreateGraphics;

> RV_AfterImportGraphic := MyAfterImportGraphic;

>=== CODE END ====

>If you'll use TGifImage in your applications, add this code in them.

>> Hello,

>> I have installed TGifImage as component.

>> When I use OfficeConverters, I have always a message

>> "Graphic extension not know (.gif)".

>> Thank you for help

>> Regards

>> Christophe