| Class TStateControl (unit statmach) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);****************************************************************************** ** ** TStateControl **
| Functions |
procedure CheckTransition(Transition: TStateControl; Direction: TTransitionDirection);
destructor Destroy;
function HitTest(Mouse: TPoint): TStateConnector;
procedure PaintConnector;
function AddConnector(OwnerRole: TStatePathOwner): TStateConnector;
procedure Click;
procedure DefineProperties(Filer: TFiler);
function DoDefault: Boolean;
procedure DoOnEnter;
procedure DoOnExit;
procedure DoPaint;
procedure DrawText(TextRect: TRect);
function GetActive: boolean;
function GetCheckStateMachine: TStateMachine;
function GetHint: string;
procedure Notification(AComponent: TComponent;
Operation: TOperation);
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;| 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