1 {
2     This file is part of the Free Pascal run time library.
3 
4     A file in Amiga system run time library.
5     Copyright (c) 1998 by Nils Sjoholm
6     member of the Amiga RTL development team.
7 
8     See the file COPYING.FPC, included in this distribution,
9     for details about the copyright.
10 
11     This program is distributed in the hope that it will be useful,
12     but WITHOUT ANY WARRANTY; without even the implied warranty of
13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
14 
15  **********************************************************************}
16 
17 unit gradientslider;
18 
19 INTERFACE
20 
21 uses utility;
22 
23 
24 Const
25     GRAD_Dummy       = (TAG_USER+$05000000);
26     GRAD_MaxVal      = (GRAD_Dummy+1);     {  max value of slider         }
27     GRAD_CurVal      = (GRAD_Dummy+2);     {  current value of slider     }
28     GRAD_SkipVal     = (GRAD_Dummy+3);     {  "body click" move amount    }
29     GRAD_KnobPixels  = (GRAD_Dummy+4);     {  size of knob in pixels      }
30     GRAD_PenArray    = (GRAD_Dummy+5);     {  pen colors                  }
31 
32 
33 IMPLEMENTATION
34 
35 end.
36