FiveTech Support Forums

#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

METHOD RestoreState( cState ) CLASS TXBrowse

   local oCol
   local aMoved, aNaturalOrder
   local cCol
   local nLen, nOrder, nWidth, nFor, nAt, nHeight
   local lHide,cHeader,j

   if Empty( cState )
      return nil
   endif

   aMoved := {}
   aNaturalOrder := {}
   nLen   := Len( ::aCols )

   nHeight := Val(StrToken( cState, 1, ";" ) )

   if Empty( ::nRowHeight )
      return nil
   endif

   // Check integrity

   for nFor := 1 to nLen
      cCol := StrToken( cState, nFor + 1, ";" )
      if Empty( cCol )
         return nil
      endif
      aadd( aNaturalOrder, nFor )
   next

   ::nRowHeight := nHeight

   for nFor := 1 to nLen
      cCol   := StrToken( cState, nFor + 1, ";" )
      nOrder := Val( StrToken( cCol, 1, ":" ) )
      nWidth := Val( StrToken( cCol, 2, ":" ) )
      cHeader :=  StrToken( cCol, 3, ":" )
      lHide  := ( AllTrim( StrToken( cCol, 4, ":" ) ) == "H" )
      nAt := Ascan( ::aCols, {|v| v:nCreationOrder == nOrder } )
      if nAt > 0
         oCol := ::aCols[ nAt ]
         oCol:lHide  := lHide
         oCol:nWidth := nWidth
         oCol:cHeader := cHeader
      endif
      if nOrder != nFor  
      	if nOrder != aNaturalOrder[ nFor ] .and. ( nAt := Ascan( aNaturalOrder, nOrder ) ) != 0 
         ::SwapCols( nFor, nAt, .f. )         
         aNaturalOrder[ nFor ]:= nOrder
         aNaturalOrder[ nAt ]:= nFor
        endif
      endif      	
   next

   ::GetDisplayCols()
   ::Super:Refresh()

return nil