FiveTech Support Forums

#include "FiveWin.ch"

function Main()

   local oDlg, oXBrw, oPages
 
   DEFINE DIALOG oDlg SIZE 600, 400 PIXEL TRUEPIXEL ;
      TITLE "XBrowse and Pages"
 
   @ 10, 20 XBROWSE oXBrw SIZE 160, 200 PIXEL OF oDlg;
      DATASOURCE { "First", "Second" } AUTOCOLS ;
      HEADERS "Page" NOBORDER
 
   WITH OBJECT oXBrw
      :nStretchCol   := 1
      :lHScroll      := .f.
      :bChange = { || oPages:SetOption( oXBrw:BookMark ) }
      :CreateFromCode()
   END
 
   oPages = TPages():New( 10, 200, 380, 580, oDlg )
 
   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT BuildPages( oPages )
 
return nil

function BuildPages( oPages )

   local oScrPanel1 := TScrollPanel():New( 0, 0, 300, 300, oPages )
   local oScrPanel2 := TScrollPanel():New( 0, 0, 300, 300, oPages )

   @  1, 1 SAY "Hello" OF oScrPanel1
   @ 10, 1 SAY "Bye"   OF oScrPanel1
   oScrPanel1:SetRange()

   oPages:AddPage( oScrPanel1 )

   @  1, 1 SAY "Another page" OF oScrPanel2
   @ 10, 1 SAY "End"   OF oScrPanel2
   oScrPanel2:SetRange()

   oPages:AddPage( oScrPanel2 )

   oPages:SetOption( 1 )

return .T.