TA3nalogGauge

type TA3nalogGauge = class(TCustomControl)

protected

  procedure CaptionFontChanged();

  procedure DrawArrow();

  procedure DrawScale();

  procedure FastAntiAliasPicture;

  procedure FontChanged(); override;

  class function GetControlClassDefaultSize; override;

  procedure Loaded; override;

  procedure RedrawArrow;

  procedure RedrawScale;

  procedure Paint; override;

  procedure Resize; override;

  procedure DoAutoAdjustLayout(); override;

public

  procedure ScaleFontsPPI(); override;

  constructor Create(); override;

  destructor Destroy; override;

published

  property Angle: Integer; [rw]

  property AntiAliased: TAntialiased; [rw]

  property ArrowColor: TColor; [rw]

  property ArrowWidth: Integer; [rw]

  property Caption: string; [rw]

  property CaptionColor: TColor; [rw]

  property CaptionFont: TFont; [rw]

  property CenterColor: TColor; [rw]

  property CenterRadius: Integer; [rw]

  property CircleColor: TColor; [rw]

  property CircleRadius: Integer; [rw]

  property FaceColor: TColor; [rw]

  property FaceOptions: TFaceOptions; [rw]

  property FrameColor: TColor; [rw]

  property IndMaximum: Integer; [rw]

  property IndMinimum: Integer; [rw]

  property LengthMainTicks: Integer; [rw]

  property LengthSubTicks: Integer; [rw]

  property Margin: Integer; [rw]

  property MarginColor: TColor; [rw]

  property MaxColor: TColor; [rw]

  property MidColor: TColor; [rw]

  property MinColor: TColor; [rw]

  property NumberMainTicks: Integer; [rw]

  property Position: Single; [rw]

  property Scale: Integer; [rw] deprecated ;

  property ScaleMax: Integer; [rw]

  property ScaleMin: Integer; [rw]

  property Style: TStyle; [rw]

  property TextDist: Integer; [rw]

  property TicksColor: TColor; [rw]

  property ValueColor: TColor; [rw]

  property OnOverMax: TNotifyEvent; [rw]

  property OnOverMin: TNotifyEvent; [rw]

  property Align;

  property Anchors;

  property BorderSpacing;

  property Font;

end;

TA3nalogGauge

TObject