Unit NetGradient

----------------------------------------------------------------------------} { A Gradient Fill component for Delphi. } { TGradientFill, Copyright 1995, Curtis White. All Rights Reserved. } { TNetGradient, Copyright 1997, Heiko Webers. All Rights Reserved. } { This component can be freely used and distributed in commercial and private } { environments, provied this notice is not modified in any way. } { ----------------------------------------------------------------------------} { Feel free to contact me if you have any questions, comments or suggestions } { at cwhite@teleport.com } { Or me at heikowebers@usa.net } { ----------------------------------------------------------------------------} { Date last modified: 12/06/97 } { ----------------------------------------------------------------------------} { ----------------------------------------------------------------------------} { TNetGradient v1.00 } { ----------------------------------------------------------------------------} { Description: } { A gradient fill like in the new Netscape Communicator Options Box. } { Features: } { The begin and end colors can be any colors. } { The fill direction can be set to Right-To-Left or Left-To-Right. } { The number of colors, between 1 and 255 can be set for the fill. } { The Caption can be anything and anywhere on TNetGradient. } { ----------------------------------------------------------------------------} { ----------------------------------------------------------------------------} { Revision History: } { 1.00: Initial release } { 1.00: Changed to TNetGradient } { ----------------------------------------------------------------------------

Classes

TNetGradient -

Functions

Register - Register the component

Types

TFillDirection
TNumberOfColors

Constants

Variables


Functions


procedure Register;

Register the component

Types


TFillDirection = (fdLeftToRight, fdRightToLeft);
Direction of fill
TNumberOfColors = 1..255
Range of valid colors

Constants


Variables