Unit Intelli

************************************************ This Source Code remains Copyrighted to CopyRight (c) 1997 PA van Lonkhuyzen Thanks to Jacques Scoatarin (j.scoatarin@cytanet.com.cy) who wrote the parent subclassing code. It may be distributed freely without restrictions This Component allows you to easily implement support for Microsofts Intellimouse. There is only 1 new event. On Wheel : This gets triggered whenever the mouse wheel is turned. mousex,mousey are the coordinates where the wheel was turned. movement is the amount the wheel was turned. with the sign designating up or down. The Author may be contacted via email peterv@global.co.za post P A van Lonkhuyzen PO Box 1041 Randpark Ridge 2156 South Africa ***************************************************) {$D-,L-} {Remove if you wish to debug this code

Classes

TIntellimouse -

Functions

Register -

Types

TIntelliEvent

Constants

Variables


Functions


procedure Register;


Types


TIntelliEvent = Procedure (Sender : TObject;Mousex,Mousey,Movement : Integer) of Object

Constants


Variables