home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / dbase / clrpt51.zip / DEMO.PRG < prev    next >
Text File  |  1992-04-20  |  2KB  |  41 lines
  1. ***************************************************************************
  2. *       DEMO PROGRAM FOR LINKABLE REPORT WRITER - CLIPPER 5.01            *
  3. ***************************************************************************
  4. *---------
  5. SET COLOR TO W/N
  6. CLEAR
  7. EXTERNAL _d_rpt
  8.  
  9. *** YOUR OTHER PROGRAM CODE
  10.  
  11. ***************************************************************************
  12. *          CALL THE REPORT WRITER PASSING IT YOUR OWN TITLE               *
  13. ***************************************************************************
  14. *                                                                         *
  15. *        !! NEW USER DEFINED COLOR PARAMETERS & INDEX TESTING !!          *
  16. *                                                                         *
  17. *       PARM 1  COLOR #1 = BASE COLOR FOR APPLICATION                     *
  18. *       PARM 2  COLOR #2 = BACKGROUND CONTRAST WINDOWS                    *
  19. *       PARM 3  COLOR #3 = COLOR OF THE TITLE YOU PASS                    *
  20. *       PARM 4  COLOR #4 = LASER SETUP MENU COLORS                        *
  21. *       PARM 5  COLOR #5 = PRINTER ERROR BLINK MESSAGE COLOR              *
  22. *       PARM 6  TEST INDEXES .T./.F. (TURN TESTING ON/OFF)                *
  23. *                                                                         *
  24. ***************************************************************************
  25.  
  26. DO _d_rpt WITH "Y o u r   T i t l e   o r   C o r p o r a t e   N a m e" , "N/W,+W/RB","N/W","+GR/N", ;
  27.                      "N/W,RB/W","+GR*/W",.T.
  28. *DO _d_rpt WITH "Y o u r   T i t l e   o r   C o r p o r a t e   N a m e" , "+W/B,B/W","B/W","+W/N", ;
  29. *                     "+W/B,+GR/B","+R*/B",.F.
  30. *DO _d_rpt WITH "Y o u r   T i t l e   o r   C o r p o r a t e   N a m e" , "W/R,R/W","R/W","+W/N", ;
  31. *                    "W/R,+GR/R","+W*/R",.T.
  32. *DO _d_rpt WITH "Y o u r   T i t l e   o r   C o r p o r a t e   N a m e" , "N/BG,W/N","N/W","+GR/N", ;
  33. *                    "N/BG,+W/BG","+R*/BG",F.
  34.  
  35.  
  36. @ 10,25 SAY " Your Program Continues Execution "
  37. @ 15,0  SAY ""
  38.  
  39. WAIT
  40. QUIT
  41.