LCL, fix grid focus rect drawing when rowselect and writing something to a cell in current row, based on patch from Yuichiro Takahashi, issue 25371

git-svn-id: http://svn.freepascal.org/svn/lazarus/trunk@46501 4005530d-fff6-0310-9dd1-cebe43e6787f