Click above to get retro games delivered to your door ever month!

 FUNCTION PROGEVAL()

  Short:
  ------
  PROGEVAL() Perform a Database DBEVAL() with a progress box

  Returns:
  --------
  Nil

  Syntax:
  -------
  PROGEVAL(bBlock,expCondit,[cMessage],[bMessage],[lPause])

  Description:
  ------------
  Pops up a progress bar box with PROGON().

  Performs a DBEVAL() using <bBlock> as the first
  parameter, and <expCondit> as the FOR condition. (can be
  passed as a codeblock or a string).

  [cMessage] is an optional box title for the progress
  box

  [bMessage] is a codeblock which returns a string
  which will be displayed on the bottom inside line of the progress
  box for each record processed.

  [lPause] if True will pause before removing the box
  with PROGOFF()- default is False.

  Examples:
  ---------

   // here is a counting example
   nCount   := 0
   nScanned := 0
   bDisplay := {||alltrim(str(nCount))+" matches of "+;
                  alltrim(str(nScanned++))+" scanned"}
   ProgEval({||++nCount},"[S]$LNAME","Counting",bDisplay,.t.)

   // OR
   ProgEval({||++nCount},{||"S"$LNAME},"Counting",bDisplay,.t.)

  Notes:
  -------
  Look up on DBEVAL() and note that this function is
  the same, except it uses only the first two parameters.

  Source:
  -------
  S_PROG.PRG