anchor.diff:  
     TfpgBevel = class(TfpgAbstractPanel)
     private
  +    FPanelShape: TPanelShape;
       procedure   SetPanelShape(const AValue: TPanelShape);
     protected
       procedure   HandlePaint; override;
  
positive.code:   inherited Create(AOwner);
    FText             := 'Group box';
    FFont             := fpgGetFont('#Label1');
    FPanelShape       := bsBox;
    FPanelStyle       := bsRaised;
    FWidth            := 80;
    FHeight           := 80;
  
negative.code: constructor TfpgAbstractPanel.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
    FPanelStyle      := bsRaised;
    FPanelBorder     := bsSingle;
    FWidth           := 80;
  