Unit Bmscroll

***************************************************************************} { } { TBMScroll - a VCL component that is provides a scrolling bitmap with } { optional looping sound - perfect for your products About Box. } { The cool thing is that you can preview the scrolling bitmap and the } { accompanying looping sound at design time... } { } { This component is TRAVELWARE. Should you find it useful, please send } { me enough of your local currency to buy a drink or two in your country } { (but no coins please). When I get enough cash, I plan to embark on a } { world tour. Don't worry about sending cash in the mail, just fold it into } { a sheet of paper so that you can't see that the money through the } { envelope - a few disgruntled post office workers may steal an envelope or } { two, but hey, your conscience will be clear and I'll never know the } { difference. } { } { Subject to your sending me some money for drinks, you are free to use } { these components in any commercial or non-commercial product, as long as } { that product is not a just a collection of components. However, you may } { redistribute this components as long as: } { a) This message appears, along with complete source code } { b) There is only a nominal charge (under $5) for distribution only } { } { Full source code is included with this component. This means that if } { you find a problem, you should try to fix it yourself! Seriously, if } { you find a problem, please contact me through Compu-Serve. If you have a } { bug fix, I'll revise my code and post a new version along with an } { acknowledgement of your contribution. If you can't fix the problem, I'll } { make a note of it on my to-do list and I'll fix it eventually. } { } { } { Author: Cameron D. Peters } { Suite 303, 908 - 17th Avenue S.W. } { Calgary, Alberta CANADA } { CIS: 72561,3146 } { Phone: 403-228-9991 } { Fax: 403-228-0202 } { } { Revision History: } { 1.00 CDP 951118 Created } { } { Installation } { Use Tools|Install Components to add this to your VCL. TBMScroll will } { be added to the additional page of your component palette. } { } { Properties } { I haven't created an on-line help file for this component, because I } { don't really have the time, or possibly because I am just lazy. Perhaps } { I'll create one if enough people download this file as it is! Anyways, } { here are my notes on the properties which were not inherited (in no } { particular order): } { } { AutoScroll } { When AutoScroll is set to TRUE, scrolling will begin as soon as the } { window appears on the screen. } { Bitmap } { This is the scrolling bitmap. Create any kind of bitmap that you want - } { I'm doing something that looks kind of like movie credits, but hopefully } { you'll be more creative. Put everything you want on one LONG bitmap. } { Mine is 240 x 1000! The window I create for this control is 240 x 200. } { The height of the control MUST BE LESS than the height of the bitmap, } { otherwise things probably won't look very good - I haven't put in any } { error checking to avoid this situation. As well, you should try and keep } { the control size in mind when you create the bitmap, because you'll } { probably want it to look good even when it's not scrolling. } { ScrollIt } { Set it to TRUE when you want the bitmap to scroll and play music, FALSE } { otherwise. Works at design time! } { ScrollStep } { The number of pixels the bitmap scrolls up each interval. } { ScrollTime } { The length of time between scrolling (in milliseconds). ScrollTime must } { be between 10 and 5000 milliseconds. } { ScrollLoops } { The number of times the bitmap should be scrolled through. } { 0 is infinite. Sound will stop when the scrolling stops. } { SoundFile } { The wav file which will be looped while scrolling is going on. } { SoundLoop } { When set to true, the sound will continue to loop until the scrolling is } { finished. When false, the sound will play through once or until the } { scrolling is complete, whichever comes first. } { } {

Classes

TBMScroll -
TSoundFileProperty -

Functions

Register -

Types

Constants

Variables


Functions


procedure Register;


Types


Constants


Variables