TCustomBGRAButton

type TCustomBGRAButton = class(TGraphicControl)

protected

  procedure CMChanged(); message;

  procedure BoundsChanged; override;

  procedure CalculatePreferredSize(); override;

  class function GetControlClassDefaultSize; override;

  procedure Click; override;

  procedure MouseDown(); override;

  procedure MouseUp(); override;

  procedure MouseEnter; override;

  procedure MouseLeave; override;

  procedure MouseMove(); override;

  procedure Paint; override;

  procedure SetEnabled(); override;

  procedure TextChanged; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Assign(); override;

  procedure BeginUpdate; virtual;

  procedure EndUpdate; virtual;

  procedure SetSizeVariables();

  property ArrowSize: Integer; [r]

  property ArrowSpace: Integer; [r]

  property AutoSizeExtraVertical: Integer; [r]

  property AutoSizeExtraHorizontal: Integer; [r]

  property BodyNormal: TBody; [rw]

  property BodyHover: TBody; [rw]

  property BodyClicked: TBody; [rw]

  property BorderWidth: Integer; [rw]

  property BorderStyle: TBGRABorderStyleOptions; [rw]

  property BorderStyleDropDown: TBGRABorderStyleOptions; [rw]

  property Down: Boolean; [rw]

  property FlipArrow: Boolean; [rw]

  property Glyph: TBitmap; [rw]

  property GlyphMargin: Integer; [rw]

  property RoundX: Integer; [rw]

  property RoundY: Integer; [rw]

  property TextAlign: TBGRATextAlign; [rw]

  property TextCanvas: Boolean; [rw]

  property TextVAlign: TBGRATextVAlign; [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 Style: TBGRAButtStyle; [rw]

  property StaticButton: Boolean; [rw]

  property GlobalOpacity: Byte; [rw]

  property TextApplyGlobalOpacity: Boolean; [rw]

  property OnAfterPrepareBGRAButton: TOnAfterPrepareBGRAButton; [rw]

  property OnButtonClick: TNotifyEvent; [rw]

end;

TCustomBGRAButton

TObject