TBGRAKnob

type TBGRAKnob = class(TBGRAGraphicCtrl)

protected

  procedure MouseDown(); override;

  procedure MouseUp(); override;

  procedure MouseMove(); override;

  procedure Paint; override;

  procedure Resize; override;

  function ValueCorrection();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure SaveToFile();

  procedure LoadFromFile();

  procedure OnFindClass();

published

  property Anchors;

  property CurveExponent: single; [rw]

  property KnobColor: TColor; [rw]

  property LightIntensity: Integer; [rw]

  property PositionColor: TColor; [rw]

  property PositionWidth: single; [rw]

  property PositionOpacity: Byte; [rw]

  property PositionMargin: single; [rw]

  property PositionType: TBGRAKnobPositionType; [rw]

  property UsePhongLighting: Boolean; [rw]

  property MinValue: single; [rw]

  property MaxValue: single; [rw]

  property Value: single; [rw]

  property OnValueChanged: TBGRAKnobValueChangedEvent; [rw]

  property StartFromBottom: Boolean; [rw]

end;

TBGRAKnob

TBGRAGraphicCtrl

TObject