anchor.diff:      { private declarations }
       FMultiline: boolean;
       listFiltered: TList;
  +    FColorBg: TColor;
  +    FColorBgSel: TColor;
  +    FColorFont: TColor;
  +    FColorFontSel: TColor;
  +    FColorFontAlt: TColor;
  +    FColorFontHilite: TColor;
       procedure DoFilter;
       function GetResultCmd: integer;
       function IsFiltered(AOrigIndex: integer): boolean;
  
positive.code:     if not FMultiline then
        c.FillRect(pnt.x-2, pnt.y, list.ClientWidth, pnt.y+list.ItemHeight-1);
  
      c.Font.Color:= GetAppColor('ListFontHotkey');
      c.TextOut(pnt.x, pnt.y, Utf8Encode(strkey));
    end;
  end;
  
negative.code:   pnt:= Point(ARect.Left+cIndent, ARect.Top+1);
    c.TextOut(pnt.x, pnt.y, Utf8Encode(strname));
  
    c.Font.Color:= FColorFontHilite;
  
    if UiOps.ListboxFuzzySearch and not DisableFuzzy then
    begin
  