| Class TSpot (unit HotImage) |
TObject
* TSpot
| Constructors |
constructor Create(ASpotKind: TSpotKind);* TSpot ***} {modified 19.
| Functions |
procedure AddPoint(const APoint: TPoint);
procedure Assign(Source: TSpot);
procedure Clear;
procedure CopyShapeFrom(Source: TSpot; const ScaleInfo: TScaleInfo);
function Count: Integer;
procedure DeletePoint(Index: Integer);
destructor Destroy;
procedure DrawShape(DrawCanvas: TCanvas; const Offset: TPoint; AlignBrush: boolean);
function GetPointArray: PPoints;
procedure InsertPoint(Index: Integer; const APoint: TPoint);
function MaskPresent: Boolean;
procedure Offset(dx, dy: Integer);
function PointInSpot(const APoint: TPoint):boolean;
procedure ReleaseRegion;
procedure AssignMasks(const Source: TMaskItem);
procedure CopyScaledPtArray(DstBuffer: PPoints; const ScaleInfo: TScaleInfo);
function CreateRegion: HRgn;
function GetBoundsRect: TRect;bounds manupulation
function GetMaskItem: TMaskItem;
function GetPoint(Index: Integer): Tpoint;
function GetRegion: HRgn;
procedure SetBoundsRect(const R: TRect);
procedure SetPoint(Index: Integer; const APoint: TPoint);
procedure SetSpotKind(Value: TSpotKind);| Properties |
property BoundsRect : TRect
property Enabled : Boolean
property HintText : string
property MaskItem : TMaskItem
property Points : TPoint
property RgnHandle : HRgn
property SpotID : Integer
property SpotKind : TSpotKind| Events |
| Variables |
FEnabled : Boolean;
FHintText : string;
FID : Integer;
FMaskItem : PMaskItem;
FOwner : THotSpots;
FPoints : TList;
FPolyRgn : HRgn;
FSpotKind : TSpotKind;| Constructors |
constructor Create(ASpotKind: TSpotKind);Constructors, destructors
* TSpot ***} {modified 19.02.98
| Functions |
procedure AddPoint(const APoint: TPoint);Point manipulation
procedure Assign(Source: TSpot);
procedure Clear;Clear all points
procedure CopyShapeFrom(Source: TSpot; const ScaleInfo: TScaleInfo);copy shape data with scaling
function Count: Integer;number of points in spot
procedure DeletePoint(Index: Integer);
destructor Destroy;all SpotKinds except skPolyline have fixed number of points
procedure DrawShape(DrawCanvas: TCanvas; const Offset: TPoint; AlignBrush: boolean);draw shape on destination canvas
function GetPointArray: PPoints;returns pointer to array[0..n] of TPoint
procedure InsertPoint(Index: Integer; const APoint: TPoint);
function MaskPresent: Boolean;
procedure Offset(dx, dy: Integer);Bounds manipulation
function PointInSpot(const APoint: TPoint):boolean;IS point in spot?
procedure ReleaseRegion;Return back again in device context
procedure AssignMasks(const Source: TMaskItem);
procedure CopyScaledPtArray(DstBuffer: PPoints; const ScaleInfo: TScaleInfo);
function CreateRegion: HRgn;
function GetBoundsRect: TRect;bounds manupulation
bounds manupulation
function GetMaskItem: TMaskItem;
function GetPoint(Index: Integer): Tpoint;
function GetRegion: HRgn;
procedure SetBoundsRect(const R: TRect);GetRgnBox returns rectangle, without 1 right and 1 bottom point
procedure SetPoint(Index: Integer; const APoint: TPoint);
procedure SetSpotKind(Value: TSpotKind);added 19.02.98
| Properties |
property BoundsRect : TRect
property Enabled : Boolean
property HintText : string
property MaskItem : TMaskItem
property Points : TPoint
property RgnHandle : HRgn
property SpotID : Integer
property SpotKind : TSpotKind| Events |
| Variables |
FEnabled : Boolean;
FHintText : string;
FID : Integer;
FMaskItem : PMaskItem;
FOwner : THotSpots;
FPoints : TList;
FPolyRgn : HRgn;
FSpotKind : TSpotKind;