anchor.diff:        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
  
positive.code: 
    List.DoubleBuffered:= UiOps.DoubleBuffered;
  
    self.Color:= GetAppColor('ListBg');
    List.Color:= self.Color;
  
    List.Font.Name:= UiOps.VarFontName;
    List.Font.Size:= AppScaleFont(UiOps.VarFontSize);
  
    plCaption.Height:= AppScale(26);
    plCaption.Font.Name:= UiOps.VarFontName;
  
negative.code: 
    if AIndex=List.ItemIndex then
    begin
      NColorFont:= FColorFontSel;
      NColorBack:= FColorBgSel;
    end
    else
    begin
      NColorFont:= FColorFont;
      NColorBack:= FColorBg;
    end;
  
    c.Brush.Color:= NColorBack;
  