TmKnob

type TmKnob = class(TCustomControl)

protected

  procedure DoAutoAdjustLayout(); override;

  class function GetControlClassDefaultSize; override;

  procedure KnobChange;

  procedure MouseDown(); override;

  procedure MouseUp(); override;

  procedure MouseMove(); override;

  procedure Paint; override;

public

  constructor Create(); override;

published

  property Align;

  property AllowUserDrag: Boolean; [rw]

  property AngleRange: TKnobAngleRange; [rw]

  property BorderColor: TColor; [rw]

  property BorderSpacing;

  property Color;

  property FaceColor: TColor; [rw]

  property TickColor: TColor; [rw]

  property Position: Integer; [rw]

  property RotationEffect: Boolean; [rw]

  property Enabled;

  property MarkSize: Integer; [rw]

  property MarkSizeKind: TKnobMarkSizeKind; [rw]

  property MarkStyle: TKnobMarkStyle; [rw]

  property Max: Integer; [rw]

  property Min: Integer; [rw]

  property OnChange: TKnobChangeEvent; [rw]

  property ParentColor;

  property ParentShowHint;

  property Shadow: Boolean; [rw]

  property ShadowColor: TColor; [rw]

  property ShowHint;

  property Transparent: Boolean; [rw]

  property Visible;

end;

TmKnob

TObject