Danke erstmal, das klang grundsätzlich gut (hatte CurrentRowSelected irgendwie übersehn), aber funktioniert leider nicht.
Die "CurrentRow" enthält einen Wert/Bookmark,
aber die SelectedRows sind irgendwie immer leer. Find findet nichts, da auch Count und Items leer sind.
Egal ob mit oder ohne gdRowSelected.
Weder im OnDrawColumnCell, aber auch in einem Button-Click ist SelectedRows immer leer. (akuelles Delphi 11.3)
TStringGrid/TDrawGrid nicht getestet ... hab aktuell nur ein TDBGrid zur Verfügung.
Delphi-Quellcode:
if Grid.SelectedRows.CurrentRowSelected {and not (gdSelected in State) and not (gdHotTrack in State)} then
Grid.Canvas.Brush.Color := clFuchsia;//clInfoBk;
// das Nachfolgende ist aus dem entstanden, was im CurrentRowSelected drin ist
var Index: Integer;
if Grid.SelectedRows.Find(Grid.DataSource.DataSet.Bookmark, Index) then
Grid.Canvas.Brush.Color := clFuchsia;
if (Grid.SelectedRows.Count = 1) and (Grid.SelectedRows[0] = Grid.DataSource.DataSet.Bookmark) then
Grid.Canvas.Brush.Color := clFuchsia;