anchor.diff:  
   procedure TfmMenuApi.FormCreate(Sender: TObject);
   begin
  +  FColorBg:= GetAppColor('ListBg');
  +  FColorBgSel:= GetAppColor('ListSelBg');
  +  FColorFont:= GetAppColor('ListFont');
  +  FColorFontSel:= GetAppColor('ListSelFont');
  +  FColorFontAlt:= GetAppColor('ListFontHotkey');
  +  FColorFontHilite:= GetAppColor('ListFontHilite');
  +
     if UiOps.ShowMenuDialogsWithBorder then
       BorderStyle:= bsDialog;
   
     edit.DoubleBuffered:= UiOps.DoubleBuffered;
     list.DoubleBuffered:= UiOps.DoubleBuffered;
   
  -  list.Font.Name:= UiOps.VarFontName;
  -  list.Font.Size:= AppScaleFont(UiOps.VarFontSize);
  -  list.Color:= GetAppColor('ListBg');
  +  list.Color:= FColorBg;
   
     edit.Height:= AppScale(UiOps.InputHeight);
     edit.Font.Name:= EditorOps.OpFontName;
  
positive.code:   PanelCaption.Height:= AppScale(26);
    PanelCaption.Font.Name:= UiOps.VarFontName;
    PanelCaption.Font.Size:= AppScaleFont(UiOps.VarFontSize);
    PanelCaption.Font.Color:= GetAppColor('ListFont');
  
    self.Color:= GetAppColor('ListBg');
    self.Width:= AppScale(UiOps.ListboxSizeX);
    self.Height:= AppScale(UiOps.ListboxSizeY);
  
  
negative.code:     { private declarations }
      FMultiline: boolean;
      listFiltered: TList;
      FColorBg: TColor;
      FColorBgSel: TColor;
      FColorFont: TColor;
      FColorFontSel: TColor;
      FColorFontAlt: TColor;
      FColorFontHilite: TColor;
      procedure DoFilter;
      function GetResultCmd: integer;
      function IsFiltered(AOrigIndex: integer): boolean;
  