Class TStateBoolean (unit statmach)

Inherits from

TStateNodeBase

Constructors


constructor Create(AOwner: TComponent);

Public declarations

****************************************************************************** ** ** TStateBoolean **



Functions

destructor Destroy;


function HitTest(Mouse: TPoint): TStateConnector;


procedure PaintConnector;


function DoDefault: Boolean;


procedure DoOnEnter;

To erase previous fat line Invalidate;

procedure DoOnExit;


procedure DoPaint;

Protected declarations

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


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


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


procedure SetDefault(Value :Boolean);

True and False should not be the same

procedure SetFalseState(Value :TStateControl);

True and False should not be the same

procedure SetTrueState(Value :TStateControl);

Draw name

Properties

property DefaultState : Boolean


property FalseState : TStateControl


property TrueState : TStateControl


Events

event OnEnterState : TBooleanStateEvent

Published declarations

event OnExitState : TNotifyEvent


Variables

FDefault : Boolean;


FFalseConnector : TStateConnector;


FFalseState : TStateControl;


FOnEnterState : TBooleanStateEvent;

Private declarations

FOnExitState : TNotifyEvent;


FResult : Boolean;


FTrueConnector : TStateConnector;


FTrueState : TStateControl;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

****************************************************************************** ** ** TStateBoolean **


Functions


destructor Destroy;


function HitTest(Mouse: TPoint): TStateConnector;


procedure PaintConnector;


function DoDefault: Boolean;


procedure DoOnEnter;

To erase previous fat line Invalidate;


procedure DoOnExit;


procedure DoPaint;

Protected declarations


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


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


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


procedure SetDefault(Value :Boolean);

True and False should not be the same


procedure SetFalseState(Value :TStateControl);

True and False should not be the same


procedure SetTrueState(Value :TStateControl);

Draw name


Properties


property DefaultState : Boolean


property FalseState : TStateControl


property TrueState : TStateControl


Events


event OnEnterState : TBooleanStateEvent

Published declarations


event OnExitState : TNotifyEvent


Variables


FDefault : Boolean;


FFalseConnector : TStateConnector;


FFalseState : TStateControl;


FOnEnterState : TBooleanStateEvent;

Private declarations


FOnExitState : TNotifyEvent;


FResult : Boolean;


FTrueConnector : TStateConnector;


FTrueState : TStateControl;