home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / gpilogco.def < prev    next >
Text File  |  1994-05-03  |  5KB  |  155 lines
  1. DEFINITION MODULE GPILOGCOLORTABLE;
  2.  
  3. (************************************************************************
  4.   OS/2 2.0 interface for Presentation Manager
  5.            GPI Logical Color Tables.
  6.  
  7.   Copyright (c) 1992 by Juergen Neuhoff
  8. *************************************************************************)
  9.  
  10. (*$XL+       Modula-2 language extensions: '_' allowed for symbol names *)
  11. (*$CDECL+    C-style procedures                                         *)
  12. (*$A         default alignment for record fields                        *)
  13.  
  14. FROM   OS2DEF  IMPORT HPS, HAB, HPAL;
  15.  
  16. CONST (* options for GpiCreateLogColorTable and others *)
  17.   LCOL_RESET                   = 0001H;
  18.   LCOL_REALIZABLE              = 0002H;
  19.   LCOL_PURECOLOR               = 0004H;
  20.   LCOL_OVERRIDE_DEFAULT_COLORS = 0008H;
  21.   LCOL_REALIZED                = 0010H;
  22.  
  23. CONST (* format of logical lColor table for GpiCreateLogColorTable and others *)
  24.   LCOLF_DEFAULT                = 0;
  25.   LCOLF_INDRGB                 = 1;
  26.   LCOLF_CONSECRGB              = 2;
  27.   LCOLF_RGB                    = 3;
  28.   LCOLF_PALETTE                = 4;
  29.  
  30. CONST (* options for GpiQueryRealColors and others *)
  31.   LCOLOPT_REALIZED             = 0001H;
  32.   LCOLOPT_INDEX                = 0002H;
  33.  
  34. CONST (* return codes from GpiQueryLogColorTable to indicate it is in RGB mode *)
  35.   QLCT_ERROR                   = -1;
  36.   QLCT_RGB                     = -2;
  37.  
  38. CONST (* GpiQueryLogColorTable index returned for colors not explicitly loaded *)
  39.   QLCT_NOTLOADED               = -1;
  40.  
  41. CONST (* return codes for GpiQueryColorData *)
  42.   QCD_LCT_FORMAT               = 0;
  43.   QCD_LCT_LOINDEX              = 1;
  44.   QCD_LCT_HIINDEX              = 2;
  45.   QCD_LCT_OPTIONS              = 3;
  46.  
  47. CONST (* Palette manager return values *)
  48.   PAL_ERROR                    = -1;
  49.  
  50. CONST (* color flags for GpiCreatePalette and others *)
  51.   PC_RESERVED                  = 01H;
  52.   PC_EXPLICIT                  = 02H;
  53.   PC_NOCOLLAPSE                = 04H;
  54.  
  55. (*** logical lColor table functions *)
  56.  
  57. PROCEDURE GpiCreateLogColorTable
  58. ( PresSpaceHandle              : HPS;
  59.   Options                      : LONGCARD;
  60.   Format                       : LONGINT;
  61.   Start                        : LONGINT;
  62.   Count                        : LONGINT;
  63.   VAR Colors                   : ARRAY OF LONGINT
  64. )                              : BOOLEAN;
  65.  
  66. PROCEDURE GpiQueryColorData
  67. ( PresSpaceHandle              : HPS;
  68.   Count                        : LONGINT;
  69.   VAR Colors                   : ARRAY OF LONGINT
  70. )                              : BOOLEAN;
  71.  
  72. PROCEDURE GpiQueryLogColorTable
  73. ( PresSpaceHandle              : HPS;
  74.   Options                      : LONGCARD;
  75.   Start                        : LONGINT;
  76.   Count                        : LONGINT;
  77.   VAR Colors                   : ARRAY OF LONGINT
  78. )                              : LONGINT;
  79.  
  80. PROCEDURE GpiQueryRealColors
  81. ( PresSpaceHandle              : HPS;
  82.   Options                      : LONGCARD;
  83.   Start                        : LONGINT;
  84.   Count                        : LONGINT;
  85.   VAR Colors                   : ARRAY OF LONGINT
  86. )                              : LONGINT;
  87.  
  88. PROCEDURE GpiQueryNearestColor
  89. ( PresSpaceHandle              : HPS;
  90.   Options                      : LONGCARD;
  91.   RgbIn                        : LONGINT
  92. )                              : LONGINT;
  93.  
  94. PROCEDURE GpiQueryColorIndex
  95. ( PresSpaceHandle              : HPS;
  96.   Options                      : LONGCARD;
  97.   RgbColor                     : LONGINT
  98. )                              : LONGINT;
  99.  
  100. PROCEDURE GpiQueryRGBColor
  101. ( PresSpaceHandle              : HPS;
  102.   Options                      : LONGCARD;
  103.   ColorIndex                   : LONGINT
  104. )                              : LONGINT;
  105.  
  106. (*** Palette manager functions *)
  107.  
  108. PROCEDURE GpiCreatePalette
  109. ( AnchorBlockHandle            : HAB;
  110.   Options                      : LONGCARD;
  111.   Format                       : LONGCARD;
  112.   Count                        : LONGCARD;
  113.   VAR Palette                  : ARRAY OF LONGCARD
  114. )                              : HPAL;
  115.  
  116. PROCEDURE GpiDeletePalette
  117. ( PaletteHandle                : HPAL
  118. )                              : BOOLEAN;
  119.  
  120. PROCEDURE GpiSelectPalette
  121. ( PresSpaceHandle              : HPS;
  122.   PaletteHandle                : HPAL
  123. )                              : HPAL;
  124.  
  125. PROCEDURE GpiAnimatePalette
  126. ( PaletteHandle                : HPAL;
  127.   Format                       : LONGCARD;
  128.   Start                        : LONGCARD;
  129.   Count                        : LONGCARD;
  130.   VAR Palette                  : ARRAY OF LONGCARD
  131. )                              : LONGINT;
  132.  
  133. PROCEDURE GpiSetPaletteEntries
  134. ( PaletteHandle                : HPAL;
  135.   Format                       : LONGCARD;
  136.   Start                        : LONGCARD;
  137.   Count                        : LONGCARD;
  138.   VAR Palette                  : ARRAY OF LONGCARD
  139. )                              : BOOLEAN;
  140.  
  141. PROCEDURE GpiQueryPalette
  142. ( PresSpaceHandle              : HPS
  143. )                              : HPAL;
  144.  
  145. PROCEDURE GpiQueryPaletteInfo
  146. ( PaletteHandle                : HPAL;
  147.   PresSpaceHandle              : HPS;
  148.   Options                      : LONGCARD;
  149.   Start                        : LONGCARD;
  150.   Count                        : LONGCARD;
  151.   VAR Palette                  : ARRAY OF LONGCARD
  152. )                              : LONGINT;
  153.  
  154. END GPILOGCOLORTABLE.
  155.