StringGrid: eine Zeile markieren?

[Lannes]

Hallo,

OnDrawCell
was machst Du darin?

Mit dem Code funktioniert es aus den verschiedenen Aufrufmöglichkeiten.
Wobei nur beim Buttonklick alle Zellen markiert(blau) werden,
bei Aufruf aus Menü oder im onClick des StringGrids
ist die erste Zelle der Zeile nur mit einem Focusrahmen versehen.

Delphi-Quellcode:

var aRow,aFixCols : Integer;
begin
  aRow := StringGrid1.Row;
  aFixCols := StringGrid1.FixedCols;
  //erste Zelle markieren
  StringGrid1.Selection := TGridRect(Rect(aRow,aFixCols,aRow,aFixCols));
  StringGrid1.SetFocus;
  //jetzt sozusagen eine Selectierung von hinten nach vorne
  StringGrid1.Selection := TGridRect(Rect(StringGrid1.ColCount-1,
                                          aRow,
                                          aFixCols,
                                          aRow));

Was besseres fällt mir jetzt nicht ein