home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTARR.PRG < prev    next >
Text File  |  1994-05-20  |  1KB  |  38 lines
  1. // Reviewing arrays - using FiveWin TWBrowse
  2.  
  3. #include "FiveWin.ch"
  4.  
  5. //----------------------------------------------------------------------------//
  6.  
  7. function Main()
  8.  
  9.    local oDlg, oBrw
  10.    local aSample := { "The standard", "has", "a name...",;
  11.                       "CA-Clipper 5.", "Wellcome", "to", "FiveWin",;
  12.                       "the CA-Clipper 5", "Windows", "Library" }
  13.    local nItem := 1
  14.  
  15.    DEFINE DIALOG oDlg FROM 2, 2 TO 20, 50 TITLE "FiveWin TWBrowse Power!!!"
  16.  
  17.    @ 1, 2 LISTBOX oBrw FIELDS aSample[ nItem ] ;
  18.       HEADERS "Reviewing Array" ;
  19.       FIELDSIZES 200 ;
  20.       OF oDlg ;
  21.       SIZE 100, 100
  22.  
  23.    oBrw:bGoTop    = { || nItem := 1 }
  24.    oBrw:bGoBottom = { || nItem := Eval( oBrw:bLogicLen ) }
  25.    oBrw:bSkip     = { | nWant, nOld | nOld := nItem, nItem += nWant,;
  26.                         nItem := Max( 1, Min( nItem, Eval( oBrw:bLogicLen ) ) ),;
  27.                         nItem - nOld }
  28.    oBrw:bLogicLen = { || Len( aSample ) }
  29.    oBrw:cAlias    = "Array"                // Just put something
  30.  
  31.    @ 1, 20 BUTTON "&End" OF oDlg ACTION oDlg:End()
  32.  
  33.    ACTIVATE DIALOG oDlg CENTERED
  34.  
  35. return nil
  36.  
  37. //----------------------------------------------------------------------------//
  38.