windows={DirichletWindow,BartlettWindow,KaiserWindow,HannWindow,HammingWindow,BlackmanWindow};
f=Table[FourierTransform[win[x],x,w],{win,windows}];

Partition[MapThread[LogLinearPlot[Evaluate[20 Log[10,#/Limit[#,w->0]]],{w,.1,100},GridLines->Automatic,PlotRange->{Automatic,{0,-80}},PlotLabel->#2]&,{f,windows}],3]//Grid