Class TGIFExtension (unit GIFImage)

Inherits from

TGIFItem

To avoid warning about hiding base class constructor

Constructors


constructor Create(ASubImage: TGIFSubImage);



Functions

procedure LoadFromStream(Stream: TStream);


procedure SaveToStream(Stream: TStream);


function DoReadFromStream(Stream: TStream): TGIFExtensionType;


class function FindExtension(Stream: TStream): TGIFExtensionClass;


class function FindSubExtension(Stream: TStream): TGIFExtensionClass;


function GetExtensionType: TGIFExtensionType;


function GetVersion: TGIFVersion;

****************************************************************************** ** ** TGIFExtension **

class procedure RegisterExtension(elabel: BYTE; eClass: TGIFExtensionClass);


Properties

property ExtensionType : TGIFExtensionType


property SubImage : TGIFSubImage


Events

Variables

FSubImage : TGIFSubImage;



Constructors


constructor Create(ASubImage: TGIFSubImage);


Functions


procedure LoadFromStream(Stream: TStream);


procedure SaveToStream(Stream: TStream);


function DoReadFromStream(Stream: TStream): TGIFExtensionType;


class function FindExtension(Stream: TStream): TGIFExtensionClass;


class function FindSubExtension(Stream: TStream): TGIFExtensionClass;


function GetExtensionType: TGIFExtensionType;


function GetVersion: TGIFVersion;

****************************************************************************** ** ** TGIFExtension **


class procedure RegisterExtension(elabel: BYTE; eClass: TGIFExtensionClass);


Properties


property ExtensionType : TGIFExtensionType


property SubImage : TGIFSubImage


Events


Variables


FSubImage : TGIFSubImage;