anchor.diff:      TextSize:= c.TextExtent(strkey);
       n:= list.ClientWidth-TextSize.cx-4;
       c.FillRect(n-2, pnt.y, list.ClientWidth, pnt.y+list.ItemHeight);
  -    c.Font.Color:= GetAppColor('ListFontHotkey');
  +    c.Font.Color:= FColorFontHotkey;
       c.TextOut(
         n,
         pnt.y + (list.ItemHeight-TextSize.cy) div 2,
  
positive.code:   pnt:= Point(ARect.Left+4, ARect.Top);
    c.TextOut(pnt.x, pnt.y, strname);
  
    c.Font.Color:= GetAppColor('ListFontHilite');
  
    if UiOps.ListboxFuzzySearch then
    begin
  
negative.code:     { private declarations }
      keymapList: TList;
      FOnMsg: TStrEvent;
      FColorBg: TColor;
      FColorBgSel: TColor;
      FColorFont: TColor;
      FColorFontSel: TColor;
      FColorFontHilite: TColor;
      FColorFontHotkey: TColor;
      procedure DoConfigKey(Cmd: integer);
      procedure DoFilter;
      procedure DoResetKey(K: TATKeymapItem);
  