home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / D3 / EDTOOL.ZIP / PVLCLK.HPP < prev    next >
C/C++ Source or Header  |  1998-10-07  |  5KB  |  133 lines
  1. //----------------------------------------------------------------------------
  2. // pvlClk.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: pvlClk.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef pvlClkHPP
  6. #define pvlClkHPP
  7. //----------------------------------------------------------------------------
  8. #include <Dialogs.hpp>
  9. #include <Forms.hpp>
  10. #include <Controls.hpp>
  11. #include <Graphics.hpp>
  12. #include <Classes.hpp>
  13. #include <SysUtils.hpp>
  14. #include <Messages.hpp>
  15. #include <Windows.hpp>
  16. #include <System.hpp>
  17. namespace Pvlclk
  18. {
  19. //-- type declarations -------------------------------------------------------
  20. class __declspec(delphiclass) TClockStyle;
  21. class __declspec(pascalimplementation) TClockStyle : public Classes::TPersistent
  22. {
  23.     typedef Classes::TPersistent inherited;
  24.     
  25. private:
  26.     Graphics::TColor fback;
  27.     Graphics::TColor fHands;
  28.     Graphics::TColor fMajor;
  29.     Graphics::TColor fLines;
  30.     bool fsecs;
  31.     Classes::TNotifyEvent fonChange;
  32.     bool fCircle;
  33.     bool fminor;
  34.     
  35. protected:
  36.     void __fastcall setsecs(bool p0);
  37.     void __fastcall setCircle(bool p0);
  38.     void __fastcall setMinor(bool p0);
  39.     void __fastcall setmajor(Graphics::TColor p0);
  40.     void __fastcall sethands(Graphics::TColor p0);
  41.     void __fastcall setback(Graphics::TColor p0);
  42.     void __fastcall setLines(Graphics::TColor p0);
  43.     
  44. public:
  45.     __fastcall TClockStyle(void);
  46.     virtual void __fastcall change(void);
  47.     __property Classes::TNotifyEvent onchange = {read=fonChange, write=fonChange};
  48.     
  49. __published:
  50.     __property Graphics::TColor BackgroundColor = {read=fback, write=setback, default=-2147483633};
  51.     __property Graphics::TColor HandsColor = {read=fHands, write=sethands, default=255};
  52.     __property Graphics::TColor MajorColor = {read=fMajor, write=setmajor, default=16777215};
  53.     __property Graphics::TColor LineColor = {read=fLines, write=setLines, nodefault};
  54.     __property bool ShowSeconds = {read=fsecs, write=setsecs, nodefault};
  55.     __property bool ShowCircle = {read=fCircle, write=setCircle, nodefault};
  56.     __property bool ShowMinor = {read=fminor, write=setMinor, nodefault};
  57. public:
  58.     /* TObject.Destroy */ __fastcall virtual ~TClockStyle(void) { }
  59.     
  60. };
  61.  
  62. class __declspec(delphiclass) TCustompvlClock;
  63. class __declspec(pascalimplementation) TCustompvlClock : public Controls::TGraphicControl
  64. {
  65.     typedef Controls::TGraphicControl inherited;
  66.     
  67. private:
  68.     int finnerwidth;
  69.     Graphics::TBitmap* fbmp;
  70.     System::TDateTime ftime;
  71.     TClockStyle* fStyle;
  72.     tagPOINT fLastXY;
  73.     void __fastcall setabout( System::AnsiString p0);
  74.     System::AnsiString __fastcall getabout(void);
  75.     
  76. protected:
  77.     virtual void __fastcall paint(void);
  78.     void __fastcall settime(System::TDateTime p0);
  79.     void __fastcall stylechange(System::TObject* p0);
  80.     
  81. public:
  82.     __fastcall virtual TCustompvlClock(Classes::TComponent* p0);
  83.     __fastcall virtual ~TCustompvlClock(void);
  84.     __property System::TDateTime Time = {read=ftime, write=settime};
  85.     virtual void __fastcall MouseDown(Controls::TMouseButton p0, Classes::TShiftState p1, int p2, int p3
  86.         );
  87.     __property TClockStyle* Style = {read=fStyle, write=fStyle, nodefault};
  88.     __property tagPOINT LastXY = {read=fLastXY};
  89.     System::TDateTime __fastcall LastTime(void);
  90.     int __fastcall LastMinuteSeg(void);
  91.     bool __fastcall LastWithinHourHand(void);
  92.     System::TDateTime __fastcall Timefrompoint(const tagPOINT &pvlClk_);
  93.     int __fastcall MinuteSegfromPoint(const tagPOINT &pvlClk_);
  94.     bool __fastcall WithinHourHandfromPoint(const tagPOINT &pvlClk_);
  95.     
  96. __published:
  97.     __property System::AnsiString About = {read=getabout, write=setabout, stored=false, nodefault};
  98. };
  99.  
  100. class __declspec(delphiclass) TpvlClock;
  101. class __declspec(pascalimplementation) TpvlClock : public TCustompvlClock
  102. {
  103.     typedef TCustompvlClock inherited;
  104.     
  105. __published:
  106.     __property Align ;
  107.     __property Style ;
  108.     __property OnClick ;
  109.     __property OnDblClick ;
  110.     __property OnDragDrop ;
  111.     __property OnDragOver ;
  112.     __property OnEndDrag ;
  113.     __property OnMouseDown ;
  114.     __property OnMouseMove ;
  115.     __property OnMouseUp ;
  116.     __property OnStartDrag ;
  117.     __property Visible ;
  118. public:
  119.     /* TCustompvlClock.Create */ __fastcall virtual TpvlClock(Classes::TComponent* p0) : Pvlclk::TCustompvlClock(
  120.         p0) { }
  121.     /* TCustompvlClock.Destroy */ __fastcall virtual ~TpvlClock(void) { }
  122.     
  123. };
  124.  
  125. //-- var, const, procedure ---------------------------------------------------
  126.  
  127. }    /* namespace Pvlclk */
  128. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  129. using namespace Pvlclk;
  130. #endif
  131. //-- end unit ----------------------------------------------------------------
  132. #endif    // pvlClk
  133.