home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / WINFUN.PRG < prev    next >
Encoding:
Text File  |  1992-10-06  |  3.3 KB  |  77 lines
  1. *****************************************************************
  2. *     * 07/16/92            WINFUN.PRG                 12:18:19 *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * This program illustrates use of window functions        *
  8. *     *                                                         *
  9. *****************************************************************
  10. SET TALK OFF
  11. CLEAR
  12. IF .NOT. WEXIST("W1")   && Only define it if it does not exist
  13.     DEFINE WINDOW W1 FROM 1,0   TO 10,19  TITLE "default" ;
  14.     FILL chr(176) FLOAT
  15. ENDIF
  16.  
  17. DEFINE WINDOW W2 FROM 12,0  TO 20,19  NONE  ;
  18.     FLOAT GROW MINIMIZE ZOOM
  19. DEFINE WINDOW W3 FROM 1,20  TO 10,39  DOUBLE TITLE "Double";
  20.     FLOAT GROW MINIMIZE ZOOM
  21. DEFINE WINDOW W4 FROM 12,20 TO 20,39 PANEL   TITLE "Panel";
  22.     COLOR SCHEME 3 FLOAT GROW MINIMIZE ZOOM
  23. DEFINE WINDOW W5 FROM 1,40  TO 10,59 SYSTEM;   
  24.     TITLE "System2" FLOAT GROW MINIMIZE ZOOM
  25. DEFINE WINDOW W6 FROM 12,40 TO 20,59  "A"    TITLE " Letter ";
  26.     FLOAT GROW MINIMIZE ZOOM
  27. DEFINE WINDOW W7 FROM 1,60   TO 10,77 SYSTEM  TITLE "System";
  28.     FILL FILE TREE.BMP FLOAT GROW MINIMIZE ZOOM
  29. DEFINE WINDOW W8 FROM 5,5 TO 18,40  SYSTEM    TITLE " System ";
  30.     MINIMIZE SHADOW FLOAT ZOOM GROW FOOTER "Shadow" ;
  31.     COLOR SCHEME 8 
  32. ACTIVATE WINDOW ALL  && Note that W8 will be current active
  33. ON KEY LABEL MOUSE DO SHOWSTAT
  34. DO SHOWSTAT
  35. choice = 1
  36. @ 11,14 GET choice FUNCTION "*  \<Exit" 
  37. READ CYCLE 
  38. CLEAR ALL
  39. ON KEY
  40. RETURN
  41. *****************************************************************
  42. *     * PROCEDURE: ShowStat                                     *
  43. *     * Description:                                            *
  44. *     *  Display window status information                      *
  45. *****************************************************************
  46. PROCEDURE SHOWSTAT
  47. @ 0,1 SAY "Output Window: "+ WOUTPUT()
  48. WOT = WONTOP()
  49. @ 1,1 SAY "Parameters for Window: "+ WOT  
  50. @ 2,1 SAY "  Title:               "+ WTITLE(WOT)+"  "
  51. @ 3,1 SAY "  Prior active window: "+ WLAST()
  52. @ 4,1 SAY "  Output Window?       "+;
  53.           IIF( WOUTPUT(WOT), "Yes","No ")
  54. @ 5,1 SAY "  Border?              "+;
  55.           IIF( WBORDER(WOT), "Yes","No ")
  56. @ 6,1 SAY "  Minimized?           "+; 
  57.           IIF( WMINIMUM(WOT), "Yes","No ")
  58. @ 7,1 SAY "  Maximized?           "+; 
  59.           IIF( WMAXIMUM(WOT), "Yes","No ")
  60. @ 8,1 SAY "  Is it visible?       "+;
  61.           IIF( WVISIBLE(WOT), "Yes","No ")
  62. @ 9,1 SAY "  Current READ Window? "+; 
  63.           IIF( WREAD(WOT), "Yes","No ")
  64. @ 10,1 SAY "Location: "+N2C(WLROW(WOT))+;
  65.                     ","+N2C(WLCOL(WOT))+;
  66.           " Size: "    +N2C(WROWS(WOT))+;
  67.                     ","+N2C(WCOLS(WOT)) + "    "          
  68. RETURN
  69. *****************************************************************
  70. *     * PROCEDURE: N2C                                           *
  71. *     * Description:                                            *
  72. *     *  Converts number to trimmed string                      *
  73. *****************************************************************
  74. FUNCTION N2C
  75. PARAMETER Number
  76. RETURN LTRIM(STR(Number))
  77.