#########################################################
\definecolor[MyColorA][r=0.8784, g=0.8784, b=0.8784]

\defineframedtext
  [MyFrame]
  [before={\blank},
   after={\blank},
   frame=off,
   background=MyFrame,
   width=6cm,
   height=fit,
   style=small]

\startuseMPgraphic{MyFrame}
 path b;
 picture p;
 p := textext.rt("\tfx\white\framedtextparameter{Title}");
 p := p shifted (2BodyFontSize,OverlayHeight-ypart center p+.25ExHeight);
 b := boundingbox p leftenlarged .5EmWidth rightenlarged .5EmWidth ;
 fill OverlayBox withcolor \MPcolor{MyColorA};
 fill b withcolor darkred ;
 draw p;
 setbounds currentpicture to boundingbox currentpicture enlarged 2mm ;
\stopuseMPgraphic

\defineoverlay
  [MyFrame]
  [\useMPgraphic{MyFrame}]

\starttext

\startlinecorrection[blank]
\startmidaligned
\startcombination[2*2]
{\startMyFrame[Title=ALGO A]
 One
 \stopMyFrame}{}
{\startMyFrame[Title=ALGO B]
Two
\stopMyFrame}{}
{\startMyFrame[Title=ALGO C]
Three
\stopMyFrame}{}
{\startMyFrame[Title=ALGO D]
Four
\stopMyFrame}{}
\stopcombination
\stopmidaligned
\stoplinecorrection

\stoptext
#########################################################