anchor.diff:      property    ImageSpacing: integer read FImageSpacing write SetImageSpacing default -1;
       property    ModalResult: integer read FModalResult write FModalResult default 0;
       property    ShowImage: Boolean read FShowImage write SetShowImage default True;
  +    property    Text: string read FText write SetText;
  +  public
  +    constructor Create(AOwner: TComponent); override;
  +    destructor  Destroy; override;
  +    procedure   Click;
  +    function    GetCommand: ICommand;   // ICommandHolder interface
  +    procedure   SetCommand(ACommand: ICommand); // ICommandHolder interface
  +    property    Font: TfpgFont read FFont;
  +  end;
  +  
  +  
  +  TfpgButton = class(TfpgBaseButton)
  +  published
  +    property    AllowAllUp;
  +    property    AllowDown;
  +    property    BackgroundColor default clButtonFace;
  +    property    Default;
  +    property    Down;
  +    property    Embedded;
  +    property    FontDesc;
  +    property    GroupIndex;
  +    property    ImageMargin;
  +    property    ImageName;
  +    property    ImageSpacing;
  +    property    ModalResult;
  +    property    ShowImage;
  +    property    Text;
  +    property    TextColor;
       property    TabOrder;
  -    property    Text: string read FText write SetText;
  -    property    TextColor;
       property    OnMouseExit;
       property    OnMouseEnter;
       property    OnClick;
  
positive.code:     inherited;
  end;
  
  procedure TfpgButton.HandleKeyRelease(var keycode: word; var shiftstate: TShiftState; var consumed: boolean);
  begin
    if (keycode = keyReturn) or (keycode = keySpace) or (keycode = keyPEnter) then
    begin
  
negative.code:   RePaint;
  end;
  
  procedure TfpgBaseButton.SetImageName(const AValue: string);
  begin
    FImageName := AValue;
    FImage     := fpgImages.GetImage(FImageName);
    Repaint;
  end;
  
  function TfpgBaseButton.GetFontDesc: string;
  begin
    Result := FFont.FontDesc;
  end;
  
  procedure TfpgBaseButton.SetDefault(const AValue: boolean);
  var
    i: integer;
    wg: TfpgWidget;
  