TfpgImageBase

type TfpgImageBase = class(TObject)

protected

  FWidth: Integer;

  FHeight: Integer;

  FColorDepth: Integer;

  FMasked: Boolean;

  FImageData: pointer;

  FImageDataSize: Integer;

  FMaskData: pointer;

  FMaskDataSize: Integer;

  FMaskPoint: TPoint;

  procedure DoFreeImage; virtual; abstract;

  procedure DoInitImage(); virtual; abstract;

  procedure DoInitImageMask(); virtual; abstract;

public

  constructor Create;

  destructor Destroy; override;

  procedure Invert();

Inverts the Image

  procedure FreeImage;

  procedure AllocateImage();

Allocates OS resources for the Image

  procedure AllocateMask;

Allocates OS resources for the Image Mask

  procedure CreateMaskFromSample();

Creates a mask based on the sample point presented by X and Y parameters

  procedure UpdateImage;

Updates the internal image resources and OS resources from image data

  property ImageData: pointer; [r]

  property ImageDataSize: Integer; [r]

  property MaskData: pointer; [r]

  property MaskDataSize: Integer; [r]

  property Width: Integer; [r]

Width of the image

  property Height: Integer; [r]

Height of the image

  property ColorDepth: Integer; [r]

Color depth of the image. Currently 24/32-bit is all that is supported.

  property Masked: Boolean; [r]

  property MaskPoint: TPoint; [r]

  property Colors: TfpgColor; [rw]

Array property to access a specific color of the image based on X and Y co-ordinates

end;

TfpgImageBase

Abstract class used to represent a Image

TObject