home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OS2BAS.ZIP / GPICOLOR.BI < prev    next >
Text File  |  1989-07-25  |  4KB  |  130 lines
  1. '**************************************************************
  2. '*
  3. '* Include File: GpiColor.BI
  4. '*
  5. '* Requires:     none
  6. '*
  7. '* Description:  Color Manager
  8. '*
  9. '**************************************************************
  10.  
  11. '  options for GpiCreateLogColorTable and others
  12. CONST  LCOLRESET      =        &H0001
  13. CONST  LCOLREALIZABLE =        &H0002
  14. CONST  LCOLPURECOLOR  =        &H0004
  15.  
  16. '  format of logical lColor table for GpiCreateLogColorTable and others
  17. CONST  LCOLFDEFAULT   =        0
  18. CONST  LCOLFINDRGB    =        1
  19. CONST  LCOLFCONSECRGB =        2
  20. CONST  LCOLFRGB       =        3
  21.  
  22. '  options for GpiQueryRealColors and others
  23. CONST  LCOLOPTREALIZED =      &H0001
  24. CONST  LCOLOPTINDEX    =      &H0002
  25.  
  26. '  return codes from GpiQueryLogColorTable to indicate it is in RGB mode
  27. CONST  QLCTERROR =  -1
  28. CONST  QLCTRGB     =  -2
  29.  
  30. '  GpiQueryLogColorTable index returned for colors not explicitly loaded
  31. CONST  QLCTNOTLOADED = -1
  32.  
  33. '  return code on GpiQueryLogColorTable,GpiQueryRealColors and GpiQueryPel
  34. CONST  CLRNOINDEX = -254
  35.  
  36. '  return codes for GpiQueryColorData
  37. CONST  QCDLCTFORMAT  =    0
  38. CONST  QCDLCTLOINDEX =    1
  39. CONST  QCDLCTHIINDEX =    2
  40.  
  41. ' ** global primitive functions
  42. DECLARE FUNCTION  GpiSetBackColor%( BYVAL HPS AS LONG,_
  43.                     BYVAL ALONG AS LONG )
  44.  
  45. DECLARE FUNCTION  GpiQueryBackColor&( BYVAL HPS AS LONG )
  46.  
  47. ' ** global primitive functions
  48. DECLARE FUNCTION  GpiSetColor%( BYVAL HPS AS LONG,_
  49.                 BYVAL ALONG AS LONG )
  50.  
  51. DECLARE FUNCTION  GpiQueryColor&( BYVAL HPS AS LONG )
  52.  
  53. ' ** logical lColor table functions
  54. DECLARE FUNCTION  GpiCreateLogColorTable%( BYVAL HPS AS LONG,_
  55.                        BYVAL ULONG AS LONG,_
  56.                        BYVAL ALONG AS LONG,_
  57.                        BYVAL BLONG AS LONG,_
  58.                        BYVAL CLONG AS LONG,_
  59.                        BYVAL PLONG AS LONG )
  60.  
  61. DECLARE FUNCTION  GpiRealizeColorTable%( BYVAL HPS AS LONG )
  62.  
  63. DECLARE FUNCTION  GpiUnrealizeColorTable%( BYVAL HPS AS LONG )
  64.  
  65. DECLARE FUNCTION  GpiQueryColorData%( BYVAL HPS AS LONG,_
  66.                       BYVAL ALONG AS LONG,_
  67.                       BYVAL PLONG AS LONG )
  68.  
  69. DECLARE FUNCTION  GpiQueryLogColorTable&( BYVAL HPS AS LONG,_
  70.                       BYVAL ULONG AS LONG,_
  71.                       BYVAL ALONG AS LONG,_
  72.                       BYVAL BLONG AS LONG,_
  73.                       BYVAL PLONG AS LONG )
  74.  
  75. DECLARE FUNCTION  GpiQueryRealColors&( BYVAL HPS AS LONG,_
  76.                        BYVAL ULONG AS LONG,_
  77.                        BYVAL ALONG AS LONG,_
  78.                        BYVAL BLONG AS LONG,_
  79.                        BYVAL PLONG AS LONG )
  80.  
  81. DECLARE FUNCTION  GpiQueryNearestColor&( BYVAL HPS AS LONG,_
  82.                      BYVAL ULONG AS LONG,_
  83.                      BYVAL ALONG AS LONG )
  84.  
  85. DECLARE FUNCTION  GpiQueryColorIndex&( BYVAL HPS AS LONG,_
  86.                        BYVAL ULONG AS LONG,_
  87.                        BYVAL ALONG AS LONG )
  88.  
  89. DECLARE FUNCTION  GpiQueryRGBColor&( BYVAL HPS AS LONG,_
  90.                      BYVAL ULONG AS LONG,_
  91.                      BYVAL ALONG AS LONG )
  92.  
  93. '  default color table indices
  94.  
  95. CONST  CLRFALSE        =       -5
  96. CONST  CLRTRUE         =       -4
  97.  
  98. CONST  CLRERROR        =       -255
  99. CONST  CLRDEFAULT      =       -3
  100. CONST  CLRWHITE        =       -2
  101. CONST  CLRBLACK        =       -1
  102. CONST  CLRBACKGROUND   =       0
  103. CONST  CLRBLUE         =       1
  104. CONST  CLRRED          =       2
  105. CONST  CLRPINK           =       3
  106. CONST  CLRGREEN        =       4
  107. CONST  CLRCYAN           =       5
  108. CONST  CLRYELLOW       =       6
  109. CONST  CLRNEUTRAL      =       7
  110.  
  111. CONST  CLRDARKGRAY     =       8
  112. CONST  CLRDARKBLUE     =       9
  113. CONST  CLRDARKRED      =      10
  114. CONST  CLRDARKPINK     =      11
  115. CONST  CLRDARKGREEN    =      12
  116. CONST  CLRDARKCYAN    =     13
  117. CONST  CLRBROWN     =     14
  118. CONST  CLRPALEGRAY    =     15
  119.  
  120. '  rgb colors
  121. CONST  RGBERROR        =       -255&
  122. CONST  RGBBLACK        =       &H00000000
  123. CONST  RGBBLUE           =       &H000000FF
  124. CONST  RGBGREEN        =       &H0000FF00
  125. CONST  RGBCYAN           =       &H0000FFFF
  126. CONST  RGBRED           =       &H00FF0000
  127. CONST  RGBPINK           =       &H00FF00FF
  128. CONST  RGBYELLOW       =       &H00FFFF00
  129. CONST  RGBWHITE        =       &H00FFFFFF
  130.