Class XbpQuickBrowse() Foundation

// This example shows the minimum code required for browsing a 
// database with an XbpQuickBrowse object. The example uses the 
// default application window created in AppSys (XbpCrt window) 

  // make sure to link the correct libraries 
  #pragma Library( "Adac20b.lib" ) 

  #include "Appevent.ch" 

  PROCEDURE Main 
     LOCAL nEvent, mp1, mp2, oXbp 

     // Open a database file before creating 
     // an XbpQuickBrowse object 
     USE Customer 
     INDEX ON Upper(LASTNAME+FIRSTNAME) TO Cust_A 

     // {640,400} is the default size of the display 
     // area inside an XbpCrt window 
     oXbp := XbpQuickBrowse():new(,,, {640,400} ) 

     // Assign the data store object 
     oXbp:dataLink := DacPagedDataStore():new() 

     // Request system resources for the browser 
     // after the data source object is assigned 
     oXbp:create() 

     // Set focus to the browser 
     SetAppFocus( oXbp ) 

     // Run the event loop 
     DO WHILE nEvent <> xbeP_Close 
        nEvent := AppEvent( @mp1, @mp2, @oXbp ) 
        oXbp:handleEvent( nEvent, mp1, mp2 ) 
     ENDDO 
  RETURN 

// This example demonstrates how to use an XbpQuickBrowse object 
// for browsing a two-dimensional array. 

#pragma Library( "Adac20b.lib" ) 

#include "Appevent.ch" 
#include "Directry.ch" 

PROCEDURE Main 
   LOCAL nEvent, mp1, mp2, oXbp 

   // The directory array is the data source 
   LOCAL aData    := Directory( "*.*" ) 

   // Array columns to display 
   LOCAL aColumns :=    { ; 
         F_NAME         , ; 
         F_SIZE         , ; 
         F_WRITE_DATE   , ; 
         F_WRITE_TIME   , ; 
         F_CREATION_DATE, ; 
         F_CREATION_TIME  } 

   // Column headings 
   LOCAL aHeader  :=    { ; 
         "File name"    , ; 
         "File size"    , ; 
         "Access date"  , ; 
         "Access time"  , ; 
         "Creation date", ; 
         "Creation time"  } 

   oXbp          := XbpQuickBrowse():new(,,, {640,400} ) 

   // Assign the data store object 
   oXbp:dataLink := DacPagedDataStore():new( aData   , ; 
                                             aColumns  ) 

   // Request system resources and assign headers 
   oXbp:create() 
   oXbp:setHeader( aHeader ) 

   SetAppFocus( oXbp ) 

   DO WHILE nEvent <> xbeP_Close 
      nEvent := AppEvent( @mp1, @mp2, @oXbp ) 
      oXbp:handleEvent( nEvent, mp1, mp2 ) 
   ENDDO 
RETURN