| Class TStateNode (unit statmach) |
| Constructors |
constructor Create(AOwner: TComponent);****************************************************************************** ** ** TStateNode **
| Functions |
destructor Destroy;
function HitTest(Mouse: TPoint): TStateConnector;
procedure PaintConnector;
function DoDefault: Boolean;
procedure DoOnEnter;
procedure DoOnExit;
procedure Notification(AComponent: TComponent;
Operation: TOperation);
procedure PrepareCanvas(Element: TVisualElement; Canvas: TCanvas);
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
procedure SetDefaultTransition(Value: TStateControl);
procedure SetNextState(Value :TStateControl);| Properties |
property DefaultTransition : TStateControl
property NextState : TStateControl| Events |
event OnEnterState : TNotifyEvent
event OnExitState : TNotifyEvent| Variables |
FDefaultTransition : TStateControl;
FOnEnterState : TNotifyEvent;
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 : TStateControlNextState is obsolete!
| Events |
event OnEnterState : TNotifyEventPublished declarations
event OnExitState : TNotifyEvent| Variables |
FDefaultTransition : TStateControl;
FOnEnterState : TNotifyEvent;Private declarations
FOnExitState : TNotifyEvent;
FToConnector : TStateConnector;