TCustomOnOffSwitch

type TCustomOnOffSwitch = class(TCustomControl)

protected

  function CalcButtonRect();

  function CalcMargin;

  function CanChange; virtual;

  procedure DblClick; override;

  procedure DblClickTimerHandler();

  procedure DoAutoAdjustLayout(); override;

  procedure DoChange; virtual;

  procedure DoEnter; override;

  procedure DoExit; override;

  function DraggingToValue();

  procedure DrawButton(); virtual;

  procedure DrawCaption(); virtual;

  procedure DrawFocusRect();

  class function GetControlClassDefaultSize; override;

  function HasPicture;

  procedure KeyDown(); override;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  function MouseOnButton(); virtual;

  procedure MouseUp(); override;

  procedure Paint; override;

  property BorderColor: TColor; [rw]

  property BorderStyle: TSwitchBorderStyle; [rw]

  property ButtonSize: Integer; [rw]

  property CaptionOFF: string; [rw]

  property CaptionON: string; [rw]

  property Checked: Boolean; [rw]

  property Color;

  property ColorOFF: TColor; [rw]

  property ColorON: TColor; [rw]

  property FlippedColors: Boolean; [rw]

  property Inverse: Boolean; [rw]

  property PictureOFF: TPicture; [rw]

  property PictureON: TPicture; [rw]

  property ReadOnly: Boolean; [rw]

  property ShowButtonBorder: Boolean; [rw]

  property ShowFocusRect: Boolean; [rw]

  property ShowCaption: Boolean; [rw]

  property SwitchMode: TSwitchMode; [rw]

  property OnChange: TNotifyEvent; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  property Orientation: TSwitchOrientation; [r]

end;

TCustomOnOffSwitch

TObject