home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / Essentials / SETUP.EXE / %MAINDIR% / EsMarque.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-11-28  |  4.6 KB  |  142 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) 'EsMarque.pas' rev: 3.00
  6.  
  7. #ifndef EsMarqueHPP
  8. #define EsMarqueHPP
  9. #include <EsLabel.hpp>
  10. #include <EsData.hpp>
  11. #include <SysUtils.hpp>
  12. #include <StdCtrls.hpp>
  13. #include <MMSystem.hpp>
  14. #include <Messages.hpp>
  15. #include <Graphics.hpp>
  16. #include <Forms.hpp>
  17. #include <ExtCtrls.hpp>
  18. #include <Controls.hpp>
  19. #include <Classes.hpp>
  20. #include <Windows.hpp>
  21. #include <SysInit.hpp>
  22. #include <System.hpp>
  23.  
  24. //-- user supplied -----------------------------------------------------------
  25.  
  26. namespace Esmarque
  27. {
  28. //-- type declarations -------------------------------------------------------
  29. enum TEsBehaviors { bhCycle, bhBounce, bhOnce };
  30.  
  31. enum TEsScrollDirection { sdRightToLeft, sdLeftToRight, sdTopToBottom, sdBottomToTop };
  32.  
  33. typedef Shortint TEsScrollSpeed;
  34.  
  35. class DELPHICLASS TEsCustomScrollingMarquee;
  36. class PASCALIMPLEMENTATION TEsCustomScrollingMarquee : public Eslabel::TEsCustomLabel 
  37. {
  38.     typedef Eslabel::TEsCustomLabel inherited;
  39.     
  40. protected:
  41.     bool FActive;
  42.     TEsBehaviors FBehavior;
  43.     TEsScrollSpeed FScrollSpeed;
  44.     TEsScrollDirection FScrollDirection;
  45.     Classes::TNotifyEvent FOnCycle;
  46.     Graphics::TBitmap* smBmp;
  47.     HDC smDC;
  48.     int smDelay;
  49.     bool smDirty;
  50.     HWND smHandle;
  51.     HBITMAP smOldBmp;
  52.     tagPOINT smPos;
  53.     int smResolution;
  54.     int smTextHeight;
  55.     int smTextWidth;
  56.     int smTimerId;
  57.     void __fastcall smChanged(void);
  58.     void __fastcall smKillTimer(void);
  59.     void __fastcall smSetTimer(void);
  60.     void __fastcall smWndProc(Messages::TMessage &Message);
  61.     Classes::TAlignment __fastcall GetAlignment(void);
  62.     void __fastcall SetActive(bool Value);
  63.     HIDESBASE void __fastcall SetAlignment(Classes::TAlignment Value);
  64.     void __fastcall SetBehavior(TEsBehaviors Value);
  65.     void __fastcall SetScrollDirection(TEsScrollDirection Value);
  66.     void __fastcall SetScrollSpeed(TEsScrollSpeed Value);
  67.     HIDESBASE MESSAGE void __fastcall CMColorChanged(Messages::TWMNoParams &Message);
  68.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TWMNoParams &Message);
  69.     HIDESBASE MESSAGE void __fastcall CMTextChanged(Messages::TWMNoParams &Message);
  70.     virtual void __fastcall Paint(void);
  71.     DYNAMIC void __fastcall DoOnCycle(void);
  72.     __property bool Active = {read=FActive, write=SetActive, default=0};
  73.     __property Classes::TAlignment Alignment = {read=GetAlignment, write=SetAlignment, nodefault};
  74.     __property TEsBehaviors Behavior = {read=FBehavior, write=SetBehavior, default=0};
  75.     __property TEsScrollDirection ScrollDirection = {read=FScrollDirection, write=SetScrollDirection, default=0
  76.         };
  77.     __property TEsScrollSpeed ScrollSpeed = {read=FScrollSpeed, write=SetScrollSpeed, nodefault};
  78.     __property Classes::TNotifyEvent OnCycle = {read=FOnCycle, write=FOnCycle};
  79.     
  80. public:
  81.     __fastcall virtual TEsCustomScrollingMarquee(Classes::TComponent* AOwner);
  82.     __fastcall virtual ~TEsCustomScrollingMarquee(void);
  83.     virtual void __fastcall Invalidate(void);
  84. };
  85.  
  86. class DELPHICLASS TEsScrollingMarquee;
  87. class PASCALIMPLEMENTATION TEsScrollingMarquee : public Esmarque::TEsCustomScrollingMarquee 
  88. {
  89.     typedef Esmarque::TEsCustomScrollingMarquee inherited;
  90.     
  91. __published:
  92.     __property Active ;
  93.     __property Align ;
  94.     __property Alignment ;
  95.     __property Appearance ;
  96.     __property Behavior ;
  97.     __property Caption ;
  98.     __property Color ;
  99.     __property ColorScheme ;
  100.     __property Cursor ;
  101.     __property CustomSettings ;
  102.     __property DragCursor ;
  103.     __property DragMode ;
  104.     __property Enabled ;
  105.     __property FocusControl ;
  106.     __property Font ;
  107.     __property ParentColor ;
  108.     __property ParentFont ;
  109.     __property ParentShowHint ;
  110.     __property ScrollDirection ;
  111.     __property ScrollSpeed ;
  112.     __property ShowAccelChar ;
  113.     __property ShowHint ;
  114.     __property WordWrap ;
  115.     __property Version ;
  116.     __property Visible ;
  117.     __property OnClick ;
  118.     __property OnCycle ;
  119.     __property OnDblClick ;
  120.     __property OnDragDrop ;
  121.     __property OnDragOver ;
  122.     __property OnEndDrag ;
  123.     __property OnMouseDown ;
  124.     __property OnMouseMove ;
  125.     __property OnMouseUp ;
  126. public:
  127.     /* TEsCustomScrollingMarquee.Create */ __fastcall virtual TEsScrollingMarquee(Classes::TComponent* 
  128.         AOwner) : Esmarque::TEsCustomScrollingMarquee(AOwner) { }
  129.     /* TEsCustomScrollingMarquee.Destroy */ __fastcall virtual ~TEsScrollingMarquee(void) { }
  130.     
  131. };
  132.  
  133. //-- var, const, procedure ---------------------------------------------------
  134. #define SM_TIMER (Word)(1524)
  135.  
  136. }    /* namespace Esmarque */
  137. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  138. using namespace Esmarque;
  139. #endif
  140. //-- end unit ----------------------------------------------------------------
  141. #endif    // EsMarque
  142.