presentación y duda xBrowse

[joseluispalma]

Hola amigos,

Me acaban de contratar en una empresa que desarrolla con Fivewin de modo que os daré algo la lata.

Estoy familiarizándome con el xBrowse y veo que hay un style Windows 7, pero no se comporta como el clásico cursor de xBrowse en el estilo normal.

¿Hay alguna forma de tener pintada la barrita con el look Windows 7 y que se comporte de forma clásica?.

Muchas gracicias y saludos

[jll-fwh]

Hola jose luis:

Code: Select all  Expand view

oGrid:nMarqueeStyle       := 7
oGrid:lMultiSelect        := .F.

Si quieres ver puedes bajarte el programa pBackup del Blog y ver el código fuente:
http://javierlloris.blogspot.com.es/2012/04/programa-backuprestore.html

Un saludo
JLL

[joseluispalma]

Javier,

Muchas gracias por tu pronta respuesta y por compartir el código de pbackup.

Lo del xBrowse multiselect, ¿es posible ponerlo como set global de alga manera?.

Ah, y aprovechando sobre pbackup, ¿has conseguido copias archivos y dbfs abiertas?. Creo que debe de haber alguna función en C que lo permita, pero no se cómo.

Saludos

[jll-fwh]

Hola Jose luis:

Si admite que las BD estén abiertas mientras se realizar el Backup.

Se me ocurre de momento si quieres una forma comoda, create una función con todas las DATA que usa el xbrowse y que quieras que estén como predeterminadas y después de declarar el xBrowse entonces llamas a la función, simplemente pasale como parámetro el objeto xBrowse.
Ejemplo:

Code: Select all  Expand view

    REDEFINE XBROWSE oGrid ID 500 OF oDlg FONT oFont

             oGrid:SetArray( aFiles, .F., 1  )
             SetBrowse( oGrid )
                .....
                .....

                .....

Return NIL

// Esta función tenerla en el PRG de funciones especiales.
Function SetBrowse( oGrid )

             oGrid:l2007               := .F.
             oGrid:nMarqueeStyle       := 7
             oGrid:lFooter             := .T.
             oGrid:lHScroll            := .T.
             oGrid:nColDividerStyle    := LINESTYLE_NOLINES
             oGrid:nRowDividerStyle    := LINESTYLE_NOLINES
             oGrid:nRowHeight          := 20
             oGrid:lAllowColSwapping   := .F.
             oGrid:lMultiSelect        := .F.
             oGrid:lColDividerComplete := .T.
Return NIL
 

De esta forma siempre que declares un xbrowse tendrás siempre los xBrowse con el mismo aspecto y funcionalidad.

Espero que te sirva;
Un Saludo
JLL

[Antonio Linares]

Jose Luis,

Bienvenido a bordo