anchor.diff:    end;
     }
   
  -  if strkey<>'' then
  +  if s_right<>'' then
     begin
       if not Multiline then
  -      pnt:= Point(ARect.Left+List.ClientWidth-cIndent-c.TextWidth(Utf8Encode(strkey)), pnt.y)
  +      pnt:= Point(ARect.Left+List.ClientWidth-cIndent-c.TextWidth(Utf8Encode(s_right)), pnt.y)
       else
         pnt:= Point(ARect.Left+cIndent2, pnt.y+list.ItemHeight div 2);
   
  
positive.code:   {//no support for n words
    else
    begin
      n:= Pos(Lowercase(strfind), Lowercase(strname));
      if n>0 then
      begin
        buf:= Copy(strname, n, Length(strfind));
        n:= c.TextWidth(Copy(strname, 1, n-1));
        r1:= Rect(pnt.x+n, pnt.y, pnt.x+n+c.TextWidth(buf), ARect.Bottom);
        ExtTextOut(c.Handle,
          r1.Left, r1.Top,
          ETO_CLIPPED+ETO_OPAQUE,
          @r1,
          PChar(buf),
          Length(buf),
          nil);
  
negative.code:       c.FillRect(pnt.x-2, pnt.y, list.ClientWidth, pnt.y+list.ItemHeight-1);
  
      c.Font.Color:= FColorFontAlt;
      c.TextOut(pnt.x, pnt.y, Utf8Encode(s_right));
    end;
  end;
  
  