Class TStateControl (unit statmach)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);

Public declarations

****************************************************************************** ** ** TStateControl **



Functions

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


destructor Destroy;


function HitTest(Mouse: TPoint): TStateConnector;


procedure PaintConnector;

Margin for text

function AddConnector(OwnerRole: TStatePathOwner): TStateConnector;


procedure Click;


procedure DefineProperties(Filer: TFiler);

Protected declarations

function DoDefault: Boolean;

Nothing to do here

procedure DoOnEnter;


procedure DoOnExit;

Nothing to do here

procedure DoPaint;


procedure DrawText(TextRect: TRect);


function GetActive: boolean;


function GetCheckStateMachine: TStateMachine;


function GetHint: string;


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

StateMachine.

procedure Paint;


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


procedure SetActive(Value: boolean);


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


procedure SetHint(Value: string);


procedure SetParent(AParent: TWinControl);


procedure ReadConnectors(Reader: TReader);


procedure WriteConnectors(Writer: TWriter);


Properties

property Hint : string


property Active : boolean


property Connectors : TList


property StateMachine : TStateMachine


property CheckStateMachine : TStateMachine


Events

Variables

FConnectors : TList;


FStateMachine : TStateMachine;

Private declarations


Constructors


constructor Create(AOwner: TComponent);

Public declarations

****************************************************************************** ** ** TStateControl **


Functions


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


destructor Destroy;


function HitTest(Mouse: TPoint): TStateConnector;


procedure PaintConnector;

Margin for text


function AddConnector(OwnerRole: TStatePathOwner): TStateConnector;


procedure Click;


procedure DefineProperties(Filer: TFiler);

Protected declarations


function DoDefault: Boolean;

Nothing to do here


procedure DoOnEnter;


procedure DoOnExit;

Nothing to do here


procedure DoPaint;


procedure DrawText(TextRect: TRect);


function GetActive: boolean;


function GetCheckStateMachine: TStateMachine;


function GetHint: string;


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

StateMachine.Canvas.Pen.Width := 1;


procedure Paint;


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


procedure SetActive(Value: boolean);


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


procedure SetHint(Value: string);


procedure SetParent(AParent: TWinControl);


procedure ReadConnectors(Reader: TReader);


procedure WriteConnectors(Writer: TWriter);


Properties


property Hint : string


property Active : boolean


property Connectors : TList


property StateMachine : TStateMachine


property CheckStateMachine : TStateMachine


Events


Variables


FConnectors : TList;


FStateMachine : TStateMachine;

Private declarations