topic-43888

Posts: 1818

Joined: Wed Oct 26, 2005 02:49 PM

xbrowse state - conservar estado xbrowse
Posted: Wed Nov 08, 2023 08:17 PM

Hola buenas tardes para todos...

existe una función que nos guarda el estado de una ventana, su tamaño su posición, la pantalla en la que se esta mostrando. Para que cuando se inicie de nuevo conserve las propiedades.
La usamos de la siguiente manera

Code (fw): Select all Collapse

ACTIVATE WINDOW oWnd ON INIT (oWnd:RestoreState( MemoRead( "wndstate.txt" ) )) ;
            VALID ( MemoWrit( "wndstate.txt", oWnd:SaveState() ), .t. )

Nos gustaría saber si para los xbrowse existe algo similar, que nos recupere el alto de las filas, los anchos de las columnas y si las columnas están ocultas.

De antemano gracias

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

FiveWiDi

Posts: 1446

Joined: Mon Oct 10, 2005 02:38 PM

Re: xbrowse state - conservar estado xbrowse
Posted: Wed Nov 08, 2023 10:35 PM

leandro wrote:Hola buenas tardes para todos...

existe una función que nos guarda el estado de una ventana, su tamaño su posición, la pantalla en la que se esta mostrando. Para que cuando se inicie de nuevo conserve las propiedades.
La usamos de la siguiente manera
Code (fw): Select all Collapse
ACTIVATE WINDOW oWnd ON INIT (oWnd:RestoreState( MemoRead( "wndstate.txt" ) )) ;
            VALID ( MemoWrit( "wndstate.txt", oWnd:SaveState() ), .t. )
Nos gustaría saber si para los xbrowse existe algo similar, que nos recupere el alto de las filas, los anchos de las columnas y si las columnas están ocultas.

De antemano gracias

Hola Leandro,

Yo utilizo estas 2 funciones, una en el INIT de la WINDOW y la otra en el VALID de la WINDOW.

Code (fw): Select all Collapse

/* *********************************************************************************** */
FUNCTION lGuardaXBrowse( AMPAARRA, oXBrowse, cFile )

Local cStateXbrowse := oXBrowse:SaveState()
Local cFileSaved    := cPathDBF( AMPAARRA, .T. ) + "xBrw" + cFile + ".txt"
Local hcFileSaved   := 0
Local lRespuesta    := .F.

DELETEFILES( cFileSaved )

hcFileSaved := fcreate( cFileSaved, FC_NORMAL )

If Ferror() = 0
    lRespuesta := .T.

    fwrite( hcFileSaved, cStateXbrowse )

    fclose( hcFileSaved )
EndIf

Return lRespuesta
/* *********************************************************************************** */
/* *********************************************************************************** */
FUNCTION lRecuperaXBrowse( AMPAARRA, oXBrowse, cFile )

Local cStateXbrowse := ""
Local cFileSaved    := cPathDBF( AMPAARRA, .T. ) + "xBrw" + cFile + ".txt"
Local lRespuesta    := .F.

If File(cFileSaved)

    lRespuesta    := .T.

    cStateXbrowse := MemoRead( cFileSaved )

    oXBrowse:RestoreState( cStateXbrowse )

EndIf

Return lRespuesta
/* *********************************************************************************** */

Seguro que se pueden mejorar/adaptar a tus necesidades.

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

leandro

Posts: 1818

Joined: Wed Oct 26, 2005 02:49 PM

Re: xbrowse state - conservar estado xbrowse
Posted: Thu Nov 09, 2023 10:45 PM

Amigo gracias por responder...

Ya mismo intento y cualquier cosa comento.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

FiveTech Support Forums

Continue the discussion