anchor.diff:  
     if AIndex=List.ItemIndex then
     begin
  -    NColorFont:= GetAppColor('ListSelFont');
  -    NColorBack:= GetAppColor('ListSelBg');
  +    NColorFont:= FColorFontSel;
  +    NColorBack:= FColorBgSel;
     end
     else
     begin
  -    NColorFont:= GetAppColor('ListFont');
  -    NColorBack:= List.Color;
  +    NColorFont:= FColorFont;
  +    NColorBack:= FColorBg;
     end;
   
     c.Brush.Color:= NColorBack;
  
positive.code:   pnt:= Point(ARect.Left+4, ARect.Top+1);
    c.TextOut(pnt.x, pnt.y, str1);
  
    c.Font.Color:= GetAppColor('ListFontHotkey');
    c.TextOut(ARect.Right-c.TextWidth(str2)-4, pnt.y, str2);
  end;
  
  
negative.code: 
    List.DoubleBuffered:= UiOps.DoubleBuffered;
  
    FColorBg:= GetAppColor('ListBg');
    FColorBgSel:= GetAppColor('ListSelBg');
    FColorFont:= GetAppColor('ListFont');
    FColorFontSel:= GetAppColor('ListSelFont');
    FColorFontAlt:= GetAppColor('ListFontHotkey');
  
    self.Color:= FColorBg;
    List.Color:= FColorBg;
  
    plCaption.Height:= AppScale(26);
    plCaption.Font.Name:= UiOps.VarFontName;
  