Color in BarLegend is not consistent with the plot?

Here's a workaround:

Legended[
 DensityPlot[Sin[x] Sin[y], {x, -4, 4}, {y, -3, 3}, 
  ColorFunction -> (Blend[{Red, White, Blue}, 
      Rescale[#, {-1, 1}]] &), 
  ColorFunctionScaling -> False],
Placed[Append[
  lgnds, {LegendLayout -> "Row", Charting`TickSide -> Left}],
 Above]]