TBGRALabel

type TBGRALabel = class(TGraphicControl)

protected

  procedure CalculatePreferredSize(); override;

  class function GetControlClassDefaultSize; override;

  procedure MouseDown(); override;

  procedure MouseUp(); override;

  procedure MouseEnter; override;

  procedure MouseLeave; override;

  procedure MouseMove(); override;

  procedure Paint; override;

  procedure Resize; override;

  procedure SetEnabled(); override;

  procedure TextChanged; override;

  procedure SetWordWrap();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Assign(); override;

published

  property Action;

  property AutoSize;

  property Align;

  property Anchors;

  property Background: TBGRABackground; [rw]

  property BorderWidth: Integer; [rw]

  property BorderSpacing;

  property Caption;

  property ParentColor;

  property Enabled;

  property PopupMenu;

  property RoundX: Integer; [rw]

  property RoundY: Integer; [rw]

  property TextAlign: TBGRATextAlign; [rw]

  property TextVAlign: TBGRATextVAlign; [rw]

  property TextAntialiasing: Boolean; [rw]

  property TextShadowAntialiasing: Boolean; [rw]

  property TextShadow: Boolean; [rw]

  property TextShadowColor: TColor; [rw]

  property TextShadowColorOpacity: Byte; [rw]

  property TextShadowOffsetX: Integer; [rw]

  property TextShadowOffsetY: Integer; [rw]

  property TextShadowRadius: Integer; [rw]

  property GlobalOpacity: Byte; [rw]

  property TextApplyGlobalOpacity: Boolean; [rw]

  property Visible;

  property WordWrap: Boolean; [rw]

  property Font: TFont; [rw]

  property OnClick;

  property OnDblClick;

  property OnMouseDown;

  property OnMouseEnter;

  property OnMouseLeave;

  property OnMouseMove;

  property OnMouseUp;

end;

TBGRALabel

TObject