TBCMaterialDesignButton

type TBCMaterialDesignButton = class(TBGRAGraphicCtrl)

protected

  procedure CalculatePreferredSize(); override;

  procedure OnStartTimer();

  procedure OnTimer();

  procedure Paint; override;

  procedure MouseDown(); override;

  class function GetControlClassDefaultSize; override;

  procedure TextChanged; override;

  procedure UpdateShadow;

public

  constructor Create(); override;

  destructor Destroy; override;

published

  property RoundBorders: single; [rw]

  property NormalColor: TColor; [rw]

  property NormalColorEffect: TColor; [rw]

  property Shadow: Boolean; [rw]

  property ShadowColor: TColor; [rw]

  property ShadowSize: Integer; [rw]

  property TextColor: TColor; [rw]

  property TextSize: Integer; [rw]

  property TextShadow: Boolean; [rw]

  property TextShadowColor: TColor; [rw]

  property TextShadowSize: Integer; [rw]

  property TextShadowOffsetX: Integer; [rw]

  property TextShadowOffsetY: Integer; [rw]

  property TextStyle: TFontStyles; [rw]

  property TextFont: string; [rw]

  property TextQuality: TBGRAFontQuality; [rw]

  property Action;

  property Align;

  property Anchors;

  property AutoSize;

  property BidiMode;

  property BorderSpacing;

  property OnChangeBounds;

  property Caption;

  property Constraints;

  property DragCursor;

  property DragKind;

  property DragMode;

  property Enabled;

  property OnClick;

  property OnContextPopup;

  property OnDragDrop;

  property OnDragOver;

  property OnEndDrag;

  property OnMouseDown;

  property OnMouseMove;

  property OnMouseUp;

  property OnMouseEnter;

  property OnMouseLeave;

  property OnMouseWheel;

  property OnMouseWheelDown;

  property OnMouseWheelUp;

  property OnResize;

  property OnStartDrag;

  property ParentBidiMode;

  property ParentFont;

  property ParentShowHint;

  property PopupMenu;

  property ShowHint;

  property Visible;

end;

TBCMaterialDesignButton

TBGRAGraphicCtrl

TObject