TKnobEx

type TKnobEx = class(TGraphicControl)

protected

  procedure KnobChange;

  procedure MouseDown(); override;

  procedure MouseUp(); override;

  procedure MouseMove(); override;

  procedure Paint; override;

  property CurValue: single; [rw]

public

  constructor Create(); override;

  property PositionStr: string; [rw]

published

  property Align;

  property AllowUserDrag: Boolean; [rw]

  property KnobStyle: TKnobExStyle; [rw]

  property FaceColor: TColor; [rw]

  property FaceStyle: TKnobExFaceStyle; [rw]

  property LineColor: TColor; [rw]

  property LineStyle: TKnobExLineStyle; [rw]

  property RotationEffect: Boolean; [rw]

  property Max: single; [rw]

  property Min: single; [rw]

  property Decimals: Integer; [rw]

  property Position: single; [rw]

  property OnChange: TNotifyEvent; [rw]

  property Enabled;

  property Color;

  property ParentColor;

  property ParentShowHint;

  property ShowHint;

  property Visible;

  property OnClick;

  property OnDblClick;

  property OnPaint;

  property OnResize;

  property OnChangeBounds;

  property OnContextPopup;

  property OnEndDrag;

  property OnMouseDown;

  property OnMouseUp;

  property OnMouseEnter;

  property OnMouseLeave;

  property OnMouseMove;

  property OnMouseWheel;

  property OnMouseWheelDown;

  property OnMouseWheelUp;

  property OnMouseWheelHorz;

  property OnMouseWheelLeft;

  property OnMouseWheelRight;

  property OnDragDrop;

  property OnDragOver;

  property OnStartDrag;

  property OnStartDock;

  property OnEndDock;

end;

TKnobEx

TObject