home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ahmsyscm / _setup.1 / AHMTSystemKeys.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-11-12  |  1.7 KB  |  56 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) 'AHMTSystemKeys.pas' rev: 3.00
  6.  
  7. #ifndef AHMTSystemKeysHPP
  8. #define AHMTSystemKeysHPP
  9. #include <AHMSystem.hpp>
  10. #include <Classes.hpp>
  11. #include <SysUtils.hpp>
  12. #include <Messages.hpp>
  13. #include <Windows.hpp>
  14. #include <SysInit.hpp>
  15. #include <System.hpp>
  16.  
  17. //-- user supplied -----------------------------------------------------------
  18.  
  19. namespace Ahmtsystemkeys
  20. {
  21. //-- type declarations -------------------------------------------------------
  22. class DELPHICLASS TAHMSystemKeys;
  23. class PASCALIMPLEMENTATION TAHMSystemKeys : public Ahmsystem::TAHMSystemsComponent 
  24. {
  25.     typedef Ahmsystem::TAHMSystemsComponent inherited;
  26.     
  27. private:
  28.     bool FCapsLock;
  29.     bool FNumLock;
  30.     bool FScrollLock;
  31.     void __fastcall SetCapsLock(bool value);
  32.     void __fastcall SetNumLock(bool value);
  33.     void __fastcall SetScrollLock(bool value);
  34.     
  35. public:
  36.     __fastcall virtual TAHMSystemKeys(Classes::TComponent* AOwner);
  37.     
  38. __published:
  39.     __property bool CapsLock = {read=FCapsLock, write=SetCapsLock, stored=false, nodefault};
  40.     __property bool NumLock = {read=FNumLock, write=SetNumLock, stored=false, nodefault};
  41.     __property bool ScrollLock = {read=FScrollLock, write=SetScrollLock, stored=false, nodefault};
  42. public:
  43.         
  44.     /* TComponent.Destroy */ __fastcall virtual ~TAHMSystemKeys(void) { }
  45.     
  46. };
  47.  
  48. //-- var, const, procedure ---------------------------------------------------
  49.  
  50. }    /* namespace Ahmtsystemkeys */
  51. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  52. using namespace Ahmtsystemkeys;
  53. #endif
  54. //-- end unit ----------------------------------------------------------------
  55. #endif    // AHMTSystemKeys
  56.