Griglia e VistaDati: modifica font e altezza intestazione e righe (vecchio layout)

' Il seguente snippet deve essere inserito nell'EventoRender e consente di applicare uno stile specifico all'intestazione e alle righe di una griglia, variandone anche l'altezza
' N.B. utilizzabile solo con NuovoLayout=false

form.AddStyle(".stile_header","background-color:red !important;font-size:11pt !important")
form.AddStyle(".stile_riga","font-size:11pt !important;height:25px !important")

form.FindControl("Grid1").SetHeaderStyle("stile_header")

dim i as integer
for i=1 to form.FindControl("Grid1").RowCount()
	form.FindControl("Grid1").SetRowStyle(i,"stile_riga")
Next

' ***** Versione utilizzabile con release precedenti alla 2021.07+4
dim style as string
dim g as QWWebControls.QWWebGrid2 = form.findcontrol("DataView1")

style="<style type=""text/css"">"
style+="  .stile_header{font-size:11pt !important}"
style+="  .stile_riga{font-size:11pt !important;height:25px !important}"
style+="</style>"

dim l as new System.Web.Ui.WebControls.literal
l.text = style
g.parent.controls.add(l)

g.HeaderCaptionCssClass="stile_header"

For Each r As Infragistics.Web.UI.GridControls.GridRecord In g.rows
  for each c as Infragistics.Web.UI.GridControls.GridRecordItem in r.Items
    c.CssClass="stile_riga"
  Next
Next