FiveTech Support Forums

#include "fivewin.ch"
#include "xbrowse.ch"
#include "FILEIO.CH"

function Main()

   local oWnd, oBrw, oCol
   LOCAL cState := ""
   LOCAL aState
   LOCAL i
   LOCAL nFileHandle
   
   REQUEST DBFCDX
   USE RSTRSTT
   INDEX ON Field->Prmtr_txt TO RSTRSTT
   SET ORDER TO "RSTRSTT"

   IF FILE( "rstrstts.txt" )
       nFileHandle := FOpen( "rstrstts.txt", FO_READ )
      FSeek( nFileHandle, 0, FS_SET )
      HB_FReadLine( nFileHandle, @cState )
      FClose( nFileHandle )
   ENDIF

      GO TOP
      DEFINE WINDOW oWnd TITLE "Test RestoreState() FWH 1010"
      @ 0, 0 XBROWSE oBrw OF oWnd LINES CELL
      oBrw:nMarqueeStyle = MARQSTYLE_HIGHLROW
      oBrw:CreateFromCode()
      aState := ARead( HexToStr( SubStr( cState, 5 ) ) )
      oBrw:RestoreState( cState )
      
      FOR each oCol in oBrw:aCols
          IF oCol:nWidth > 500
            oCol:nWidth := 150
         ENDIF
      NEXT 

      oWnd:oClient := oBrw
      
      ACTIVATE WINDOW oWnd VALID ( cState := oBrw:SaveState(), .T. )
      
      nFileHandle := FCreate( "rstrstts.txt", FO_EXCLUSIVE )
      FWrite( nFileHandle, cState )
      FClose( nFileHandle )

RETURN NIL

      @ 0, 0 XBROWSE oBrw OF oWnd LINES CELL

      @ 0, 0 XBROWSE oBrw OF oWnd ALIAS 'RSTRSTT' LINES CELL

      oBrw:RestoreState( cState )

if ! Empty( cState )
      oBrw:RestoreState( cState )
endif

@ 0, 0 XBROWSE oBrw OF oWnd AUTOCOLS ALIAS 'RSTRSTT' LINES CELL

//----------------------------------------------------------------------------//

METHOD SaveState( aAdditionalData ) CLASS TXBrowse

   local aData    := { "nCreationOrders", "nRowHeight", "nWidths", "lHides", "cGrpHdrs", "cHeaders" }
   local aState   := {}

   if ValType( aAdditionalData ) == 'A'
      AEval( aAdditionalData, { |c| AAdd( aData, c ) } )
   endif

   AEval( aData, { |c| AAdd( aState, { c, OSend( Self, c ) } ) } ) // modified
   aState[ 1, 1 ] := "ReArrangeCols"

return "XSS:" + HB_StrToHex( ASave( aState ) )

//----------------------------------------------------------------------------//

METHOD RestoreState( cState ) CLASS TXBrowse

   local aState

   if Left( cState, 4 ) == 'XSS:'
      aState      := ARead( HB_HexToStr( SubStr( cState, 5 ) ) )
      ::ReArrangeCols( aState[ 1, 2 ] )  // added
      AEval( aState, { |a| OSend( Self, "_" + a[ 1 ], a[ 2 ] ) }, 2 ) // modified
      AEval( aState[ 1, 2 ], { |n,i| ::aCols[ i ]:nCreationOrder := n } ) // added
   else
      ::OldRestoreState( cState )
   endif

   ::GetDisplayCols()
   ::Refresh()

return nil

//----------------------------------------------------------------------------//