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;

  FFrames: TFPList;

  FGlobalPalette: TFPPalette;

  FComposite: Boolean;

  FLoopCount: Word;

  FCanvas: TFPMemoryImage;

  FRestore: TFPMemoryImage;

  function GetImages();

  function GetScreenHeight;

  function GetScreenWidth;

  procedure ReadPalette();

  function AnalyzeHeader;

  procedure InternalRead(); override;

  procedure ReadFrames(); virtual;

  procedure ReadFrame(); virtual;

  procedure ReadLoopCount(); virtual;

  procedure CompositeFrame(); virtual;

  function ReadScanLine(); virtual;

  function WriteScanLine(); virtual;

  function DrawScanLine(); virtual;

  function InternalCheck(); override;

  function SkipBlock();

  class function InternalSize(); override;

public

  constructor Create; override;

  destructor Destroy; override;

  procedure Clear;

  procedure LoadFromStream();

  function ImageCount;

  property Images []: TGifFrame; [r]

  property Composite: Boolean; [rw]

  property LoopCount: Word; [r]

  property ScreenWidth: Word; [r]

  property ScreenHeight: Word; [r]

  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