anchor.diff:  
     TfpgAbstractPanel = class(TfpgWidget)
     private
  -    FPanelShape: TPanelShape;
       FPanelStyle: TPanelStyle;
       FPanelBorder: TPanelBorder;
       FParentBackgroundColor: Boolean;
  
positive.code: 
    TfpgBevel = class(TfpgAbstractPanel)
    private
      procedure   SetPanelShape(const AValue: TPanelShape);
    protected
      procedure   HandlePaint; override;
  
negative.code:   inherited Create(AOwner);
    FText             := 'Group box';
    FFont             := fpgGetFont('#Label1');
    FPanelStyle       := bsRaised;
    FWidth            := 80;
    FHeight           := 80;
  