TBCGradientButton

type TBCGradientButton = class(TGraphicControl)

protected

  procedure Paint; override;

  procedure MouseMove(); override;

  procedure MouseLeave; override;

  procedure MouseDown(); override;

  procedure MouseUp(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Invalidate; override;

  procedure BeginUpdate;

  procedure EndUpdate;

published

  property LockHorizontal: Boolean; [rw]

  property LockVertical: Boolean; [rw]

  property DimColor: TBCPixel; [rw]

  property Color1: TBCPixel; [rw]

  property Color2: TBCPixel; [rw]

  property BorderColor: TBCPixel; [rw]

  property BorderSize: Integer; [rw]

  property OnBeforeRedraw: TBGRARedrawEvent; [rw]

  property OnAfterRedraw: TBGRARedrawEvent; [rw]

  property Align;

  property Anchors;

  property BorderSpacing;

  property Caption;

  property Enabled;

  property ShowHint;

end;

TBCGradientButton

TObject