home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ahmstanc / _setup.1 / AHMTDBCommandLabel.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-12-05  |  2.5 KB  |  74 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) 'AHMTDBCommandLabel.pas' rev: 3.00
  6.  
  7. #ifndef AHMTDBCommandLabelHPP
  8. #define AHMTDBCommandLabelHPP
  9. #include <AHMSControls.hpp>
  10. #include <DBCtrls.hpp>
  11. #include <Db.hpp>
  12. #include <Controls.hpp>
  13. #include <Graphics.hpp>
  14. #include <ShellAPI.hpp>
  15. #include <StdCtrls.hpp>
  16. #include <Forms.hpp>
  17. #include <Classes.hpp>
  18. #include <Messages.hpp>
  19. #include <Windows.hpp>
  20. #include <SysInit.hpp>
  21. #include <System.hpp>
  22.  
  23. //-- user supplied -----------------------------------------------------------
  24.  
  25. namespace Ahmtdbcommandlabel
  26. {
  27. //-- type declarations -------------------------------------------------------
  28. enum TAHMDBCommand { runNothing, runMAIL, runURL, runFTP, runFILE, runEVENT };
  29.  
  30. class DELPHICLASS TAHMDBCommandLabel;
  31. class PASCALIMPLEMENTATION TAHMDBCommandLabel : public Dbctrls::TDBText 
  32. {
  33.     typedef Dbctrls::TDBText inherited;
  34.     
  35. private:
  36.     Ahmscontrols::TAHMAboutSControlStr FAboutStr;
  37.     TAHMDBCommand FCommand;
  38.     Graphics::TColor FActiveColor;
  39.     Graphics::TColor NFontColor;
  40.     Graphics::TColor FMOver;
  41.     bool Followed;
  42.     bool Pushed;
  43.     bool FDown;
  44.     bool FEnabled;
  45.     bool MouseIn;
  46.     Classes::TNotifyEvent foncommand;
  47.     HIDESBASE MESSAGE void __fastcall WMMouseMove(Messages::TWMMouse &msg);
  48.     HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &msg);
  49.     HIDESBASE MESSAGE void __fastcall WMLButtonUp(Messages::TWMMouse &msg);
  50.     
  51. public:
  52.     __fastcall virtual TAHMDBCommandLabel(Classes::TComponent* AOwner);
  53.     DYNAMIC void __fastcall Click(void);
  54.     virtual void __fastcall Loaded(void);
  55.     __fastcall virtual ~TAHMDBCommandLabel(void);
  56.     
  57. __published:
  58.     __property Ahmscontrols::TAHMAboutSControlStr About = {read=FAboutStr, write=FAboutStr};
  59.     __property TAHMDBCommand Command = {read=FCommand, write=FCommand, default=2};
  60.     __property Graphics::TColor FollowedColor = {read=FActiveColor, write=FActiveColor, default=8388736
  61.         };
  62.     __property Graphics::TColor MoveOverColor = {read=FMOver, write=FMOver, default=255};
  63.     __property Classes::TNotifyEvent RunEvent = {read=foncommand, write=foncommand};
  64. };
  65.  
  66. //-- var, const, procedure ---------------------------------------------------
  67.  
  68. }    /* namespace Ahmtdbcommandlabel */
  69. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  70. using namespace Ahmtdbcommandlabel;
  71. #endif
  72. //-- end unit ----------------------------------------------------------------
  73. #endif    // AHMTDBCommandLabel
  74.