Reference TAnglePicker

  TAnglePicker = class(TSurfaceGraphicControl)
  protected
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
    procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
    procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
    procedure Draw; override;
  public
    { Create a new angle picker }
    constructor Create(AOwner: TComponent); override;
  published
    { The selected angle in degrees from 0 to 360 }
    property Angle: Float read FAngle write SetAngle;
    { The width of the hand }
    property Stroke: Float read FStroke write SetStroke;
    { OnChange is invoked when the angle changes }
    property OnChange: TNotifyEvent read FOnChange write FOnChange;
    property Align;
    property Anchors;
    property BorderSpacing;
    property Constraints;
    property Enabled;
    property ParentShowHint;
    property ShowHint;
    property Visible;
    property OnClick;
    property OnMouseDown;
    property OnMouseEnter;
    property OnMouseLeave;
    property OnMouseMove;
    property OnMouseUp;
    property OnResize;
  end;