anchor.diff:    PanelCaption.Height:= AppScale(26);
     PanelCaption.Font.Name:= UiOps.VarFontName;
     PanelCaption.Font.Size:= AppScaleFont(UiOps.VarFontSize);
  -  PanelCaption.Font.Color:= GetAppColor('ListFont');
  -
  -  self.Color:= GetAppColor('ListBg');
  +  PanelCaption.Font.Color:= FColorFont;
  +
  +  self.Color:= FColorBg;
     self.Width:= AppScale(UiOps.ListboxSizeX);
     self.Height:= AppScale(UiOps.ListboxSizeY);
   
  
positive.code:     { private declarations }
      FMultiline: boolean;
      listFiltered: TList;
      procedure DoFilter;
      function GetResultCmd: integer;
      function IsFiltered(AOrigIndex: integer): boolean;
  
negative.code:   if AIndex<0 then exit;
    if AIndex=list.ItemIndex then
    begin
      c.Font.Color:= FColorFontSel;
      cl:= FColorBgSel;
    end
    else
    begin
      c.Font.Color:= FColorFont;
      cl:= FColorBg;
    end;
    c.Brush.Color:= cl;
    c.Pen.Color:= cl;
  