home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / TW200L.ZIP / DEMO20.CH < prev    next >
Encoding:
Text File  |  1992-08-27  |  6.7 KB  |  139 lines
  1. /*
  2. ┌──────────────────────────────────────────────────────────────────────────┐
  3. │                                                                          │
  4. │                            DEMO20.CH                                     │
  5. │                                                                          │
  6. │                    Source File for TSDWIN.LIB                            │
  7. │                   Clipper 5.0 Interface Library                          │
  8. │                                                                          │
  9. │      Copyright ( C ) 1992 by Trilateral Systems Development Ltd.         │
  10. │    All Rights Reserved * Version 2.00 * Release Date: Aug 1, 1992        │
  11. │                                                                          │
  12. │                         18  Bond St. South                               │
  13. │                         Dundas, ON, Canada                               │
  14. │                              L9H 3H1                                     │
  15. │                           416-628-5086                                   │
  16. │                                                                          │
  17. │                                                                          │
  18. │     Documented: 08-26-92      at 11:48:13am                              │
  19. └──────────────────────────────────────────────────────────────────────────┘
  20. */
  21.  
  22. #define YC ( .024 * xc * xc ) - ( 1.44 * xc ) + 24.6
  23. #define FULLSCREEN 1, 0, MAXROW() - 1, MAXCOL()
  24. #define SYSNAME "TSDWIN.LIB"
  25.  
  26. #translate BEEPER => TONE( 800, 0 )
  27.  
  28. #define CTNORM  IIF( ! lMono, "w+/b,gr+/r,,bg+/b,n/g,w/b,n/w", ;
  29.                                 "w+/n, n/w,, n/w, n/w, w/n, w/n" )  // Normal Text Color
  30. #define CFNORM  IIF( ! lMono, { "bg+/b", "bg/b" }, ;
  31.                                 { "w+/n", "w/n" } )       // Normal Frame Color
  32. #define CTWNDW  IIF( ! lMono, "b/bg, gr+/r,, b/bg, n/g, w/bg, n/w", ;
  33.                                 "w+/n, n/w,, n/w, n/w, w/n, w/n" )  // Boxed Text Color
  34. #define CFWNDW  IIF( ! lMono, { "gr+/bg", "w/bg" }, ;
  35.                                 { "w+/n", "w/n" } )       // Boxed Frame Color
  36. #define CSECUR  IIF( ! lMono, "r/r, r/r,,, r/r", ;
  37.                                 "n/n, n/n,,, n/n" )       // Password Color
  38. #define CTXERR  IIF( ! lMono, "gr+/rb, gr+/rb,,, n/w", ;
  39.                                 "w+/n, n/w,, n/w, w/n" )  // Error Color
  40. #define CFRERR  IIF( ! lMono, { "bg+/rb", "bg/rb" }, ;
  41.                                 { "w+/n", "w/n" } )       // Error Frame Color
  42. #define CTXMSG  IIF( ! lMono, "w+/rg, gr+/b,, r/w, gr+/rg,n/w", ;
  43.                                 "w+/n, n/w,, n/w,n/w, w/n" )  // Message Color
  44. #define CFRMSG  IIF( ! lMono, { "gr+/gr", "w/gr" }, ;
  45.                                 { "w+/n", "w/n" } )       // Message Frame Color
  46. #define CMENUP  IIF( ! lMono, "n/w,gr+/r,,r/w,b/w", ;
  47.                               "w+/n,n/w,,w+/n,w/n," )        // Menu Prompt Colour
  48.  
  49. #define CTTITLE "n/w"
  50.  
  51. #define CWTITLE "n/w"
  52.  
  53. #define YSHAD 3
  54.  
  55. #define YFRM  2 //10
  56.  
  57. #define YEXPL .F.
  58.  
  59. #define YBLINK .F.
  60.  
  61. #define CFMENUP  IIF( ! lMono, { "gr+/w", "n/w" }, ;
  62.                                 { "n/w", "w/n" } )       // Message Frame Color
  63. #define CTMENUP  IIF( ! lMono, "b/w", "n/w" )  // Message Color
  64.  
  65. #define CPMENUP  IIF( ! lMono, "n/w,bg+/n,,r/w,b/w", ;
  66.                               "w+/n,n/w,,w+/n,w/n," )        // Menu Prompt Colour
  67. #define Y2FRM    2
  68.  
  69. #define INITGLOBALS twInitGlobal( { CTNORM, CFNORM, CTWNDW, CFWNDW, ;
  70.                                     CSECUR, CTXERR, CFRERR, CTXMSG, ;
  71.                                     CFRMSG, CTTITLE, CWTITLE, CMENUP, ;
  72.                                     YSHAD, YFRM, YEXPL, YBLINK, CFMENUP, ;
  73.                                     CTMENUP, CPMENUP, Y2FRM } )
  74.  
  75. #define COLORN         twGetGlobal( 1 )
  76. #define COLORR         twUnsClr( twGetGlobal( 1 ))
  77. #define COLORFN        twGetGlobal( 2 )
  78. #define COLORW         twGetGlobal( 3 )
  79. #define COLORFW        twGetGlobal( 4 )
  80. #define COLORS         twGetGlobal( 5 )
  81. #define COLORE         twGetGlobal( 6 )
  82. #define COLORFE        twGetGlobal( 7 )
  83. #define COLORM         twGetGlobal( 8 )
  84. #define COLORFM        twGetGlobal( 9 )
  85. #define TCOLOR         twGetGlobal( 10 )
  86. #define WTCOLOR        twGetGlobal( 11 )
  87. #define MENUCLR        twGetGlobal( 12 )
  88. #define DSHADOW        twGetGlobal( 13 )
  89. #define DFRAME         twGetGlobal( 14 )
  90. #define DEXPLODE       twGetGlobal( 15 )
  91. #define DBLINK         twGetGlobal( 16 )
  92. #define MENUFCLR       twGetGlobal( 17 )
  93. #define MENUTCLR       twGetGlobal( 18 )
  94. #define MENUPCLR       twGetGlobal( 19 )
  95. #define D2FRAME        twGetGlobal( 20 )
  96.  
  97.  
  98. #define BLA_CYH IIF( ! lMono, "n/*bg",   "w/n" )
  99. #define YEL_RDH IIF( ! lMono, "gr+/*r",  "w+/n" )
  100. #define BLA_GNH IIF( ! lMono, "n/*g",    "n/w" )
  101. #define WHH_BLH IIF( ! lMono, "w+/*b",   "w/n" )
  102. #define RDH_YLH IIF( ! lMono, "r+/*gr",  "w+/n" )
  103. #define WHH_VIH IIF( ! lMono, "w+/*rb",  "n/w" )
  104. #define RDH_CYH IIF( ! lMono, "r+/*bg",  "w+/n" )
  105. #define YEL_CYH IIF( ! lMono, "gr+/*bg", "w+/n" )
  106. #define WHI_CYH IIF( ! lMono, "w+/*bg",  "w+/n" )
  107. #define BLU_CYH IIF( ! lMono, "b/*bg",   "w+/n" )
  108. #define YEL_BLU IIF( ! lMono, "gr+/b",   "w+/n" )
  109. #define WHH_BLU IIF( ! lMono, "w+/b",    "w+/n" )
  110. #define WHT_BLU IIF( ! lMono, "w/b",     "w/n" )
  111. #define YEL_RED IIF( ! lMono, "gr+/r",   "w+/n" )
  112. #define RED_CYN IIF( ! lMono, "r  /bg",  "n/w")
  113. #define WHH_CYN IIF( ! lMono, "w+ /bg",  "w+/n")
  114. #define BLA_CYN IIF( ! lMono, "n  /bg",  "w/n")
  115. #define YEL_CYN IIF( ! lMono, "gr+/bg",  "w+/n")
  116. #define BLU_CYN IIF( ! lMono, "b  /bg",  "w+/n")
  117. #define RDH_CYN IIF( ! lMono, "r+ /bg",  "w+/n")
  118. #define GNH_CYN IIF( ! lMono, "g+ /bg",  "w+/n")
  119. #define BLH_CYN IIF( ! lMono, "b+ /bg",  "w+/n")
  120.  
  121. #define MAINCLC IIF( ! lMono, "gr+/gr,g+/n,,,r+/n","w+/n,n/w,,,w/n")
  122. #define MAINCYN IIF( ! lMono, "n/bg,w+/b,,,n/w", "w+/n,n/w,,,w/n")
  123.  
  124. #define CBUTTON   IIF( ! lMono, "w+/rg, gr+/b,, r/w, gr+/rg,n/w", ;
  125.                                 "w+/n, n/w,, n/w,n/w, w/n" )  // Message Color
  126. #define CFBUTTON  IIF( ! lMono, { "gr+/rg", "w/rg" }, ;
  127.                                 { "n/w", "w/n" } )       // Message Frame Color
  128.  
  129. #define CCHECK    IIF( ! lMono, "w+/g, gr+/r,, r/w, gr+/g,n/w", ;
  130.                                 "w+/n, n/w,, n/w,n/w, w/n" )  // Message Color
  131. #define CFCHECK   IIF( ! lMono, { "gr+/g", "w/g" }, ;
  132.                                 { "n/w", "w/n" } )       // Message Frame Color
  133.  
  134. #define CRADIO    IIF( ! lMono, "w+/b, gr+/r,, r/w, bg+/r,n/w", ;
  135.                                 "w+/n, n/w,, n/w,n/w, w/n" )  // Message Color
  136.  
  137. #define CFRADIO   IIF( ! lMono, { "gr+/b", "w/b" }, ;
  138.                                 { "n/w", "w/n" } )       // Message Frame Color
  139.