TFPReaderGif

type TFPReaderGif = class(TFPCustomImageReader)

protected

  FHeader: TGIFHeader;

  FDescriptor: TGifImageDescriptor;

  FGraphicsCtrlExt: TGifGraphicsControlExtension;

  FTransparent: Boolean;

  FGraphCtrlExt: Boolean;

  FScanLine: PByte;

  FLineSize: Integer;

  FPalette: TFPPalette;

  FWidth: Integer;

  FHeight: Integer;

  FInterlace: Boolean;

  FBitsPerPixel: Byte;

  FBackground: Byte;

  FResolution: Byte;

  FOnCreateImage: TGifCreateCompatibleImgEvent;

  procedure ReadPalette();

  function AnalyzeHeader;

  procedure InternalRead(); override;

  function ReadScanLine(); virtual;

  function WriteScanLine(); virtual;

  function InternalCheck(); override;

  function SkipBlock();

public

  constructor Create; override;

  destructor Destroy; override;

  property Header: TGIFHeader; [r]

  property Descriptor: TGifImageDescriptor; [r]

  property GraphCtrlExt: Boolean; [r]

  property GraphicsCtrlExt: TGifGraphicsControlExtension; [r]

  property Transparent: Boolean; [r]

  property Palette: TFPPalette; [r]

  property Width: Integer; [r]

  property Height: Integer; [r]

  property Interlace: Boolean; [r]

  property BitsPerPixel: Byte; [r]

  property Background: Byte; [r]

  property Resolution: Byte; [r]

  property OnCreateImage: TGifCreateCompatibleImgEvent; [rw]

end;

TFPReaderGif

TFPCustomImageReader

TFPCustomImageHandler

TObject