home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ahmsyscm / _setup.1 / AHMTApplication.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-11-12  |  4.9 KB  |  112 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'AHMTApplication.pas' rev: 3.00
  6.  
  7. #ifndef AHMTApplicationHPP
  8. #define AHMTApplicationHPP
  9. #include <AHMSystem.hpp>
  10. #include <Graphics.hpp>
  11. #include <Forms.hpp>
  12. #include <Classes.hpp>
  13. #include <Messages.hpp>
  14. #include <Windows.hpp>
  15. #include <SysUtils.hpp>
  16. #include <SysInit.hpp>
  17. #include <System.hpp>
  18.  
  19. //-- user supplied -----------------------------------------------------------
  20.  
  21. namespace Ahmtapplication
  22. {
  23. //-- type declarations -------------------------------------------------------
  24. class DELPHICLASS EAHMDuplicateError;
  25. class PASCALIMPLEMENTATION EAHMDuplicateError : public Sysutils::Exception 
  26. {
  27.     typedef Sysutils::Exception inherited;
  28.     
  29. public:
  30.     /* Exception.Create */ __fastcall EAHMDuplicateError(const System::AnsiString Msg) : Sysutils::Exception(
  31.         Msg) { }
  32.     /* Exception.CreateFmt */ __fastcall EAHMDuplicateError(const System::AnsiString Msg, const System::TVarRec 
  33.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  34.     /* Exception.CreateRes */ __fastcall EAHMDuplicateError(int Ident, Extended Dummy) : Sysutils::Exception(
  35.         Ident, Dummy) { }
  36.     /* Exception.CreateResFmt */ __fastcall EAHMDuplicateError(int Ident, const System::TVarRec * Args, 
  37.         const int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  38.     /* Exception.CreateHelp */ __fastcall EAHMDuplicateError(const System::AnsiString Msg, int AHelpContext
  39.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  40.     /* Exception.CreateFmtHelp */ __fastcall EAHMDuplicateError(const System::AnsiString Msg, const System::TVarRec 
  41.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  42.         ) { }
  43.     /* Exception.CreateResHelp */ __fastcall EAHMDuplicateError(int Ident, int AHelpContext) : Sysutils::
  44.         Exception(Ident, AHelpContext) { }
  45.     /* Exception.CreateResFmtHelp */ __fastcall EAHMDuplicateError(int Ident, const System::TVarRec * Args
  46.         , const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext
  47.         ) { }
  48.     
  49. public:
  50.     /* TObject.Destroy */ __fastcall virtual ~EAHMDuplicateError(void) { }
  51.     
  52. };
  53.  
  54. class DELPHICLASS TAHMApplication;
  55. class PASCALIMPLEMENTATION TAHMApplication : public Ahmsystem::TAHMSystemsComponent 
  56. {
  57.     typedef Ahmsystem::TAHMSystemsComponent inherited;
  58.     
  59. private:
  60.     Graphics::TIcon* FIcon;
  61.     Classes::TNotifyEvent FOnHint;
  62.     Forms::TShowHintEvent FOnShowHint;
  63.     Classes::TNotifyEvent FOnActivate;
  64.     Classes::TNotifyEvent FOnDeactivate;
  65.     Forms::TExceptionEvent FOnException;
  66.     Forms::TMessageEvent FOnMessage;
  67.     Classes::THelpEvent FOnHelp;
  68.     Forms::TIdleEvent FOnIdle;
  69.     Classes::TNotifyEvent FOnRestore;
  70.     Classes::TNotifyEvent FOnMinimize;
  71.     void __fastcall SetIcon(Graphics::TIcon* aValue);
  72.     void __fastcall SetHintColor(const Graphics::TColor Value);
  73.     void __fastcall SetShowHint(const bool Value);
  74.     bool __fastcall GetShowHint(void);
  75.     System::AnsiString __fastcall GetTitle(void);
  76.     void __fastcall SetTitle(const System::AnsiString Value);
  77.     Graphics::TColor __fastcall GetHintColor(void);
  78.     int __fastcall GetHintPause(void);
  79.     void __fastcall SetHintPause(const int Value);
  80.     
  81. public:
  82.     __fastcall virtual TAHMApplication(Classes::TComponent* AOwner);
  83.     __fastcall virtual ~TAHMApplication(void);
  84.     virtual void __fastcall Loaded(void);
  85.     
  86. __published:
  87.     __property Graphics::TColor HintColor = {read=GetHintColor, write=SetHintColor, default=8454143};
  88.     __property int HintPause = {read=GetHintPause, write=SetHintPause, default=800};
  89.     __property Graphics::TIcon* ApplicationIcon = {read=FIcon, write=SetIcon};
  90.     __property bool ShowHint = {read=GetShowHint, write=SetShowHint, default=1};
  91.     __property System::AnsiString ApplicationTitle = {read=GetTitle, write=SetTitle};
  92.     __property Classes::TNotifyEvent OnActivate = {read=FOnActivate, write=FOnActivate};
  93.     __property Classes::TNotifyEvent OnDeactivate = {read=FOnDeactivate, write=FOnDeactivate};
  94.     __property Forms::TExceptionEvent OnException = {read=FOnException, write=FOnException};
  95.     __property Classes::THelpEvent OnHelp = {read=FOnHelp, write=FOnHelp};
  96.     __property Forms::TIdleEvent OnIdle = {read=FOnIdle, write=FOnIdle};
  97.     __property Forms::TMessageEvent OnMessage = {read=FOnMessage, write=FOnMessage};
  98.     __property Classes::TNotifyEvent OnMinimize = {read=FOnMinimize, write=FOnMinimize};
  99.     __property Classes::TNotifyEvent OnHint = {read=FOnHint, write=FOnHint};
  100.     __property Classes::TNotifyEvent OnRestore = {read=FOnRestore, write=FOnRestore};
  101.     __property Forms::TShowHintEvent OnShowHint = {read=FOnShowHint, write=FOnShowHint};
  102. };
  103.  
  104. //-- var, const, procedure ---------------------------------------------------
  105.  
  106. }    /* namespace Ahmtapplication */
  107. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  108. using namespace Ahmtapplication;
  109. #endif
  110. //-- end unit ----------------------------------------------------------------
  111. #endif    // AHMTApplication
  112.