anchor.diff:    PopUp_ObjectsPalette.Width := PopUp_ObjectsPalette.MasterParent.Width - 50;
     PopUp_ObjectsPalette.Height := PopUp_ObjectsPalette.MasterParent.Height - 50;
   
  -  RowsCnt := (PopUp_ObjectsPalette.Height - 80) div 85;
  -  ColsCnt := Min(OBJECTS_PALETTE_MAX_COLS_CNT, (PopUp_ObjectsPalette.Width) div 65); // Calc cols count without Scroll first
  +  RowsCnt := (PopUp_ObjectsPalette.Height - 80) div (OBJ_CELL_H + 1);
  +  ColsCnt := Min(OBJECTS_PALETTE_MAX_COLS_CNT, (PopUp_ObjectsPalette.Width) div (OBJ_CELL_W + 1)); // Calc cols count without Scroll first
     Scroll_ObjectsPalette.Visible := RowsCnt*ColsCnt < fCountCompact;
  -  ColsCnt := Min(OBJECTS_PALETTE_MAX_COLS_CNT, (PopUp_ObjectsPalette.Width - 25*Byte(Scroll_ObjectsPalette.Visible)) div 65); // Recalc ColsCount considering possible scroll width
  +  ColsCnt := Min(OBJECTS_PALETTE_MAX_COLS_CNT, (PopUp_ObjectsPalette.Width - 25*Byte(Scroll_ObjectsPalette.Visible)) div (OBJ_CELL_W + 1)); // Recalc ColsCount considering possible scroll width
   
     fObjPaletteTableSize := KMPoint(ColsCnt, RowsCnt);
   
  
positive.code: 
  const
    OBJECTS_PALETTE_MAX_COLS_CNT = 17;
  
  
  { TKMMapEdTerrainObjects }
  
negative.code: 
    Button_ClosePalette.Left := PopUp_ObjectsPalette.Center.X - 100;
    Button_ClosePalette.Top := Image_ObjectsPalette.Bottom - 70;
  
    Button_ObjPaletteErase.Top := Image_ObjectsPalette.Bottom - 70;
    Button_ObjPaletteBlock.Top := Image_ObjectsPalette.Bottom - 70;
  
    Scroll_ObjectsPalette.Left := Image_ObjectsPalette.Right - 50;
    Scroll_ObjectsPalette.Top := Image_ObjectsPalette.Top + 50;
  