home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / pd_share / code / pascal / !Pascal / h / dboxtcol < prev    next >
Encoding:
Text File  |  1992-02-09  |  1.9 KB  |  47 lines
  1. (* Title:    dboxtcol.h
  2.  * Purpose:  Display and entry of true colours
  3.  * 
  4.  *)
  5.  
  6. #ifndef __dboxtcol_h
  7. #define __dboxtcol_h
  8.  
  9. type dboxtcol_colour = integer;  (* colour as BBGGRRxx *)
  10.  
  11. type dboxtcol_colourhandler = ^procedure handler(col : dboxtcol_colour;
  12.                                                  handle : pointer);
  13.  
  14. const dboxtcol_Transparent = -1;
  15.  
  16. (* ----------------------------- dboxtcol ----------------------------------
  17.  * Description:   Displays a dialogue box to allow the editing of a true
  18.  *                colour value.
  19.  *
  20.  * Parameters:    dboxtcol_colour *colour -- colour to be edited
  21.  *                BOOL allow_transparent  -- enables selection of a
  22.  *                                           "see-through" colour
  23.  *                char *name -- title to put in dialogue box.
  24.  *                dboxtcol_colourhandler proc -- function to act on the
  25.  *                                               colour change.
  26.  *                void *handle -- this is the handle passed to "proc".
  27.  * Returns:       TRUE if colour edited, user clicks OK.
  28.  * Other Info:    The dialogue box to be used should be the same as that
  29.  *                used by !Paint to edit the palette. If the user clicks
  30.  *                Select on OK then the "proc" is called and the dialogue box
  31.  *                is closed. If the user right-clicks on OK then the "proc"
  32.  *                is called and the dialogue box stays on the screen. This
  33.  *                allows the client of this function to use "proc" to, say,
  34.  *                change a sprites palette to reflect the edited colour value
  35.  *                and then to cause a redraw of the sprite. 
  36.  *
  37.  *)
  38. function dboxtcol(var colour : dboxtcol_colour;
  39.                 allow_transparent : boolean;
  40.                 name : string;
  41.                 proc : dboxtcol_colourhandler;
  42.                 handle : pointer) : boolean; extern;
  43.  
  44. #endif
  45.  
  46. (* end dboxtcol.h *)
  47.