Class TStateBoolean (unit statmach) |
Inherits from
TStateNodeBase
constructor Create(AOwner: TComponent);
- Public declarations
****************************************************************************** ** ** TStateBoolean **
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
property DefaultState : Boolean
property FalseState : TStateControl
property TrueState : TStateControl
event OnEnterState : TBooleanStateEvent
Published declarations
event OnExitState : TNotifyEvent
FDefault : Boolean;
FFalseConnector : TStateConnector;
FFalseState : TStateControl;
FOnEnterState : TBooleanStateEvent;
Private declarations
FOnExitState : TNotifyEvent;
FResult : Boolean;
FTrueConnector : TStateConnector;
FTrueState : TStateControl;
constructor Create(AOwner: TComponent);
Public declarations
****************************************************************************** ** ** TStateBoolean **
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
property DefaultState : Boolean
property FalseState : TStateControl
property TrueState : TStateControl
event OnEnterState : TBooleanStateEvent
Published declarations
event OnExitState : TNotifyEvent
FDefault : Boolean;
FFalseConnector : TStateConnector;
FFalseState : TStateControl;
FOnEnterState : TBooleanStateEvent;
Private declarations
FOnExitState : TNotifyEvent;
FResult : Boolean;
FTrueConnector : TStateConnector;
FTrueState : TStateControl;