unit SchemePaintBmpObjects;

type

  TStretchBmpObject = class(TPaintObjectShape)
  public
    constructor Create(AId,AImageId,AImageIdMask:integer;
      ARect:TRect;AState:integer;
      AImageList,AImageListMask:TImageList);
    constructor CreateFromString(const Value:string);override;
    function  GetAsString:string; override;
  end;

  TBmpObject = class(TPaintObjectShape)
  public
    constructor Create(AId,AImageId:integer;
      ARect:TRect;AState:integer;
      AImageList:TImageList);
  end;
