Unit LrgScrBr

Classes

TLargeScrollBar -

Functions

Register -

Types

TScrollBarInc
TScrollBarKind
TScrollCode
TScrollEvent

Constants

Variables


Functions


procedure Register;


Types


TScrollBarInc = 1..2147483647

TScrollBarKind = (sbHorizontal, sbVertical);
The purpose of this compoonent is to enable the uses of more than 32767 positions for a scroll bar, Code is a simple modification of the TScrollBar code. This has no warranties of any kind, and is totally freeware..... Enjoy. Long live freeware...... I use enough of it so i'm happy to give some back. Mathew Verdouw Mathew@vtc.com.au
TScrollCode = (scLineUp, scLineDown, scPageUp, scPageDown, scPosition,
    scTrack, scTop, scBottom, scEndScroll);

TScrollEvent = procedure(Sender: TObject; ScrollCode: TScrollCode;
    var ScrollPos: Integer) of object

Constants


Variables