Class TSpot (unit HotImage) |
Inherits from
TObject
* TSpot
constructor Create(ASpotKind: TSpotKind);
- Constructors, destructors
* TSpot ***} {modified 19.
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.
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 manupulationbounds 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.
property BoundsRect : TRect
property Enabled : Boolean
property HintText : string
property MaskItem : TMaskItem
property Points : TPoint
property RgnHandle : HRgn
property SpotID : Integer
property SpotKind : TSpotKind
FEnabled : Boolean;
FHintText : string;
FID : Integer;
FMaskItem : PMaskItem;
FOwner : THotSpots;
FPoints : TList;
FPolyRgn : HRgn;
FSpotKind : TSpotKind;
constructor Create(ASpotKind: TSpotKind);
Constructors, destructors
* TSpot ***} {modified 19.02.98
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
property BoundsRect : TRect
property Enabled : Boolean
property HintText : string
property MaskItem : TMaskItem
property Points : TPoint
property RgnHandle : HRgn
property SpotID : Integer
property SpotKind : TSpotKind
FEnabled : Boolean;
FHintText : string;
FID : Integer;
FMaskItem : PMaskItem;
FOwner : THotSpots;
FPoints : TList;
FPolyRgn : HRgn;
FSpotKind : TSpotKind;