TCustomECSwitch

type TCustomECSwitch = class(TECBaseControl)

protected

const

  caClrGlyph = array [false..true] of TColor; = ($D8D8D8, $FFFFFF)

  cDefGlyphStyle = egsOneZero

  cDefGrooveIndent = 7

  cDefKnobIndent = 4

  cDefSwitchHeight = 28

  cDefSwitchWidth = 64

  cFocusRectIndent = 3

  cIndent = 5

  cLargeGlyph = 12

  cMediumGlyph = 8

  cSmallGlyph = 4

protected

type

  TResourceGlyph = (

  rgCircle4,

  rgCircle8,

  rgCircle12,

  rgZero4,

  rgZero8,

  rgZero12

);

protected

  CaptionRect: TRect;

  GlyphOnePoint: TPoint;

  GlyphZeroPoint: TPoint;

  SwitchPoint: TPoint;

  GlyphSize: SmallInt;

  InitMouseCoord: SmallInt;

  KnobCaptured: Boolean;

  KnobMouseDown: Boolean;

  KnobPosUnchecked: SmallInt;

  KnobPosChecked: SmallInt;

  KnobPosGrayed: SmallInt;

  ArGlyphs: array [TResourceGlyph,0..1] of TPortableNetworkGraphic;

  class constructor InitGlyphs;

  destructor FreeGlyphs;

  procedure CalculatePreferredSize(); override;

  procedure Calculate;

  procedure CMBiDiModeChanged(); message;

  procedure CMParentColorChanged(); message;

  function DialogChar(); override;

  procedure DoClick;

  procedure DoEnter; override;

  procedure DoExit; override;

  function GetActionLinkClass; override;

  procedure InvalidateCustomRect(); override;

  procedure KeyDown(); override;

  procedure MouseDown(); override;

  procedure MouseLeave; override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure OrientationChanged(); override;

  procedure Paint; override;

  procedure RecalcInvalidate;

  procedure RecalcRedraw; override;

  procedure Redraw3DColorAreas; override;

  procedure ResizeKnob;

  procedure SetAutoSize(); override;

  procedure SetKnobBackground;

  procedure StyleChanged(); override;

  procedure TextChanged; override;

  procedure WMSize(); message;

  property CheckFromAction: Boolean; [rw]

  property KnobHovered: Boolean; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure BeginUpdate; override;

  procedure EndUpdate(); override;

  procedure Redraw; override;

  property AllowGrayed: Boolean; [rw]

  property CaptionPos: TObjectPos; [rw]

  property Checked: Boolean; [rw]

  property GlyphStyle: TGlyphStyle; [rw]

  property GrooveCheckedClr: TColor; [rw]

  property GrooveUncheckedClr: TColor; [rw]

  property GrooveIndent: SmallInt; [rw]

  property Knob: TECSwitchKnob; [rw]

  property KnobIndent: SmallInt; [rw]

  property State: TCheckBoxState; [rw]

  property SwitchColor: TColor; [rw]

  property SwitchHeight: Integer; [rw]

  property SwitchWidth: Integer; [rw]

  property OnChange: TNotifyEvent; [rw]

end;

TCustomECSwitch

TECBaseControl

TObject