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