topic-23996

Posts: 109

Joined: Mon Apr 30, 2012 09:10 AM

presentación y duda xBrowse
Posted: Mon Apr 30, 2012 04:36 PM

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

Posts: 408

Joined: Fri Jan 29, 2010 08:14 PM

Re: presentación y duda xBrowse
Posted: Mon Apr 30, 2012 05:21 PM

Hola jose luis:

Code (fw): Select all Collapse

 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

Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com

joseluispalma

Posts: 109

Joined: Mon Apr 30, 2012 09:10 AM

Re: presentación y duda xBrowse
Posted: Mon Apr 30, 2012 07:05 PM

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

Posts: 408

Joined: Fri Jan 29, 2010 08:14 PM

Re: presentación y duda xBrowse
Posted: Tue May 01, 2012 11:13 PM

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 (fw): Select all Collapse

    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

Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: presentación y duda xBrowse
Posted: Wed May 02, 2012 08:15 AM

Jose Luis,

Bienvenido a bordo :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion