| Class TRxSwitch (unit RXSwitch) |
TCustomControl
| Constructors |
constructor Create(AOwner: TComponent);TRxSwitch component
| Functions |
destructor Destroy;
procedure ToggleSwitch;
procedure CreateParams(var Params: TCreateParams);
procedure DefineProperties(Filer: TFiler);
procedure DoOff;
procedure DoOn;
function GetPalette: HPALETTE;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure Paint;
procedure CMDialogChar(var Message: TCMDialogChar);
procedure CMEnabledChanged(var Message: TMessage);
procedure CMFocusChanged(var Message: TCMFocusChanged);
procedure CMTextChanged(var Message: TMessage);
procedure CreateDisabled(Index: Integer);
function GetSwitchGlyph(Index: Integer): TBitmap;
procedure GlyphChanged(Sender: TObject);
procedure ReadBinaryData(Stream: TStream);
procedure SetBorderStyle(Value: TBorderStyle);
procedure SetShowFocus(Value: Boolean);
procedure SetStateOn(Value: Boolean);
procedure SetSwitchGlyph(Index: Integer; Value: TBitmap);
procedure SetTextPosition(Value: TTextPos);
function StoreBitmap(Index: Integer): Boolean;
procedure WriteBinaryData(Stream: TStream);| Properties |
property Align :
property BorderStyle : TBorderStyle
property Caption :
property Color :
property Cursor :
property DragCursor :
property DragMode :
property Enabled :
property Font :
property GlyphOff : TBitmap
property GlyphOn : TBitmap
property ParentColor :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowFocus : Boolean
property ShowHint :
property StateOn : Boolean
property TabOrder :
property TabStop :
property TextPosition : TTextPos
property ToggleKey : TShortCut
property Visible : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnOff : TNotifyEvent
event OnOn : TNotifyEvent
event OnStartDrag : | Variables |
FActive : Boolean;
FBitmaps : array[Boolean] of TBitmap;
FBorderStyle : TBorderStyle;
FDisableBitmaps : array[Boolean] of TBitmap;
FOnOff : TNotifyEvent;
FOnOn : TNotifyEvent;
FShowFocus : Boolean;
FStateOn : Boolean;
FTextPosition : TTextPos;
FToggleKey : TShortCut;
FUserBitmaps : TSwitchBitmaps;| Constructors |
constructor Create(AOwner: TComponent);Public declarations
TRxSwitch component
| Functions |
destructor Destroy;
procedure ToggleSwitch;
procedure CreateParams(var Params: TCreateParams);Protected declarations
procedure DefineProperties(Filer: TFiler);
procedure DoOff;
procedure DoOn;
function GetPalette: HPALETTE;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure Paint;
procedure CMDialogChar(var Message: TCMDialogChar);
procedure CMEnabledChanged(var Message: TMessage);
procedure CMFocusChanged(var Message: TCMFocusChanged);
procedure CMTextChanged(var Message: TMessage);
procedure CreateDisabled(Index: Integer);
function GetSwitchGlyph(Index: Integer): TBitmap;
procedure GlyphChanged(Sender: TObject);
procedure ReadBinaryData(Stream: TStream);
procedure SetBorderStyle(Value: TBorderStyle);
procedure SetShowFocus(Value: Boolean);
procedure SetStateOn(Value: Boolean);
procedure SetSwitchGlyph(Index: Integer; Value: TBitmap);
procedure SetTextPosition(Value: TTextPos);
function StoreBitmap(Index: Integer): Boolean;
procedure WriteBinaryData(Stream: TStream);| Properties |
property Align : Published declarations
property BorderStyle : TBorderStyle
property Caption :
property Color :
property Cursor :
property DragCursor :
property DragMode :
property Enabled :
property Font :
property GlyphOff : TBitmap
property GlyphOn : TBitmap
property ParentColor :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowFocus : Boolean
property ShowHint :
property StateOn : Boolean
property TabOrder :
property TabStop :
property TextPosition : TTextPos
property ToggleKey : TShortCut
property Visible : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnOff : TNotifyEvent
event OnOn : TNotifyEvent
event OnStartDrag : | Variables |
FActive : Boolean;Private declarations
FBitmaps : array[Boolean] of TBitmap;
FBorderStyle : TBorderStyle;
FDisableBitmaps : array[Boolean] of TBitmap;
FOnOff : TNotifyEvent;
FOnOn : TNotifyEvent;
FShowFocus : Boolean;
FStateOn : Boolean;
FTextPosition : TTextPos;
FToggleKey : TShortCut;
FUserBitmaps : TSwitchBitmaps;