Class THotSpots (unit HotImage)

Inherits from

TPersistent

Constructors


constructor Create(AOwner: THotImage);

* THotSpots


Functions

function AddSpot(ASpot: TSpot): integer;


procedure Clear;


function Count:Integer;


procedure DeleteSpot(Index: integer);

Spot manipulations

destructor Destroy;


function GetBoundsRect: TRect;

returns rectangle, that bounds all spots

function GetSpotByID(ASpotID: Integer): TSpot;


function IndexByPoint(const Point: TPoint): integer;

Coordinates routines

procedure InsertSpot(Index: Integer; ASpot: TSpot);


procedure LoadFromStream(Stream: TStream);


procedure MoveSpot(CurrentIndex, NewIndex: Integer);


function RemoveSpot(ASpot: TSpot): TSpot;


procedure SaveToStream(Stream: TStream);

Streaming routines

streaming functions


function SpotByPoint(const Point: TPoint): TSpot;


procedure Assign(Source: TPersistent);


procedure DefineProperties(Filer: TFiler);


function GetSpot(Index: Integer): TSpot;


function MasksPresent: Boolean;

number of entries

procedure ReadMaskItems(Stream: TStream);

Number of items

procedure ReadSpots(Stream: TStream);

only one byte needed

procedure SetSpot(Index: Integer; ASpot: TSpot);


procedure WriteMaskItems(Stream: TStream);

one byte

procedure WriteSpots(Stream: TStream);


Properties

property Owner : THotImage


property Spots : TSpot


Events

Variables

FList : TList;


FOwner : THotImage;



Constructors


constructor Create(AOwner: THotImage);

* THotSpots


Functions


function AddSpot(ASpot: TSpot): integer;


procedure Clear;


function Count:Integer;


procedure DeleteSpot(Index: integer);

Spot manipulations


destructor Destroy;


function GetBoundsRect: TRect;

returns rectangle, that bounds all spots


function GetSpotByID(ASpotID: Integer): TSpot;


function IndexByPoint(const Point: TPoint): integer;

Coordinates routines


procedure InsertSpot(Index: Integer; ASpot: TSpot);


procedure LoadFromStream(Stream: TStream);


procedure MoveSpot(CurrentIndex, NewIndex: Integer);


function RemoveSpot(ASpot: TSpot): TSpot;


procedure SaveToStream(Stream: TStream);

Streaming routines

streaming functions


function SpotByPoint(const Point: TPoint): TSpot;


procedure Assign(Source: TPersistent);


procedure DefineProperties(Filer: TFiler);


function GetSpot(Index: Integer): TSpot;


function MasksPresent: Boolean;

number of entries


procedure ReadMaskItems(Stream: TStream);

Number of items


procedure ReadSpots(Stream: TStream);

only one byte needed


procedure SetSpot(Index: Integer; ASpot: TSpot);


procedure WriteMaskItems(Stream: TStream);

one byte


procedure WriteSpots(Stream: TStream);


Properties


property Owner : THotImage


property Spots : TSpot


Events


Variables


FList : TList;


FOwner : THotImage;