anchor.diff:  
     List.DoubleBuffered:= UiOps.DoubleBuffered;
   
  -  self.Color:= GetAppColor('ListBg');
  -  List.Color:= self.Color;
  -
  -  List.Font.Name:= UiOps.VarFontName;
  -  List.Font.Size:= AppScaleFont(UiOps.VarFontSize);
  +  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;
  
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:       const ARect: TRect);
      procedure ListClick(Sender: TObject);
    private
      FColorBg: TColor;
      FColorBgSel: TColor;
      FColorFont: TColor;
      FColorFontSel: TColor;
      FColorFontAlt: TColor;
      procedure SetListCaption(const AValue: string);
      { private declarations }
    public
  