FiveTech Software tech support forums

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


 

wmormar wrote:ruben Dario,

no es que no aparezca, en FWH en las ultimas versiones los scroll no aparecen cuando en versiones anteriores creo que antes de la 10.6 si aparecian.

Para que aparezcan hay que modificar la propiedad:

Windows Style (del recurso)

con:

0x50B10000

aqui la B indica que se mostraran los dos browse, tanto vertical como horizontal.

Si le aplicas A se mostrara solo uno.

Espero lo corrijan para que se pueda usar los scrolles como antes y a gusto para no depender de los recursos.

Code: Select all  Expand view

      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
 

Code: Select all  Expand view

<?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>
 

wmormar wrote:ruben Dario,

Me refiero a esto:


Alojado en ImageShack.us

Esta es la propiedad del txbrowse y enmarco la modificacion que debes hacer para que se muestren los scroll

wmormar wrote:ruben Dario,

el nombre de la clase es:

TXBROWSE

prueba y veras que todo ok