home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / TW200L.ZIP / WINDEMO.CH < prev    next >
Encoding:
Text File  |  1992-04-12  |  5.1 KB  |  122 lines
  1. //------------------------------------------------------------------------
  2. //
  3. //                           WINDEMO.CH
  4. //
  5. //          Header File FOR WINDEMO.PRG Demonstration Program
  6. //                    Clipper 5.01 Window Library
  7. //
  8. //      Copyright (C) 1992 Trilateral Systems Development Ltd.
  9. //    All Rights Reserved * Version 1.50 * Release Date: 01-25-92
  10. //
  11. //                         18 Bond St. South
  12. //                        Dundas, ON,  Canada
  13. //                              L9H 3H1
  14. //                           416-628-5086
  15. //
  16. //------------------------------------------------------------------------
  17. #define YC ( .024 * xc * xc ) - ( 1.44 * xc ) + 24.6
  18. #define FULLSCREEN 0, 0, MAXROW(), MAXCOL()
  19.  
  20. #define MAINBLU   IIF( ! lMono, "w/b,gr+/r,,,n/w",  "w+/n,n/w,,,w/n")
  21. #define MAINRED   IIF( ! lMono, "w+/r,gr+/r,,,n/w", "w+/n,n/w,,,w/n")
  22. #define MAINBRN   IIF( ! lMono, "gr+/gr,gr+/b,,,n/w", "w+/n,n/w,,,w/n")
  23. #define MAINCYN   IIF( ! lMono, "n/bg,w+/b,,,n/w", "w+/n,n/w,,,w/n")
  24. #define MAINCLC   IIF( ! lMono, "gr+/gr,g+/n,,,r+/n","w+/n,n/w,,,w/n")
  25.  
  26. #define WHI_BLA   "w/n"
  27. #define WHH_BLA   "w+/n"
  28.  
  29. #define GRH_BAH   IIF( ! lMono, "g+/*n",    "w+/n")
  30.  
  31. #define YEL_BLU   IIF( ! lMono, "gr+/b",    "w+/n")
  32. #define CYH_BLU   IIF( ! lMono, "bg+/b",    "w+/n")
  33. #define WHH_BLU   IIF( ! lMono, "w+ /b",    "w+/n")
  34. #define GNH_BLU   IIF( ! lMono, "g+ /b",    "w+/n")
  35. #define RDH_BLU   IIF( ! lMono, "r+ /b",    "w/n")
  36.  
  37. #define WHH_BLH   IIF( ! lMono, "w+ /*b",   "w+/n")
  38. #define RED_BLH   IIF( ! lMono, "r  /*b",   "w+/n")
  39. #define REH_BLH   IIF( ! lMono, "r+ /*b",   "w+/n")
  40. #define BLA_BLH   IIF( ! lMono, "n  /*b",   "w+/n")
  41.  
  42. #define BLU_WHI   IIF( ! lMono, "b  /w",    "n/w")
  43. #define BLA_WHI   "n/w"
  44.  
  45. #define BLU_WHH   IIF( ! lMono, "b  /*w",   "w+/n")
  46. #define BLH_WHH   IIF( ! lMono, "b+ /*w",   "w+/n")
  47. #define GRN_WHH   IIF( ! lMono, "g  /*w",   "w/n")
  48. #define YEL_WHH   IIF( ! lMono, "gr+/*w",   "w+/n")
  49. #define BLA_WHH   IIF( ! lMono, "n  /*w",    "n/w")
  50.  
  51. #define YEL_CYN   IIF( ! lMono, "gr+/bg",   "w+/n")
  52. #define RED_CYN   IIF( ! lMono, "r  /bg",   "n/w")
  53. #define BLU_CYN   IIF( ! lMono, "b  /bg",   "w+/n")
  54. #define RDH_CYN   IIF( ! lMono, "r+ /bg",   "w+/n")
  55. #define WHI_CYN   IIF( ! lMono, "w  /bg",   "w+/n")
  56. #define WHH_CYN   IIF( ! lMono, "w+ /bg",   "w+/n")
  57. #define BLA_CYN   IIF( ! lMono, "n  /bg",   "w/n")
  58. #define BLH_CYN   IIF( ! lMono, "b+ /bg",   "w+/n")
  59. #define GNH_CYN   IIF( ! lMono, "g+ /bg",   "w+/n")
  60.  
  61. #define RDH_CYH   IIF( ! lMono, "r+ /*bg",  "w/n")
  62. #define BLU_CYH   IIF( ! lMono, "b  /*bg",  "w+/n")
  63. #define BLA_CYH   IIF( ! lMono, "n  /*bg",  "w+/n")
  64. #define YEL_CYH   IIF( ! lMono, "gr+/*bg",  "w+/n")
  65. #define WHI_CYH   IIF( ! lMono, "w  /*bg",  "w+/n")
  66.  
  67. #define YEL_RED   IIF( ! lMono, "gr+/r",    "n/w")
  68. #define CYH_RED   IIF( ! lMono, "bg+/r",    "w+/n")
  69. #define WHI_RED   IIF( ! lMono, "w/r",      "w/n")
  70. #define WHH_RED   IIF( ! lMono, "w+/r",     "w+/n")
  71. #define BLH_RED   IIF( ! lMono, "b+/r",     "w+/n")
  72.  
  73. #define YEL_RDH   IIF( ! lMono, "gr+/*r",   "w+/n")
  74. #define CYH_RDH   IIF( ! lMono, "bg+/*r",   "w/n")
  75. #define WHH_RDH   IIF( ! lMono, "w+ /*r",   "w/n")
  76.  
  77. #define WHH_GRN   IIF( ! lMono, "w+ /g",    "w+/n")
  78. #define YEL_GRN   IIF( ! lMono, "gr+/g",    "w+/n")
  79. #define CYH_GRN   IIF( ! lMono, "bg+/g" ,   "w/n")
  80.  
  81. #define BLA_GNH   IIF( ! lMono, "n  /*g",   "w/n")
  82. #define RDH_GNH   IIF( ! lMono, "r+ /*g",   "w+/n")
  83. #define VIO_GNH   IIF( ! lMono, "br+/*g",   "w+/n")
  84.  
  85. #define GNH_VIO   IIF( ! lMono, "g+ /rb",   "w/n")
  86. #define WHI_VIO   IIF( ! lMono, "w  /rb",   "w/n")
  87. #define WHH_VIO   IIF( ! lMono, "w+ /rb",   "w/n")
  88. #define YEL_VIO   IIF( ! lMono, "gr+/rb",   "w/n")
  89.  
  90. #define WHH_VIH   IIF( ! lMono, "w+ /*rb",  "n/w")
  91.  
  92. #define WHI_BRN   IIF( ! lMono, "w  /gr",   "n/w")
  93.  
  94. #define RDH_YLH   IIF( ! lMono, "r+ /*gr",  "w+/n")
  95. #define RED_YLH   IIF( ! lMono, "r  /*gr",  "w+/n")
  96. #define BLA_YLH   IIF( ! lMono, "n  /*gr",  "w+/n")
  97. #define BLU_YLH   IIF( ! lMono, "b  /*gr",  "w+/n")
  98. #define BLH_YLH   IIF( ! lMono, "b+ /*gr",  "w+/n")
  99. #define GRN_YLH   IIF( ! lMono, "rb /*gr",  "w+/n")
  100.  
  101. // Area Message Colours
  102. #define AINFOCLR  IIF( ISCOLOR(), "n/bg,gr+/bg,,,w/bg", "w+/n,n/w,,,w/n" )
  103. #define AWARNCLR  IIF( ISCOLOR(), "gr+/rb,n/w,,,w/rb",  "w+/n,n/w,,,w/n" )
  104.  
  105. // Message Area Colours
  106. #define INFOCLR  IIF( ISCOLOR(), "n/bg,bg+/n,,,w/bg",   "w+/n,n/w,,,w/n" )
  107. #define INQUCLR  IIF( ISCOLOR(), "w+/rb,n/w,,,w/rb",    "w+/n,n/w,,,w/n" )
  108. #define WARNCLR  IIF( ISCOLOR(), "gr+/r,n/w,,,w+/r",    "w+/n,n/w,,,w/n" )
  109. #define TEXTCLR  IIF( ISCOLOR(), "w+/gr,n/w,,,w/b",     "w+/n,n/w,,,w/n" )
  110. #define PMENCLR  IIF( ISCOLOR(), "n/bg,bg+/n,,,w/bg",   "w+/n,n/w,,,w/n" )
  111.  
  112. // Alert Box Colours
  113. #define BUTCLR  IIF( ISCOLOR(), "w+/b,gr+/r,,,n/w",     "w+/n,n/w,,,w/n" )
  114. #define RADCLR  IIF( ISCOLOR(), "bg+/r,n/bg,,,gr+/r",   "w+/n,n/w,,,w/n" )
  115. #define CHKCLR  IIF( ISCOLOR(), "gr+/gr,n/w,,,w+/gr",   "w+/n,n/w,,,w/n" )
  116.  
  117. #translate BEEPER => TONE( 350, 0 )
  118. #translate STRINT(<x>) => LTRIM(STR(<x>))
  119. #translate CLRCHK(<x>,<y>) => IIF(! lMono,<x>,<y>)
  120.  
  121. #command CBLINK => SETBLINK(IIF( ! lMono, .F., .T. ))
  122.