TplNumberLabel

type TplNumberLabel = class(TGraphicControl)

protected

  procedure AssignTo(); override;

  procedure MouseMove(); override;

  procedure Paint; override;

public

  procedure Assign(); override;

  constructor Create(); override;

  destructor Destroy; override;

  property Enabled;

  property MouseAreaCode: Integer; [r]

published

  property Alignment: TAlignMent; [rw]

  property ColorLabBakG: TColor; [rw]

  property ColorLabText: TColor; [rw]

  property ColorOutBakG: TColor; [rw]

  property ColorOutText: TColor; [rw]

  property ColorScheme: TColorScheme; [rw]

  property Comma: Boolean; [rw]

  property DisplayType: TDisplay; [rw]

  property DTFormat: string; [rw]

  property Empty: Boolean; [rw]

  property ForcePlusSign: Boolean; [rw]

  property FrameStyle: TFrameStyle; [rw]

  property LabelWidth: Integer; [rw]

  property LeftSpace: Integer; [rw]

  property LeftText: string; [rw]

  property LeftTextAlignment: TAlignMent; [rw]

  property OverflowIndicator: string; [rw]

  property Precision: Integer; [rw]

  property RightText: string; [rw]

  property RightTextAlignment: TAlignMent; [rw]

  property Value: Double; [rw]

  property ParentShowHint;

  property PopupMenu;

  property ShowHint;

  property ParentFont;

  property Font;

  property Anchors;

  property Align;

  property Visible;

  property OnClick;

  property OnDblClick;

  property OnPaint;

  property OnResize;

  property OnChangeBounds;

  property OnContextPopup;

  property OnEndDrag;

  property OnMouseDown;

  property OnMouseUp;

  property OnMouseEnter;

  property OnMouseLeave;

  property OnMouseMove;

  property OnMouseWheel;

  property OnMouseWheelDown;

  property OnMouseWheelUp;

  property OnMouseWheelHorz;

  property OnMouseWheelLeft;

  property OnMouseWheelRight;

  property OnDragDrop;

  property OnDragOver;

  property OnStartDrag;

  property OnStartDock;

  property OnEndDock;

end;

TplNumberLabel

TObject