Re: OfficeConverters+gif

Author

Message

Sergey Tkachenko

Posted: 08/24/2002 20:40:50

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