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