TCustomECSlider

type TCustomECSlider = class(TBaseECSlider)

protected

const

  cDefGrooveWidth = 6

  cDefProgMarkSize = 4

  cScaleIndent = 6

protected

  FCursorBkgnd: TCursor;

  procedure CalcGrooveMiddle; override;

  procedure CalcInvalidRectDyn; override;

  procedure CalcInvalidRectStat; override;

  procedure ChangeCursors();

  procedure CMColorChanged(); message;

  procedure CMParentColorChanged(); message;

  procedure CorrectGrooveHorizontalLength(); override;

  procedure CorrectGrooveLength(); override;

  procedure DblClick; override;

  function DoMouseWheelDown(); override;

  function DoMouseWheelUp(); override;

  function GetGrooveOverhang(); override;

  function GetKnobOverhangScale(); override;

  function GetRelGroovePos; override;

  procedure KeyDown(); override;

  procedure MouseDown(); override;

  procedure MouseLeave; override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure OrientationChanged(); override;

  procedure PaintSelf(); override;

  procedure PlaceKnob();

  procedure Redraw3DColorAreas; override;

  procedure SetCursor(); override;

  procedure SetGrooveBoundsHorz(); override;

  procedure SetGrooveBoundsVert(); override;

  procedure SetKnobBackground;

  procedure SetPosition(); override;

  procedure StyleChanged(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure BeginUpdate; override;

  procedure EndUpdate(); override;

  property DiscreteChange: Double; [rw]

  property Increment: Double; [rw]

  property Knob: TECSliderKnob; [rw]

  property Mode: TIncrementalMode; [rw]

  property PageSize: Double; [rw]

  property RelativeScaleLength: Single; [rw]

end;

TCustomECSlider

TBaseECSlider

TECBaseControl

TObject