anchor.diff:    if (aCol = 0) or (aRow = 0) then
     begin
       FValueListEditor.Canvas.Font.Style := FValueListEditor.Canvas.Font.Style + [fsBold];
  +
  +    if (sender as TmValueListEditor).Row = aRow then
  +      FValueListEditor.Canvas.Brush.Color := TmEditingPanel.COLOR_CURRENT_ROW;
  +
       if MultiEditMode and (aRow > 0) then
       begin
         if (FLinesByRowIndex.Find(aRow) as TEditorLine).ForceClear then
  
positive.code: var
    curLine : TEditorLine;
  begin
    if aCol <> 1 then
      exit;
  
  
negative.code:   { TmEditingPanel }
  
    TmEditingPanel = class(TCustomPanel)
    strict private
      const COLOR_CURRENT_ROW = $39EEFD;
    strict private
      FRootPanel : TOMultiPanel;
      FClearValuesPanel : TPanel;
  