TcyCustomGauge

type TcyCustomGauge = class(TcyBaseMeasure)

protected

  procedure Loaded; override;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure SetInternalPosition();

  procedure SetPosition(); virtual;

  procedure BevelsChanged();

  property Bevels: tcyBevels; [rw]

  property PartialPaint: Boolean; [rw]

  property Position: Double; [rw]

  property Precision: Integer; [rw]

  property OldPosition: Double; [rw]

  property Step: Double; [rw]

  property OnChange: TNotifyEvent; [rw]

  property OnCustomDrawItem: TProcOnPaintItem; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  function GetValueFromPos(); virtual;

  procedure StepBy();

  procedure StepIt;

  property Canvas;

end;

TcyCustomGauge

TcyBaseMeasure

TObject