FillRect doesn't paint the complete TStringGrid cell in Delphi XE2

Question

FillRect doesn\'t paint the complete TStringGrid cell in Delphi XE2. There is a gap of 3 pixels on the left side in the default color (with B

Answer 1

This is expected behaviour in XE2 when DefaultDrawing = true and themes are enabled (I'm not going to argue about good or bad here - as you might have noticed, the behaviour is different for RigthToLeft mode...).

A workaround is to check for this condition and decrement Rect.Left by 4 pixel before calling FillRect.