| Class THotSpots (unit HotImage) |
TPersistent
| Constructors |
constructor Create(AOwner: THotImage);| Functions |
function AddSpot(ASpot: TSpot): integer;
procedure Clear;
function Count:Integer;
procedure DeleteSpot(Index: integer);
destructor Destroy;
function GetBoundsRect: TRect;
function GetSpotByID(ASpotID: Integer): TSpot;
function IndexByPoint(const Point: TPoint): integer;
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 functions
function SpotByPoint(const Point: TPoint): TSpot;
procedure Assign(Source: TPersistent);
procedure DefineProperties(Filer: TFiler);
function GetSpot(Index: Integer): TSpot;
function MasksPresent: Boolean;
procedure ReadMaskItems(Stream: TStream);
procedure ReadSpots(Stream: TStream);
procedure SetSpot(Index: Integer; ASpot: TSpot);
procedure WriteMaskItems(Stream: TStream);
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;