Display an image with high resolution?

Hello All,
I require to display the output images at least 400 x 400 on screen.
They are tiny as shown attached.
Please find below code and nb file:

Manipulate[imageA= ;
 varBin=Binarize[imageA,binimageA];
 Column[{Button["Gradient Filter",
    out=ImageAdjust[GradientFilter[varBin,0.5]]],
   Row[{imageA,varBin,out}]}],
 {binimageA,0,1}]

Thanks for usual consideration

For wolframMath forum 13 08 2018.nb (4.71 MB)

You might want to consider:

Row[{
    Image[imageA, ImageSize -> 400], 
    Image[varBin, ImageSize -> 400],
    If[ImageQ[out], Image[out, ImageSize -> 400], out]
}]