| Class TStateBoolean (unit statmach) |
| Constructors |
constructor Create(AOwner: TComponent);****************************************************************************** ** ** TStateBoolean **
| Functions |
destructor Destroy;
function HitTest(Mouse: TPoint): TStateConnector;
procedure PaintConnector;
function DoDefault: Boolean;
procedure DoOnEnter;
procedure DoOnExit;
procedure DoPaint;
procedure Notification(AComponent: TComponent;
Operation: TOperation);
procedure PrepareCanvas(Element: TVisualElement; Canvas: TCanvas);
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
procedure SetDefault(Value :Boolean);
procedure SetFalseState(Value :TStateControl);
procedure SetTrueState(Value :TStateControl);| Properties |
property DefaultState : Boolean
property FalseState : TStateControl
property TrueState : TStateControl| Events |
event OnEnterState : TBooleanStateEvent
event OnExitState : TNotifyEvent| Variables |
FDefault : Boolean;
FFalseConnector : TStateConnector;
FFalseState : TStateControl;
FOnEnterState : TBooleanStateEvent;
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 : TBooleanStateEventPublished declarations
event OnExitState : TNotifyEvent| Variables |
FDefault : Boolean;
FFalseConnector : TStateConnector;
FFalseState : TStateControl;
FOnEnterState : TBooleanStateEvent;Private declarations
FOnExitState : TNotifyEvent;
FResult : Boolean;
FTrueConnector : TStateConnector;
FTrueState : TStateControl;