home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ahmsyscm / _setup.1 / AHMTWallPaper.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-11-12  |  1.8 KB  |  57 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) 'AHMTWallPaper.pas' rev: 3.00
  6.  
  7. #ifndef AHMTWallPaperHPP
  8. #define AHMTWallPaperHPP
  9. #include <AHMSystem.hpp>
  10. #include <Registry.hpp>
  11. #include <SysUtils.hpp>
  12. #include <Classes.hpp>
  13. #include <Windows.hpp>
  14. #include <SysInit.hpp>
  15. #include <System.hpp>
  16.  
  17. //-- user supplied -----------------------------------------------------------
  18.  
  19. namespace Ahmtwallpaper
  20. {
  21. //-- type declarations -------------------------------------------------------
  22. class DELPHICLASS TAHMWallPaper;
  23. class PASCALIMPLEMENTATION TAHMWallPaper : public Ahmsystem::TAHMExecuteComponent 
  24. {
  25.     typedef Ahmsystem::TAHMExecuteComponent inherited;
  26.     
  27. private:
  28.     bool FTiled;
  29.     System::AnsiString FFilename;
  30.     Classes::TNotifyEvent FOnChange;
  31.     void __fastcall SetFilename(const System::AnsiString FName);
  32.     void __fastcall SetTiled(bool Value);
  33.     
  34. public:
  35.     __fastcall virtual TAHMWallPaper(Classes::TComponent* AOwner);
  36.     void __fastcall SetWallPaper(System::AnsiString BmpName, bool IsTiled);
  37.     virtual bool __fastcall Execute(void);
  38.     
  39. __published:
  40.     __property About ;
  41.     __property bool Tiled = {read=FTiled, write=SetTiled, default=1};
  42.     __property System::AnsiString Filename = {read=FFilename, write=SetFilename};
  43.     __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
  44. public:
  45.     /* TComponent.Destroy */ __fastcall virtual ~TAHMWallPaper(void) { }
  46.     
  47. };
  48.  
  49. //-- var, const, procedure ---------------------------------------------------
  50.  
  51. }    /* namespace Ahmtwallpaper */
  52. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  53. using namespace Ahmtwallpaper;
  54. #endif
  55. //-- end unit ----------------------------------------------------------------
  56. #endif    // AHMTWallPaper
  57.