TBonanza -------- Live long and prosper... First: Excuse my bad english, but it's now 3.16am and I am very tired... Description: TBonanza is a new Delphi-Component I missed a long time. It allows you to manipulate two sliders, which react as "minimum" - "maximum" - range sliders. TBonanza is my first graphical Delphi Component. It is absolutely released to the public domain and so, has absolutely no copyrights. If you want to use or modify it, please do so, but please mention my name as the original author, that's all I want. Feel free to copy or modify this little stuff. It was just a very good lesson in component writing for me and helped me through a problem I had with my studies. Information: Author: Sir Roger McMisteli Version: 1.00 Date: 17. October 1995 Copyrights: Public Domain EMail: archie@ezinfo.vmsmail.ethz.ch **************************************************** * DO NOT TRY TO REACH ME AT COMPUSERVE. THIS ID IS * * NO LONGER VALID (It was my business ID, but I * * changed my job!) * * DO NOT TRY TO REACH ME AT COMPUSERVE !!!!!!!!!!! * **************************************************** Events: It reacts for the following events: OnChanging: occurs when one of the two sliders moves. OnChange: occurs when one of the sliders stops moving, so when a user releases the mousebutton. OnMinChanged: occurs when the minimum slider stopped moving, so when the user released the mousebutton OnMaxChanged: same for the maximum slider The TSlider Type consists of TSlider = (esNoChange, esMaximumSlider, esMinimumSlider); and represents the slider that has moved (or esNoChange if none) Properties: TBonanza has the following mainproperties: Units: how many lines do you want to have drawn. This means just the graphical lines to be drawn. SliderWidth, SliderHeight: the dimensions of the sliders MinColor, MaxColor: the colors of the sliders MinValue, MaxValue: the minimum and maximum value of the sliders MinPos, MaxPos: the positions of the sliders AutoSlider: automatically calculates the dimension of the sliders and updates them at resizing ShowUnits: draws vertival lines, if True ShowText: draws text representing the position of the vertical lines under the lines Thanks and good bye...