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