TxBrowse desde Recursos
Posted: Thu Mar 08, 2007 7:08 am
Que tal, he estado viendo las respuestas sobre el txbrowse y de los demos que han puesto ninguno lo hace desde recursos, la pregunta se puede ?
Gracias.
Gracias.
Afirmativo, claro que se puede.Vital wrote:Que tal, he estado viendo las respuestas sobre el txbrowse y de los demos que han puesto ninguno lo hace desde recursos, la pregunta se puede ?
Gracias.
Code: Select all
WITH OBJECT ( oBrw := TXBrowse():New( oDlg ) )
:SetArray( aDetalle )
:lVScroll := .t.
:lHScroll := .f.
:nFreeze := 1
:nColDividerStyle := LINESTYLE_INSET
WITH OBJECT :aCols[1]
:cHeader := "Línea"
:bStrData := {|| Transform( aDetalle[ oBrw:nArrayAt ][01], "9,999" )}
END
WITH OBJECT :aCols[2]
:cHeader := "Estudio"
:bStrData := { || Transform( aDetalle[ oBrw:nArrayAt ][02], "@x" ) }
END
WITH OBJECT :aCols[3]
:cHeader := "Descripción"
:bStrData := { || Transform( aDetalle[ oBrw:nArrayAt ][03], "@x" ) }
END
:CreateFromResource( 403 )
END