FiveTech Support Forums

#include <fivewin.ch>
#include <xBrowse.ch>

* ------------------------------------------------ *
* Funcion que muestra un arreglo con xBrowse       *
* Sintaxis:  ViewArray( aData, aHeaders, cTitle  ) *
* enumera los renglones                            *
* By SysCtrl Soft                                  *
* 24-08-2011                                       *
* ------------------------------------------------ *

Function Main() 
   local aData := {}
   local aHeaders := {'Nombre', 'Paterno', 'Materno'}
   local cTitle := 'Lista de datos ...'
   
   AADD( aData, { 'Cesar 1','Cortes 1', 'Cruz 1' } )
   AADD( aData, { 'Cesar 2','Cortes 2', 'Cruz 2' } )
   AADD( aData, { 'Cesar 3','Cortes 3', 'Cruz 3' } )
   AADD( aData, { 'Cesar 4','Cortes 4', 'Cruz 4' } )
   AADD( aData, { 'Cesar 5','Cortes 5', 'Cruz 5' } )
   AADD( aData, { 'Sys 6','Ctrl 6', 'Software 6' } )
   
   ViewArray( aData, aHeaders, cTitle  ) && Show array
   
Return nil


Function ViewArray( aData, aHeaders, cTitle  )
   local oDlg, oBrw
   local oFont
   DEFAULT aHeaders := {'Col 1'}
   DEFAULT aData    := {}
   DEFAULT cTitle := 'Datos en el array'

   DEFINE FONT oFont   NAME 'TAHOMA' SIZE 0,-12
   
   if len(aData) = 0
      aadd(aData, {'EL ARREGLO NO CONTIENE DATOS PARA MOSTRAR'} )
   endif

   DEFINE DIALOG oDlg SIZE 600,440 PIXEL FONT oFont title cTitle

   @ 10, 10 XBROWSE oBrw ;
      SIZE 270, 200 PIXEL ;
      OF oDlg HEADERS aHeaders ;
      ARRAY aData AUTOCOLS AUTOSORT ;
      LINES
      
   ADD TO oBrw AT 1 DATA oBrw:KeyNo() HEADER "Reg. No." PICTURE "999999"

   oBrw:nMarqueeStyle    := MARQSTYLE_HIGHLROWMS

   oBrw:nDataLines := 3 
   
   oBrw:CreateFromCode()

   ACTIVATE DIALOG oDlg CENTERED

   RELEASE FONT oFont
   
return nil