TOvcSpinner

type TOvcSpinner = class(TOvcCustomControl)

protected

  FAcceleration: Integer;

  FAutoRepeat: Boolean;

  FDelayTime: LongInt;

  FDelta: Double;

  FRepeatCount: LongInt;

  FFocusedControl: TWinControl;

  FShowArrows: Boolean;

  FStyle: TOvcSpinnerStyle;

  FWrapMode: Boolean;

  FOnClick: TSpinClickEvent;

  scNextMsgTime: LongInt;

  scUpRgn: hRgn;

  scDownRgn: hRgn;

  scLeftRgn: hRgn;

  scRightRgn: hRgn;

  scCenterRgn: hRgn;

  scCurrentState: TOvcSpinState;

  scLButton: Byte;

  scMouseOverBtn: Boolean;

  scPrevState: TOvcSpinState;

  scSizing: Boolean;

  scTopLeft: TPoint;

  scTopRight: TPoint;

  scBottomLeft: TPoint;

  scBottomRight: TPoint;

  scCenter: TPoint;

  scTopLeftCenter: TPoint;

  scBottomLeftCenter: TPoint;

  scTopRightCenter: TPoint;

  scBottomRightCenter: TPoint;

  scTopMiddle: TPoint;

  scBottomMiddle: TPoint;

  scLeftMiddle: TPoint;

  scRightMiddle: TPoint;

  scTopLeft4: TPoint;

  scBottomLeft4: TPoint;

  scTopRight4: TPoint;

  scBottomRight4: TPoint;

  procedure SetAcceleration();

  procedure SetAutoRepeat();

  procedure SetShowArrows();

  procedure SetStyle();

  function scCheckMousePos;

  procedure scDeleteRegions;

  procedure scDoAutoRepeat;

  procedure scDrawArrow();

  procedure scDrawLine();

  procedure scDrawNormalButton();

  procedure scDrawFourWayButton();

  procedure scDrawStarButton();

  procedure scDrawDiagonalVertical();

  procedure scDrawDiagonalHorizontal();

  procedure scDrawDiagonalFourWay();

  procedure scDrawPlainStar();

  procedure scDrawButton();

  procedure scInvalidateButton();

  procedure scPolyline();

  procedure OMRecreateWnd(); message;

  procedure WMGetDlgCode(); message;

  procedure WMLButtonDown(); message;

  procedure WMLButtonUp(); message;

  procedure CreateParams(); override;

  procedure Loaded; override;

  procedure Notification(); override;

  procedure Paint; override;

  procedure DoOnClick(); dynamic;

  procedure scDoMouseDown(); virtual;

  procedure scDoMouseUp; virtual;

  procedure scUpdateNormalSizes;

  procedure scUpdateFourWaySizes;

  procedure scUpdateStarSizes;

  procedure scUpdateDiagonalVerticalSizes;

  procedure scUpdateDiagonalHorizontalSizes;

  procedure scUpdateDiagonalFourWaySizes;

  procedure scUpdatePlainStarSizes;

  procedure scUpdateSizes; virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetBounds(); override;

  property RepeatCount: LongInt; [r]

published

  property Acceleration: Integer; [rw]

  property AutoRepeat: Boolean; [rw]

  property Delta: Double; [rw]

  property DelayTime: LongInt; [rw]

  property FocusedControl: TWinControl; [rw]

  property ShowArrows: Boolean; [rw]

  property Style: TOvcSpinnerStyle; [rw]

  property WrapMode: Boolean; [rw]

  property Anchors;

  property Constraints;

  property Enabled;

  property ParentShowHint;

  property ShowHint;

  property Visible;

  property OnClick: TSpinClickEvent; [rw]

  property OnMouseDown;

  property OnMouseMove;

  property OnMouseUp;

end;

TOvcSpinner

TOvcCustomControl

TObject