TD3Bitmap

type TD3Bitmap = class(TPersistent)

protected

  procedure Recreate;

  procedure DefineProperties(); override;

  procedure ReadBitmap();

  procedure WriteBitmap();

  procedure AssignTo(); override;

public

  Handle: Cardinal;

  constructor Create(); virtual;

  constructor CreateFromStream(); virtual;

  destructor Destroy; override;

  procedure Assign(); override;

  procedure SetSize();

  procedure Clear();

  procedure ClearRect();

  function LockBitmapBits();

  procedure UnlockBitmapBits;

  procedure SetCanvas();

  procedure FillAlpha();

  procedure LoadFromFile();

  procedure LoadThumbnailFromFile();

  procedure SaveToFile();

  procedure LoadFromStream();

  procedure SaveToStream();

  property Canvas: TD3Canvas; [r]

  property Width: Integer; [rw]

  property Height: Integer; [rw]

  property Bits: PD3ColorArray; [r]

  property OnChange: TNotifyEvent; [rw]

  property CanvasList: TList; [r]

  property NeedUpdate: Boolean; [rw]

end;

TD3Bitmap

TObject