anchor.diff:    if AIndex<0 then exit;
     if AIndex=list.ItemIndex then
     begin
  -    cl:= GetAppColor('ListSelBg');
  -    c.Font.Color:= GetAppColor('ListSelFont');
  +    cl:= FColorBgSel;
  +    c.Font.Color:= FColorFontSel;
     end
     else
     begin
  -    cl:= list.Color;
  -    c.Font.Color:= GetAppColor('ListFont');
  +    cl:= FColorBg;
  +    c.Font.Color:= FColorFont;
     end;
     c.Brush.Color:= cl;
     c.Pen.Color:= cl;
  
positive.code:     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.TextOut(
        n,
        pnt.y + (list.ItemHeight-TextSize.cy) div 2,
  
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);
  