Type
  TxdDesignPanel = Class(TPanel)
  Public
    Procedure Paint; Override;
  End;

implementation

Procedure TxdDesignPanel.Paint;
Var c :TCorners;
begin
  Inherited paint;
  c := [TCorner.TopLeft, TCorner.TopRight, TCorner.BottomLeft, TCorner.BottomRight];
  Canvas.Stroke.Thickness := 1.5;
  Canvas.Stroke.Kind      := TBrushKind.bkSolid;
  Canvas.Fill.Color       := TAlphaColorRec.Black;
  Canvas.Fill.Kind        := TBrushKind.bkSolid;
  Canvas.DrawRect(TRectF.Create(-10, -10, 15, 15), 0, 0, c, AbsoluteOpacity, TcornerType.Bevel);

End;