anchor.diff:    end;
   end;
   
  -procedure TfpgButton.SetText(const AValue: string);
  +procedure TfpgBaseButton.SetText(const AValue: string);
   begin
     if FText = AValue then
       Exit;
  
positive.code:   RePaint;
  end;
  
  procedure TfpgButton.SetImageName(const AValue: string);
  begin
    FImageName := AValue;
    FImage     := fpgImages.GetImage(FImageName);
    Repaint;
  end;
  
  function TfpgButton.GetFontDesc: string;
  begin
    Result := FFont.FontDesc;
  end;
  
  procedure TfpgButton.SetDefault(const AValue: boolean);
  var
    i: integer;
    wg: TfpgWidget;
  
negative.code:   inherited Destroy;
  end;
  
  procedure TfpgBaseButton.HandlePaint;
  var
    AText: string;
    x, y, iy, w: integer;
  