| Unit LrgScrBr |
| Classes |
| Functions |
Register -
| Types |
TScrollBarInc
TScrollBarKind
TScrollCode
TScrollEvent
| Constants |
| Variables |
| Functions |
| 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 |