lazarus/lcl/include/gifimage.inc

{%MainUnit ../graphics.pp}

{******************************************************************************
                                TGIFImage
 ******************************************************************************

 *****************************************************************************
 *                                                                           *
 *  This file is part of the Lazarus Component Library (LCL)                 *
 *                                                                           *
 *  See the file COPYING.modifiedLGPL.txt, included in this distribution,    *
 *  for details about the copyright.                                         *
 *                                                                           *
 *  This program is distributed in the hope that it will be useful,          *
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of           *
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                     *
 *                                                                           *
 *****************************************************************************
}

{ TGIFImage }

constructor TGIFImage.Create;
begin
  inherited Create;
end;

class function TGIFImage.IsStreamFormatSupported(Stream: TStream): Boolean;
var
  Pos: Int64;
  Signature: array [0..5] of char;
begin
  Pos := Stream.Position;
  try
    Stream.Read(Signature, SizeOf(Signature));
    Result := (Signature='GIF89a') or (Signature='GIF87a');
  finally
    Stream.Position := Pos;
  end;
end;

procedure TGIFImage.FinalizeReader(AReader: TFPCustomImageReader);
begin
  inherited;
  with TFPReaderGif(AReader) do
  begin
    FTransparent := Transparent;
    FInterlaced := Interlace;
    FBitsPerPixel := BitsPerPixel;
  end;
end;

class function TGIFImage.GetFileExtensions: string;
begin
  Result := 'gif';
end;

class function TGIFImage.GetReaderClass: TFPCustomImageReaderClass;
begin
  Result := TFPReaderGif;
end;

class function TGIFImage.GetSharedImageClass: TSharedRasterImageClass;
begin
  Result := TSharedGIFImage;
end;

procedure TGIFImage.InitializeReader(AImage: TLazIntfImage;
  AReader: TFPCustomImageReader);
begin
  inherited;
  //Nothing by now. Maybe not needed at all.
end;