Class TRxSwitch (unit RXSwitch)

Inherits from

TCustomControl

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;



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;