anchor.diff:    panelCaption.Font.Name:= UiOps.VarFontName;
     panelCaption.Font.Size:= AppScaleFont(UiOps.VarFontSize);
   
  -  self.Color:= GetAppColor('ListBg');
  +  self.Color:= FColorBg;
     edit.Colors.TextFont:= GetAppColor('EdTextFont');
     edit.Colors.TextBG:= GetAppColor('EdTextBg');
     edit.Colors.TextSelFont:= GetAppColor('EdSelFont');
     edit.Colors.TextSelBG:= GetAppColor('EdSelBg');
     edit.Colors.BorderLine:= GetAppColor('EdBorder');
  -  list.Color:= GetAppColor('ListBg');
  -  panelCaption.Font.Color:= GetAppColor('ListFont');
  +  list.Color:= FColorBg;
  +  panelCaption.Font.Color:= FColorFont;
   
     self.Width:= AppScale(UiOps.ListboxSizeX);
     self.Height:= AppScale(UiOps.ListboxSizeY);
  
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:   if AIndex<0 then exit;
    if AIndex=list.ItemIndex then
    begin
      cl:= FColorBgSel;
      c.Font.Color:= FColorFontSel;
    end
    else
    begin
      cl:= FColorBg;
      c.Font.Color:= FColorFont;
    end;
    c.Brush.Color:= cl;
    c.Pen.Color:= cl;
  