type TSpot class TCollectionItem private FCenterX integer FCenterY int

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
type
TSpot = class(TCollectionItem)
private
FCenterX: integer;
FCenterY: integer;
FColor: TColor;
public
constructor Create(Collection: TCollection); override;
published
property CenterX: integer read FCenterX write SetCenterX default 3;
property CenterY: integer read FCenterY write SetCenterY default 3;
property Color: TColor read FColor write SetColor default clBlack;
end;