TLabImageData

type TLabImageData = class

protected

  _Width: Integer;

  _Height: Integer;

  _BPP: Integer;

  _Data: Pointer;

  _DataSize: LongWord;

  _Format: TLabImageDataFormat;

  _ReadProc: TLabImagePixelReadProc;

  _WriteProc: TLabImagePixelWriteProc;

  procedure SetFormat();

  function GetPixel();

  function ReadNone();

  function ReadG8();

  function ReadG16();

  function ReadG8A8();

  function ReadG16A16();

  function ReadR8G8B8();

  function ReadR16G16B16();

  function ReadR8G8B8A8();

  function ReadR16G16B16A16();

  function ReadR32G32B32_F();

  procedure SetPixel();

  procedure WriteNone();

  procedure WriteG8();

  procedure WriteG16();

  procedure WriteG8A8();

  procedure WriteG16A16();

  procedure WriteR8G8B8();

  procedure WriteR16G16B16();

  procedure WriteR8G8B8A8();

  procedure WriteR16G16B16A16();

  procedure WriteR32G32B32_F();

  procedure DataAlloc();

  procedure DataFree;

  class procedure RegisterImageFormat;

public

  property Width: Integer; [r]

  property Height: Integer; [r]

  property Data: Pointer; [r]

  property BPP: Integer; [r]

  property DataSize: LongWord; [r]

  property Format: TLabImageDataFormat; [r]

  property Pixels []: TLabColor; default; [rw]

  function DataAt();

  class function CanLoad();

  procedure Load();

  procedure Save();

  procedure Allocate();

  constructor Create; virtual;

  destructor Destroy; override;

end;

TLabImageData

TObject