home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 March / Chip_1999-03_cd.bin / zkuste / delphi / D1234C1 / TGIFIMAG.ZIP / Bin / Builder1 / TimerEx.hpp < prev    next >
C/C++ Source or Header  |  1998-07-16  |  6KB  |  122 lines
  1. //----------------------------------------------------------------------------
  2. // TimerEx.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: TimerEx.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef TimerExHPP
  6. #define TimerExHPP
  7. //----------------------------------------------------------------------------
  8. #include <Classes.hpp>
  9. #include <Messages.hpp>
  10. #include <SysUtils.hpp>
  11. #include <Windows.hpp>
  12. #include <System.hpp>
  13. namespace Timerex
  14. {
  15. //-- type declarations -------------------------------------------------------
  16. class __declspec(delphiclass) EOutOfMemory;
  17. class __declspec(pascalimplementation) EOutOfMemory : public Sysutils::Exception
  18. {
  19.     typedef Sysutils::Exception inherited;
  20.     
  21. public:
  22.     /* Exception.Create */ __fastcall EOutOfMemory(const System::AnsiString Msg) : Sysutils::Exception(
  23.         Msg) { }
  24.     /* Exception.CreateFmt */ __fastcall EOutOfMemory(const System::AnsiString Msg, const System::TVarRec 
  25.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  26.     /* Exception.CreateRes */ __fastcall EOutOfMemory(int Ident) : Sysutils::Exception(Ident) { }
  27.     /* Exception.CreateResFmt */ __fastcall EOutOfMemory(int Ident, const System::TVarRec * Args, const 
  28.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  29.     /* Exception.CreateHelp */ __fastcall EOutOfMemory(const System::AnsiString Msg, int AHelpContext) : 
  30.         Sysutils::Exception(Msg, AHelpContext) { }
  31.     /* Exception.CreateFmtHelp */ __fastcall EOutOfMemory(const System::AnsiString Msg, const System::TVarRec 
  32.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  33.         ) { }
  34.     /* Exception.CreateResHelp */ __fastcall EOutOfMemory(int Ident, int AHelpContext) : Sysutils::Exception(
  35.         Ident, AHelpContext) { }
  36.     /* Exception.CreateResFmtHelp */ __fastcall EOutOfMemory(int Ident, const System::TVarRec * Args, const 
  37.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  38.     
  39. public:
  40.     /* TObject.Destroy */ __fastcall virtual ~EOutOfMemory(void) { }
  41.     
  42. };
  43.  
  44. class __declspec(delphiclass) EOutOfResources;
  45. class __declspec(pascalimplementation) EOutOfResources : public EOutOfMemory
  46. {
  47.     typedef EOutOfMemory inherited;
  48.     
  49. public:
  50.     /* Exception.Create */ __fastcall EOutOfResources(const System::AnsiString Msg) : Timerex::EOutOfMemory(
  51.         Msg) { }
  52.     /* Exception.CreateFmt */ __fastcall EOutOfResources(const System::AnsiString Msg, const System::TVarRec 
  53.         * Args, const int Args_Size) : Timerex::EOutOfMemory(Msg, Args, Args_Size) { }
  54.     /* Exception.CreateRes */ __fastcall EOutOfResources(int Ident) : Timerex::EOutOfMemory(Ident) { }
  55.     /* Exception.CreateResFmt */ __fastcall EOutOfResources(int Ident, const System::TVarRec * Args, const 
  56.         int Args_Size) : Timerex::EOutOfMemory(Ident, Args, Args_Size) { }
  57.     /* Exception.CreateHelp */ __fastcall EOutOfResources(const System::AnsiString Msg, int AHelpContext
  58.         ) : Timerex::EOutOfMemory(Msg, AHelpContext) { }
  59.     /* Exception.CreateFmtHelp */ __fastcall EOutOfResources(const System::AnsiString Msg, const System::TVarRec 
  60.         * Args, const int Args_Size, int AHelpContext) : Timerex::EOutOfMemory(Msg, Args, Args_Size, AHelpContext
  61.         ) { }
  62.     /* Exception.CreateResHelp */ __fastcall EOutOfResources(int Ident, int AHelpContext) : Timerex::EOutOfMemory(
  63.         Ident, AHelpContext) { }
  64.     /* Exception.CreateResFmtHelp */ __fastcall EOutOfResources(int Ident, const System::TVarRec * Args
  65.         , const int Args_Size, int AHelpContext) : Timerex::EOutOfMemory(Ident, Args, Args_Size, AHelpContext
  66.         ) { }
  67.     
  68. public:
  69.     /* TObject.Destroy */ __fastcall virtual ~EOutOfResources(void) { }
  70.     
  71. };
  72.  
  73. class __declspec(delphiclass) TTimerEx;
  74. class __declspec(pascalimplementation) TTimerEx : public Classes::TComponent
  75. {
  76.     typedef Classes::TComponent inherited;
  77.     
  78. private:
  79.     bool FEnabled;
  80.     Cardinal FInterval;
  81.     Classes::TNotifyEvent FOnTimer;
  82.     bool FThreaded;
  83.     TThreadPriority FThreadPriority;
  84.     bool FThreadSafe;
  85.     Classes::TThread* FTimerThread;
  86.     HWND FWindowHandle;
  87.     void __fastcall SetEnabled(bool aValue);
  88.     void __fastcall SetInterval(Cardinal aValue);
  89.     void __fastcall SetOnTimer(Classes::TNotifyEvent aValue);
  90.     void __fastcall SetThreaded(bool aValue);
  91.     void __fastcall SetThreadPriority(Classes::TThreadPriority aValue);
  92.     void __fastcall UpdateTimer(void);
  93.     void __fastcall WndProc(Messages::TMessage &aMessage);
  94.     
  95. protected:
  96.     virtual void __fastcall Timer(void);
  97.     
  98. public:
  99.     __fastcall virtual TTimerEx(Classes::TComponent* aOwner);
  100.     __fastcall virtual ~TTimerEx(void);
  101.     
  102. __published:
  103.     __property bool Enabled = {read=FEnabled, write=SetEnabled, default=1};
  104.     __property Cardinal Interval = {read=FInterval, write=SetInterval, default=1000};
  105.     __property bool Threaded = {read=FThreaded, write=SetThreaded, default=1};
  106.     __property Classes::TThreadPriority ThreadPriority = {read=FThreadPriority, write=SetThreadPriority
  107.         , default=3};
  108.     __property bool ThreadSafe = {read=FThreadSafe, write=FThreadSafe, nodefault};
  109.     __property Classes::TNotifyEvent OnTimer = {read=FOnTimer, write=SetOnTimer};
  110. };
  111.  
  112. //-- var, const, procedure ---------------------------------------------------
  113. #define DefaultInterval (Word)(1000)
  114. extern void __fastcall Register(void);
  115.  
  116. }    /* namespace Timerex */
  117. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  118. using namespace Timerex;
  119. #endif
  120. //-- end unit ----------------------------------------------------------------
  121. #endif    // TimerEx
  122.