FocusRect should extend to RowRect when toFullRowSelect, independent of tsUseExplorerTheme

[alexmitev81]

I think FocusRect should be drawn across the entire row when toFullRowSelect is selected.
Right now this happens only when tsUseExplorerTheme is selected (Vista and later), otherwise FocusRect is drawn around InnerRect or CellRect (procedure PrepareCell).