tsimplebitmap

type tsimplebitmap = class(tnullinterfacedpersistent, icanvas)

public

  constructor create();

  destructor destroy; override;

  procedure copyhandle;

  procedure releasehandle; virtual;

  procedure acquirehandle; virtual;

  property handle: pixmapty; [rw]

  procedure assign(); override;

  procedure assignnegative();

  procedure clear; virtual;

  procedure init(); virtual;

  procedure freecanvas;

  function canvasallocated;

  procedure copyarea();

  property kind: bitmapkindty; [rw]

  property canvas: tcanvas; [r]

  property size: sizety; [rw]

  property width: Integer; [rw]

  property height: Integer; [rw]

  function isempty;

end;

tsimplebitmap,icanvas

tnullinterfacedpersistent,iunknown

tvirtualpersistent

tpersistent

TObject