Usability enhancement: Colorize any unfocused cell in a focused row with clInfoBk (mostly light yellow). Helps with identifying the focused row.

This commit is contained in:
Ansgar Becker
2008-10-19 13:06:36 +00:00
parent 8dc8c63c5b
commit f44d56a051

View File

@ -6424,6 +6424,9 @@ begin
if prefEnableNullBG and gr.Rows[Node.Index].Cells[Column].IsNull then begin if prefEnableNullBG and gr.Rows[Node.Index].Cells[Column].IsNull then begin
TargetCanvas.Brush.Color := prefNullBG; TargetCanvas.Brush.Color := prefNullBG;
TargetCanvas.FillRect(CellRect); TargetCanvas.FillRect(CellRect);
end else if (vsSelected in Node.States) and (Column <> Sender.FocusedColumn) then begin
TargetCanvas.Brush.Color := clInfoBk;
TargetCanvas.FillRect(CellRect);
end; end;
end; end;