Class TStateTransition (unit statmach)

Inherits from

TStateControl

Constructors


constructor Create(AOwner: TComponent);

Public declarations

****************************************************************************** ** ** TStateTransition **



Functions

destructor Destroy;


function HitTest(Mouse: TPoint): TStateConnector;


procedure PaintConnector;


procedure CheckTransition(Transition: TStateControl; Direction: TTransitionDirection);


function DoDefault: Boolean;


procedure DoOnEnter;


procedure DoPaint;

Protected declarations

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


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


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


procedure SetFromState(Value :TStateControl);

Draw name

procedure SetParent(AParent: TWinControl);


procedure SetToState(Value :TStateControl);


Properties

property FromState : TStateControl

Published declarations

property ToState : TStateControl


Events

event OnTransition : TNotifyEvent


Variables

FFromConnector : TStateConnector;


FFromState : TStateControl;

Private declarations

FOnTransition : TNotifyEvent;


FToConnector : TStateConnector;


FToState : TStateControl;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

****************************************************************************** ** ** TStateTransition **


Functions


destructor Destroy;


function HitTest(Mouse: TPoint): TStateConnector;


procedure PaintConnector;


procedure CheckTransition(Transition: TStateControl; Direction: TTransitionDirection);


function DoDefault: Boolean;


procedure DoOnEnter;


procedure DoPaint;

Protected declarations


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


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


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


procedure SetFromState(Value :TStateControl);

Draw name


procedure SetParent(AParent: TWinControl);


procedure SetToState(Value :TStateControl);


Properties


property FromState : TStateControl

Published declarations


property ToState : TStateControl


Events


event OnTransition : TNotifyEvent


Variables


FFromConnector : TStateConnector;


FFromState : TStateControl;

Private declarations


FOnTransition : TNotifyEvent;


FToConnector : TStateConnector;


FToState : TStateControl;