Unit Range |
***************************************************************************** TRangeBox & TDBRangeBox v1.0 (My first written component!) Copyright © 1997 Tom Deprez (code of Bill Menees : Copyright © 1996 Bill Menees) Tom.Deprez@uz.kuleuven.ac.be 10x to Bill Menees who gave his approval for distributing this component as freeware. This is a VCL component that checks if a value is in a certain range or not. There is a non dataaware and an dataaware component. Range is given trough Max and Min property. You can check if a value lies between Max & Min, below Max or above Min. Specified by the Range property. User is able to alter the check if certain property is set to true. There are three states : InRange, OutRange, NoCheck. Designer can use its own images for the different states. A lot of the source code (almost everything) comes directly form the TBitCheckBox component of Bill Menees. I only made some changes to make the TBitCheckBox do what I wanted it to do. For instance the Paint procedure is only altered so it can be used with other types, just like other procedures and properties. I made it a new component because it's no longer a CheckBox, now it's a checkbox with range check capabilities. The TBitCheckBox component is Copyright © 1996 Bill Menees, bmenees@usit.net, http://www.public.usit.net/bmenees You're free to use and redistribute this component as long as this header stays attached. This component is provided AS IS with no warrenties or guarantees implied. It would be great if you could send me the improvements you make to this component. Also, all possible bugs are welcome. If you want, you could send me why and for what you've used this component. That will be appreciated.
Classes |
TDBRangeBox -
TRangeBox -
TRangeControl -
Functions |
Register - ****************************************************************************} {*** Non-Member Functions *****************************************************} {
Types |
TRange
TRangeControlState
TRangeType
Constants |
Variables |
Functions |
Types |
TRange = Set of TRangeType
TRangeControlState = (rbInRange, rbOutRange, rbNoCheck);
TRangeType = (ctMin, ctMax);
Constants |
Variables |