FiveTech Support Forums

  ....
 
    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()
.....

      REDEFINE XBROWSE oLbx ; 
        COLUMNS "tipmod", "Nombre","Valo","Status" ; 
        HEADERS "Codigo", "Nombre","Valor","Status" ; 
        PICTURES nil, nil, "@Z 99,999,999.99",nil ; 
        COLSIZES 60, 200,100,40 ; 
        JUSTIFY .F., .F., .T., .T. ;
        OF oDlgbrow ID 4001 ; 
        RECORDSET oDat01

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
    type="win32"
    name="MyOrganization.MyDivision.MyApp"
    version="1.0.0.0"
    processorArchitecture="X86"
    />
    <description>Verbal description of MyApp.</description>
    <dependency>
    <dependentAssembly>
    <assemblyIdentity
        type="win32"
        name="Microsoft.Windows.Common-Controls"
        version="6.0.0.0"
        processorArchitecture="X86"
        publicKeyToken="6595b64144ccf1df"
        language="*"
    />
    </dependentAssembly>
    </dependency>
</assembly>