Unit WinRoll

===========================================================================*) (* TWinRoller *) (*---------------------------------------------------------------------------*) (* *) (* New Property *) (* *) (* Enabled: Boolean Enable TWinRooler *) (* Roller: Boolean Rollup/Rolldown window *) (* Visible: Boolean Roller button visible *) (* OnRoller: TRollerNotifyEvent *) (* *) (*---------------------------------------------------------------------------*) (* Environment: *) (* Windows 95 *) (* Delphi 2.0 *) (* *) (* Author: Sean Hsieh *) (* E-Mail: sean@mail.linkease.com.tw *) (*===========================================================================

Classes

TWinRoller -

Functions

Register -

Types

TRollerMode
TRollerNotifyEvent

Constants

Variables

si


Functions


procedure Register;


Types


TRollerMode = ( mdRollDown, mdRollUp );

TRollerNotifyEvent = procedure ( Sender: TObject; mode: TRollerMode ) of object

Constants


Variables

si : UINT