Class TStateNode (unit statmach)

Inherits from

TStateNodeBase

Constructors


constructor Create(AOwner: TComponent);

Public declarations

****************************************************************************** ** ** TStateNode **



Functions

destructor Destroy;

ControlStyle := [csCaptureMouse, { csOpaque, } csDoubleClicks];

function HitTest(Mouse: TPoint): TStateConnector;


procedure PaintConnector;


function DoDefault: Boolean;


procedure DoOnEnter;

Only assign value if non-nil

procedure DoOnExit;


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure PrepareCanvas(Element: TVisualElement; Canvas: TCanvas);

Protected declarations

procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


procedure SetDefaultTransition(Value: TStateControl);


procedure SetNextState(Value :TStateControl);

NextState is obsolete!

Properties

property DefaultTransition : TStateControl


property NextState : TStateControl

NextState is obsolete!

Events

event OnEnterState : TNotifyEvent

Published declarations

event OnExitState : TNotifyEvent


Variables

FDefaultTransition : TStateControl;


FOnEnterState : TNotifyEvent;

Private declarations

FOnExitState : TNotifyEvent;


FToConnector : TStateConnector;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

****************************************************************************** ** ** TStateNode **


Functions


destructor Destroy;

ControlStyle := [csCaptureMouse, { csOpaque, } csDoubleClicks];


function HitTest(Mouse: TPoint): TStateConnector;


procedure PaintConnector;


function DoDefault: Boolean;


procedure DoOnEnter;

Only assign value if non-nil


procedure DoOnExit;


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure PrepareCanvas(Element: TVisualElement; Canvas: TCanvas);

Protected declarations


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


procedure SetDefaultTransition(Value: TStateControl);


procedure SetNextState(Value :TStateControl);

NextState is obsolete!


Properties


property DefaultTransition : TStateControl


property NextState : TStateControl

NextState is obsolete!


Events


event OnEnterState : TNotifyEvent

Published declarations


event OnExitState : TNotifyEvent


Variables


FDefaultTransition : TStateControl;


FOnEnterState : TNotifyEvent;

Private declarations


FOnExitState : TNotifyEvent;


FToConnector : TStateConnector;