xbrowse con recurso se pierde la barra vertical y horizontal

[ruben Dario]

xbrowse con recurso se pierde la barra vertical y horizontal, se pierde no apacese. Cuando se usa @ 0,0 xbrowse ... si muestra la barra vertical y horizontal.


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


 

[wmormar]

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.

[ruben Dario]

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.

Gracias por la respuesta Willian,
Eso veo que hay cambios.
Por lo menos yo hize el salto de la 8.03 a la 10.7.
Con la 10.7 no fuenciona este codigo y con 8.03 si.

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
 

Cuando tu dices Windows Style (del recurso)
Te refieres en este caso trabajo con Pelles para hacer el recurso y es un codigo que toca modificar al fivewin.
El archivo de recursos lo tengo como un DLL el unico codigo que veo es el de Manifiesto y es este.

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>
 

Gracias

[wmormar]

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

[ruben Dario]

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

Gracias Willian ,
Yo actualmente uso Pelles, uso el componete Listbox, uso el parametro que tu me dices es Estilo de ventana, pero no funciona, veo que en tu ejemplo usa un compenente personalizado, lo que hago es quitar el componete Listbox y colocar es personalisado, pero de da error. La clase TXBROWSEW es obligacion nombrarla me imagino que es la clase que maneja FWH, mi preguna es factible manejarlo con el Listbox, o con codigo fuente que se pueda adicionar.
Ver Ejemplo.
http://img695.imageshack.us/img695/5509/mensage1.jpg

Saludos, Gracias

[wmormar]

ruben Dario,

el nombre de la clase es:

TXBROWSE

prueba y veras que todo ok

[ruben Dario]

ruben Dario,

el nombre de la clase es:

TXBROWSE

prueba y veras que todo ok

Muchas Gracias Willian me funciono,
Te hago otra pregunta veo que las lineas verticales y horizontales con muy gruesas como las dejo mas delgadas. El problema era que le habia puesto la clase TXBROWSEW
Tambien veo que la esquina superior no queda pintada del mismo color del titulo.


Te adjunto la imagen con las lineas que son muy gruesas y la barra Horizontal y vertical funcionando.

http://img713.imageshack.us/img713/8995/vistaok.png

[wmormar]

ruben Dario,

No lo tengo muy claro, pero podrias intentar asignar un pen personalizado.


oBrw:hColPen := pencol
oBrw:hRowPen := penrow

pencol y penrow serian las definiciones tuyas.