How to work around Column cutting off a pixel row from images?

Question

I have a problem where Column will occasionally cut off a single pixel from the top of images.

To reproduce the problem, evaluate this:

image = Import["https://i.stack.imgur.com/2dEty.png"]
Column[{"text", Image[image, Magnification -> 1], "text"}]

The output I get looks like this in the front end:

Note that in Out[2] a single pixel wide row is cut off from the top of the image. It does not occur with all images, but it does with this particular one.

How can I work around this problem? This is on Win7. Can you reproduce on other platforms?

I need this for the image uploader palette (SOUploader`uploadWithPreview[] function to be specific).

---

It is interesting to note that if I wrap the image in a Pane, and set a pane-size explicitly (as in the original code of the palette), whether the row is cut off depends on whether the size is even or odd (I suspect a rounding issue):

Try this and notice that the cropping happens for even k only:

Table[
 Column[{"text", 
   Pane[Image[image, Magnification -> 1], 
    ImageDimensions[image] + {0, k}], "text"}],
 {k, 0, 5}
 ]

Answer 1

This seems to be due to a small rounding issue on Windows.

Here is a test Manipulate:

Manipulate[
 matrix = ArrayFlatten[Table[DiamondMatrix[size], {x}, {y}]];
 image = Image[matrix /. {0 -> {0, 0, 0}, 1 -> {255, 255, 255}},
  "Byte", ColorSpace -> "RGB", Interleaving -> True];
 Column[{"test", Image[image, Magnification -> 1], "test"}],
 {size, 1, 20, 1},
 {x, 1, 20, 1},
 {y, 1, 20, 1}
]

Under certain settings the top row of pixels in the image is cut off:

Answer 2

Since I cannot reproduce the error I can only guess. Maybe setting the Spacings option for Column helps? This is what Spacing -> 0 looks like:

You can see the gray dividers above the image appearing and then not making it to the middle because of the overlap. Increasing spacing solves this problem, here's Spacing -> 1:

The lines are now visible, and nothing is clipped.