Ejemplo.
- Code: Select all Expand view
....
oLbx := TXBrowse():New( oDlgbrow )
oLbx:CreateFromResource( 4001 )
oCol := oLbx:AddCol()
oCol:bStrData := { || oDbfxls:Fields("planta"):value }
oCol:cHeader := "Planta"
oCol:cFooter := " "
oCol:nWidth := 50
oCol:nHeadStrAlign := AL_LEFT //AL_RIGHT AL_CENTER
oCol:nDataStrAlign := AL_LEFT
oCol := oLbx:AddCol()
oCol:bStrData := { || oDbfxls:Fields("nom_proceso"):value }
oCol:cHeader := "Proceso"
oCol:cFooter := " "
oCol:nWidth := 160
oCol:nHeadStrAlign := AL_LEFT //AL_RIGHT AL_CENTER
oCol:nDataStrAlign := AL_LEFT
oCol := oLbx:AddCol()
oCol:bStrData := { || oDbfxls:Fields("codmez"):value }
oCol:cHeader := "Cod.Form"
oCol:cFooter := " "
oCol:nWidth := 60
oCol:nHeadStrAlign := AL_LEFT //AL_RIGHT AL_CENTER
oCol:nDataStrAlign := AL_LEFT
oCol := oLbx:AddCol()
oCol:bStrData := { || oDbfxls:Fields("nombre_mez"):value }
oCol:cHeader := "Nombre.Formulacion"
oCol:cFooter := " "
oCol:nWidth := 280
oCol:nHeadStrAlign := AL_LEFT //AL_RIGHT AL_CENTER
oCol:nDataStrAlign := AL_LEFT
oLbx:lHScroll := .t.
oLbx:lVScroll := .t.
oLbx:SetAdo(oDbfxls) //oBrw:SetRDD()
oLbx:refresh()
.....