Unit CairnTimer

*****************************************************************************/ CAIRN RESEARCH LTD. / -----------------------------------------------------------------------------/ Name : CairnTimer / Description : Replacement for Standard Delphi Timer Based on Windows / API Multimedia Timers and Delphi TThreads Type. / Status : V1.1, In House & Freeware. / Author : Andrew Hill. / E-Mail : a.hill@cairnweb.com / Web Site : www.cairnweb.com / Mail : Cairn Research Ltd. / Unit 3G, / Brents Shipyard Ind Est, / Faversham, / Kent, / England / ME13 7DZ / Tel : +44 (0)1795 590140 / Fax : +44 (0)1795 590150 / *****************************************************************************/ Methods : Pause / : Resume / Properties : Enabled : Boolean / Delay : Cardinal / Resolution : Cardinal / TimerPriority : TThreadPriority / Ticks : Cardinal / MilliSeconds : Cardinal / Events : OnTimer : TNotifyEvent / *****************************************************************************/ Comments: / / This Component is based on one I found on the web somewhere but have since / misplaced. If it was your unit then I am sorry you got no credit but I / can't remember who you where. / / This unit is freeware, use it as you will. I ask only that if you modify / the code you send me a copy; as I will hopefully learn something new. / / I have no idea how the windows API multimedia timer works (if you do / please drop me a line as I'd like to know but I'm too busy [read lazy] / right now to find out), but it looks a bit funkier than the bog standard / Delphi timer. / *****************************************************************************/ Disclaimer: / / This code is distributed without copyright and neither Cairn Research Ltd / or Andrew Hill accept any responsibility for any consequences of its use. / *****************************************************************************/

Classes

TCairnTimer -
TCairnTimerThread -

Functions

Register -

Types

TCairnTimerCallBack

Constants

Variables

CairnTimerThread


Functions


procedure Register;


Types


TCairnTimerCallBack=procedure(NA1,NA2,CairnTimerUser,NA3,NA4: Integer) stdcall

Constants


Variables

CairnTimerThread : TCairnTimerThread