Unit Pager98 |
////////////////////////////////////////////////////////////////////////////// PAGER98 // ////////////////////////////////////////////////////////////////////////////// Implementation of IE4's PAGER Control // ////////////////////////////////////////////////////////////////////////////// Version 1.00 Beta // Date de création : 20/10/1997 // Date dernière modification : 21/10/1997 // ////////////////////////////////////////////////////////////////////////////// Jean-Luc Mattei // jlucm@club-internet.fr / jlucm@mygale.org // ////////////////////////////////////////////////////////////////////////////// IMPORTANT NOTICE : // // // This program is FreeWare // // Please do not release modified versions of this source code. // If you've made any changes that you think should have been there, // feel free to submit them to me at jlucm@club-internet.fr // ////////////////////////////////////////////////////////////////////////////// REVISIONS : // // ////////////////////////////////////////////////////////////////////////////// NOTES : // // //////////////////////////////////////////////////////////////////////////////
Classes |
TCustomPager98 -
TPager98 - property BorderStyle: TBorderStyle read FBorderStyle write SetBorderStyle;
Functions |
Register -
Types |
TOnCalcSizeEvent
TOnScrollEvent
TPager98ButtonState
TPager98Orientation
Constants |
Variables |
Functions |
Types |
TOnCalcSizeEvent = procedure (Sender: TCustomPager98; Var Size: Integer) of object
TOnScrollEvent = procedure (Sender: TCustomPager98; ScrollDir: Integer; Keys: Word; XPos, YPos: Integer; Var ScrollSize: Integer) of object
TPager98ButtonState = (pbsInvisible, pbsNormal, pbsGrayed, pbsDepressed, pbsHot, pbsUnknown);
TPager98Orientation = (poHorizontal, poVertical);
Constants |
Variables |