anchor.diff:    FWidth        := 80;
     FHeight       := 80;
     FFocusable    := True;  // otherwise children can't get focus
  +  FBackgroundColor := clWindowBackground;
   end;
   
   end.
  
positive.code:   Repaint;
  end;
  
  procedure TfpgBevel.SetBevelStyle(const AValue: TBevelStyle);
  begin
    if FBevelStyle = AValue then
  
negative.code:   private
      FBevelShape: TBevelShape;
      FBevelStyle: TBevelStyle;
      FBackgroundColor: TfpgColor;
      procedure SetBackgroundColor(const AValue: TfpgColor);
      procedure   SetBevelShape(const AValue: TBevelShape);
      procedure   SetBevelStyle(const AValue: TBevelStyle);
    protected
  