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


procedure Register;


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