Code: Select all
#include "fivewin.ch"
#include "xbrowse.ch"
function Main2()
local oDlg, oBrw, cSaveState, cPath := "c:\"
cSaveState := GETPVPROFSTRING( "BrowseArray", "SaveState", "", cPath + "prueba.ini" )
msginfo( cSaveState )
DEFINE DIALOG oDlg SIZE 600, 200
@ 0, 0 XBROWSE oBrw OF oDlg ARRAY { { "uno","dos","tres", "cuatro", "cinco", "seis", "siete", "ocho", "nueve", "diez" } } AUTOCOLS
oBrw:CreateFromCode()
oBrw:bKeyDown = { || oDlg:SetText( Str( oBrw:nColSel ) ) }
ACTIVATE DIALOG oDlg CENTER ON INIT ( IIF( !EMPTY( cSaveState ), oBrw:RestoreState( cSaveState ), "" ), oDlg:oClient := oBrw, oDlg:Resize() );
VALID ( cSaveState := oBrw:savestate(), msginfo( cSaveState), WritePProString( "BrowseArray", "SaveState", cSaveState, cPath + "prueba.ini" ), .t. )
return nil
Si pongo la columna numero diez entre la 6 y la 7, al hacer el restorestate me cambia el orden de las columnas 7, 8 y 9, alguna idea?
gracias