anchor.diff:    published
       property    Shape: TBevelShape read FBevelShape write SetBevelShape default bsBox;
       property    Style: TBevelStyle read FBevelStyle write SetBevelStyle default bsRaised;
  +    property    BackgroundColor: TfpgColor read FBackgroundColor write SetBackgroundColor default clWindowBackground;
     end;
   
   
  
positive.code:   FWidth        := 80;
    FHeight       := 80;
    FFocusable    := True;  // otherwise children can't get focus
  end;
  
  end.
  
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
  