Unit statmach |
Classes |
TStateBoolean -
TStateConnector -
TStateControl -
TStateLink -
TStateLinkBase -
TStateMachine -
TStateNode -
TStateNodeBase - Yeah, I know!
TStateStart -
TStateStop -
TStateTransition -
Functions |
Register - ****************************************************************************** ** ** Component Registration ** ****************************************************************************** (*
type
TConnectorProperty = class(TClassProperty)
protected
Connector: TStateConnector;
public
procedure GetProperties(Proc: TGetPropEditProc); override;
function GetAttributes: TPropertyAttributes; override;
procedure GetValues(Proc: TGetStrProc); override;
function GetValue: string; override;
procedure SetValue(const Value: string); override;
end;
function TConnectorProperty.
Types |
TBooleanStateEvent
TChangeStateEvent
TConnectorLines
TDesignMove
TLinkDirection
TStateExceptionEvent
TStateMachineOption
TStateMachineOptions
TStatePath
TStatePathOwner
TTransitionDirection
TVisualElement
Constants |
Variables |
Functions |
Types |
TBooleanStateEvent = procedure(Sender: TStateBoolean; var Result: Boolean) of Object
TChangeStateEvent = procedure(Sender: TStateMachine; FromState, ToState: TStateControl) of objectType of the OnChangeState event
TConnectorLines = array[dmSource..dmDestination] of TPoint;
TDesignMove = (dmSource, dmFirstHandle, dmOffset, dmLastHandle, dmDestination, dmNone);
TLinkDirection = (ldIncoming, ldOutgoing);
TStateExceptionEvent = procedure(Sender: TStateMachine; Node: TStateControl; Error: Exception) of objectType of the OnException event
TStateMachineOption = (soInteractive, soSingleStep, soVerifyTransitions);Run-time options: // soInteractive If set, the TStateMachine will be visible at run-time. The current state will be painted in red and bold. // soSingleStep If set, the execution will stop after each transition. Use the Execute method to resume execution. // soVerifyTransitions If set, transitions (TStateTransition) will verify their source states when executed. An attempt to move through a transition from a state other than the one specified as the "FromState" will cause an exception to be raised. If the transition does not specify a "FromState", the transition will not be validated. //
TStateMachineOptions = set of TStateMachineOption
TStatePath = (spAuto, spDirect, spLeftRight, spTopBottom, spTopLeft, spRightBottom);
TStatePathOwner = (poOwnedBySource, poOwnedByDestination);
TTransitionDirection = (tdFrom, tdTo);
TVisualElement = (veShadow, veFrame, vePanel, veText, veConnector);
Constants |
Variables |