Class TStateConnector (unit statmach)

Inherits from

TObject

Constructors


constructor Create(AOwner: TStateControl; OwnerRole: TStatePathOwner);

****************************************************************************** ** ** TStateConnector **


Functions

function GetLines(var Lines: TConnectorLines): Boolean;


function HitTest(Mouse: TPoint): Boolean;


class function MakeRect(pa, pb: TPoint): TRect;

Switch to auto if position makes path impossible

procedure Paint;


procedure PaintFlipLine;

LogBrush.

class function RectCenter(r: TRect): TPoint;


function GetPeer(Index: integer): TStateControl;


procedure SetPeer(Index: integer; Value: TStateControl);


Properties

property Offset : integer


property Path : TStatePath


property ActualPath : TStatePath


property Destination : TStateControl


property PeerNode : TStateControl


property Selected : Boolean


property Source : TStateControl


Events

Variables

BoundsRect : TRect;


FActualPath : TStatePath;


FDestination : TStateControl;


FOffset : integer;


FOwner : TStatePathOwner;


FPath : TStatePath;


FSelected : Boolean;


FSource : TStateControl;



Constructors


constructor Create(AOwner: TStateControl; OwnerRole: TStatePathOwner);

****************************************************************************** ** ** TStateConnector **


Functions


function GetLines(var Lines: TConnectorLines): Boolean;


function HitTest(Mouse: TPoint): Boolean;


class function MakeRect(pa, pb: TPoint): TRect;

Switch to auto if position makes path impossible


procedure Paint;


procedure PaintFlipLine;

LogBrush.lbStyle := BS_SOLID; LogBrush.lbColor := clGreen; Source.StateMachine.Canvas.Pen.Handle := ExtCreatePen( PS_GEOMETRIC or PS_SOLID or PS_ENDCAP_FLAT or PS_JOIN_ROUND, // PS_JOIN_BEVEL, Source.StateMachine.Canvas.Pen.Width, LogBrush, // CONST LOGBRUSH * lplb, // address of structure for brush attributes 0, nil);


class function RectCenter(r: TRect): TPoint;


function GetPeer(Index: integer): TStateControl;


procedure SetPeer(Index: integer; Value: TStateControl);


Properties


property Offset : integer


property Path : TStatePath


property ActualPath : TStatePath


property Destination : TStateControl


property PeerNode : TStateControl


property Selected : Boolean


property Source : TStateControl


Events


Variables


BoundsRect : TRect;


FActualPath : TStatePath;


FDestination : TStateControl;


FOffset : integer;


FOwner : TStatePathOwner;


FPath : TStatePath;


FSelected : Boolean;


FSource : TStateControl;