TLazIntfImage

type TLazIntfImage = class(TFPCustomImage)

protected

  FGetInternalColorProc: TLazIntfImageGetPixelProc;

  FSetInternalColorProc: TLazIntfImageSetPixelProc;

  procedure SetUsePalette(); override;

  procedure SetInternalColor(); override;

  function GetInternalColor(); override;

  procedure SetInternalPixel(); override;

  function GetInternalPixel(); override;

  procedure FreeData; virtual;

  procedure SetDataDescription(); virtual;

  procedure ChooseGetSetColorFunctions; virtual;

  procedure ChooseRawBitsProc();

  procedure GetColor_Generic();

  procedure GetColor_RGBA_NoPalette();

  procedure GetColor_RGB_NoPalette();

  procedure GetColor_Gray_NoPalette();

  procedure GetColor_GrayAlpha_NoPalette();

  procedure GetColor_NULL();

  procedure GetColor_BPP32_A8R8G8B8_BIO_TTB();

  procedure GetColor_BPP32_A8B8G8R8_BIO_TTB();

  procedure GetColor_BPP32_A8G8R8B8_BIO_TTB();

  procedure GetColor_BPP32_A8G8B8R8_BIO_TTB();

  procedure GetColor_BPP32_A8R8B8G8_BIO_TTB();

  procedure GetColor_BPP32_A8B8R8G8_BIO_TTB();

  procedure GetColor_BPP32_B8G8R8A8_BIO_TTB();

  procedure GetColor_BPP32_R8G8B8A8_BIO_TTB();

  procedure GetColor_BPP32_G8B8R8A8_BIO_TTB();

  procedure GetColor_BPP32_G8R8B8A8_BIO_TTB();

  procedure GetColor_BPP32_B8R8G8A8_BIO_TTB();

  procedure GetColor_BPP32_R8B8G8A8_BIO_TTB();

  procedure GetColor_BPP32_X8R8G8B8_BIO_TTB();

  procedure GetColor_BPP32_X8B8G8R8_BIO_TTB();

  procedure GetColor_BPP32_X8G8R8B8_BIO_TTB();

  procedure GetColor_BPP32_X8G8B8R8_BIO_TTB();

  procedure GetColor_BPP32_X8R8B8G8_BIO_TTB();

  procedure GetColor_BPP32_X8B8R8G8_BIO_TTB();

  procedure GetColor_BPP32_B8G8R8X8_BIO_TTB();

  procedure GetColor_BPP32_R8G8B8X8_BIO_TTB();

  procedure GetColor_BPP32_G8B8R8X8_BIO_TTB();

  procedure GetColor_BPP32_G8R8B8X8_BIO_TTB();

  procedure GetColor_BPP32_B8R8G8X8_BIO_TTB();

  procedure GetColor_BPP32_R8B8G8X8_BIO_TTB();

  procedure GetColor_BPP24_B8G8R8_BIO_TTB();

  procedure GetColor_BPP24_R8G8B8_BIO_TTB();

  procedure GetColor_BPP24_G8B8R8_BIO_TTB();

  procedure GetColor_BPP24_G8R8B8_BIO_TTB();

  procedure GetColor_BPP24_B8R8G8_BIO_TTB();

  procedure GetColor_BPP24_R8B8G8_BIO_TTB();

  procedure GetMask_Generic();

  procedure SetColor_Generic();

  procedure SetColor_RGBA_NoPalette();

  procedure SetColor_RGB_NoPalette();

  procedure SetColor_Gray_NoPalette();

  procedure SetColor_GrayAlpha_NoPalette();

  procedure SetColor_NULL();

  procedure SetColor_BPP32_A8R8G8B8_BIO_TTB();

  procedure SetColor_BPP32_A8B8G8R8_BIO_TTB();

  procedure SetColor_BPP32_A8G8R8B8_BIO_TTB();

  procedure SetColor_BPP32_A8G8B8R8_BIO_TTB();

  procedure SetColor_BPP32_A8R8B8G8_BIO_TTB();

  procedure SetColor_BPP32_A8B8R8G8_BIO_TTB();

  procedure SetColor_BPP32_B8G8R8A8_BIO_TTB();

  procedure SetColor_BPP32_R8G8B8A8_BIO_TTB();

  procedure SetColor_BPP32_G8B8R8A8_BIO_TTB();

  procedure SetColor_BPP32_G8R8B8A8_BIO_TTB();

  procedure SetColor_BPP32_B8R8G8A8_BIO_TTB();

  procedure SetColor_BPP32_R8B8G8A8_BIO_TTB();

  procedure SetColor_BPP32_X8R8G8B8_BIO_TTB();

  procedure SetColor_BPP32_X8B8G8R8_BIO_TTB();

  procedure SetColor_BPP32_X8G8R8B8_BIO_TTB();

  procedure SetColor_BPP32_X8G8B8R8_BIO_TTB();

  procedure SetColor_BPP32_X8R8B8G8_BIO_TTB();

  procedure SetColor_BPP32_X8B8R8G8_BIO_TTB();

  procedure SetColor_BPP32_B8G8R8X8_BIO_TTB();

  procedure SetColor_BPP32_R8G8B8X8_BIO_TTB();

  procedure SetColor_BPP32_G8B8R8X8_BIO_TTB();

  procedure SetColor_BPP32_G8R8B8X8_BIO_TTB();

  procedure SetColor_BPP32_B8R8G8X8_BIO_TTB();

  procedure SetColor_BPP32_R8B8G8X8_BIO_TTB();

  procedure SetColor_BPP24_B8G8R8_BIO_TTB();

  procedure SetColor_BPP24_R8G8B8_BIO_TTB();

  procedure SetColor_BPP24_G8B8R8_BIO_TTB();

  procedure SetColor_BPP24_G8R8B8_BIO_TTB();

  procedure SetColor_BPP24_B8R8G8_BIO_TTB();

  procedure SetColor_BPP24_R8B8G8_BIO_TTB();

  procedure SetMask_Generic();

public

  constructor Create();

  constructor CreateCompatible();

  destructor Destroy; override;

  procedure Assign(); override;

  procedure BeginUpdate;

  procedure EndUpdate;

  procedure SetSize(); override;

  function CheckDescription(); virtual;

  procedure LoadFromDevice(); virtual;

  procedure LoadFromBitmap(); virtual;

  procedure CreateBitmaps(); virtual;

  procedure SetRawImage(); virtual;

  procedure GetRawImage(); virtual;

  procedure FillPixels(); virtual;

  procedure CopyPixels(); virtual;

  procedure AlphaBlend();

  procedure AlphaFromMask();

  procedure Mask();

  procedure GetXYDataPosition();

  procedure GetXYMaskPosition();

  function GetDataLineStart();

  procedure CreateData; virtual;

  function HasTransparency; virtual;

  function HasMask; virtual;

  procedure SetDataDescriptionKeepData();

  property PixelData: PByte; [r]

  property MaskData: PByte; [r]

  property DataDescription: TRawImageDescription; [rw]

  property GetInternalColorProc: TLazIntfImageGetPixelProc; [r]

  property SetInternalColorProc: TLazIntfImageSetPixelProc; [r]

  property TColors []: TGraphicsColor; [rw]

  property Masked []: Boolean; [rw]

end;

TLazIntfImage

TObject