| Class TGIFExtension (unit GIFImage) |
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;
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;