home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE4NL / SAMPLES.ZIP / TELBALK.PRG < prev    next >
Encoding:
Text File  |  1993-05-18  |  1.6 KB  |  46 lines
  1. PROCEDURE Telbalk
  2. *--------------------------------------------------------------------
  3. *  OMSCHRIJVING
  4. *   Barcount laat het gebruik zien van de nieuwe BARCOUNT() functie
  5. *   zien en het ON POPUP commando.
  6. *--------------------------------------------------------------------
  7.   PRIVATE nBarCount
  8.   SET TALK OFF
  9.   SET COLOR TO W+/B
  10.   SET STATUS OFF
  11.  
  12.   DEFINE WINDOW BarStat FROM 6, 20 TO 10, 78 DOUBLE
  13.   ACTIVATE WINDOW BarStat
  14.   @ 0,2 SAY "Popup-status voor: "
  15.   @ 1,2 SAY " Op balk:     van"
  16.   @ 2,2 SAY "  Prompt:"
  17.   ACTIVATE SCREEN
  18.  
  19.   DEFINE POPUP FilePick FROM 3,5 PROMPT FILES LIKE *.dbf
  20.   nBarCount = BARCOUNT( "FILEPICK" )    && Bepalen van aantal balken
  21.   ON POPUP FilePick DO BarStat          && Toon popup-informatie tijdens
  22.   ACTIVATE POPUP FilePick        && navigatie
  23.   RELEASE WINDOW BarStat
  24.   RELEASE POPUP FilePick
  25. RETURN
  26. *-- EOP: Telbalk
  27.  
  28. PROCEDURE BarStat
  29. *--------------------------------------------------------------------
  30. * OMSCHRIJVING
  31. *   Tijdens het ON POPUP commando wordt BarStat aangeroepen om de balk-
  32. *   informatie te tonen terwijl de gebruiker de cursor beweegt.
  33. *--------------------------------------------------------------------
  34.   ACTIVATE WINDOW BarStat
  35.   @ 0,20 SAY POPUP()                    && Toon naam van popup
  36.   @ 1,12 SAY STR( BAR(), 3 )            && Toon nummer huidige balk
  37.   @ 1,19 SAY STR( nBarCount, 3 )        && Toon het totale aantal balken
  38.   @ 2,12                                && Verwijder de vorige informatie
  39.   @ 2,12 SAY LEFT( PROMPT(),35 )        && Toon prompt voor deze balk
  40.   ACTIVATE SCREEN
  41. RETURN
  42. *-- EOP: BarStat
  43.  
  44.  
  45.  
  46.