home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / D3 / EDTOOL.ZIP / EDTOOL.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1998-10-07  |  28.9 KB  |  781 lines
  1. //----------------------------------------------------------------------------
  2. // EdTool.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: EdTool.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef EdToolHPP
  6. #define EdToolHPP
  7. //----------------------------------------------------------------------------
  8. #include <pvlClk.hpp>
  9. #include <Mask.hpp>
  10. #include <pvlTedit.hpp>
  11. #include <pvlDedit.hpp>
  12. #include <Menus.hpp>
  13. #include <StdCtrls.hpp>
  14. #include <Grids.hpp>
  15. #include <ExtCtrls.hpp>
  16. #include <Buttons.hpp>
  17. #include <Dialogs.hpp>
  18. #include <Forms.hpp>
  19. #include <Controls.hpp>
  20. #include <Graphics.hpp>
  21. #include <Classes.hpp>
  22. #include <SysUtils.hpp>
  23. #include <Messages.hpp>
  24. #include <Windows.hpp>
  25. #include <System.hpp>
  26. namespace Edtool
  27. {
  28. //-- type declarations -------------------------------------------------------
  29. enum TSubAlign { saLeft, saRight };
  30.  
  31. typedef void __fastcall (__closure *TWantFormEvent)(System::TObject* Sender, Forms::TForm* &Subf);
  32.  
  33. class __declspec(delphiclass) TpvlCustomDualSpeedButton;
  34. class __declspec(pascalimplementation) TpvlCustomDualSpeedButton : public Buttons::TSpeedButton
  35. {
  36.     typedef Buttons::TSpeedButton inherited;
  37.     
  38. private:
  39.     Classes::TNotifyEvent fOnRButtonClicked;
  40.     void __fastcall SetAbout( System::AnsiString p0);
  41.     System::AnsiString __fastcall GetAbout(void);
  42.     
  43. protected:
  44.     HIDESBASE MESSAGE void __fastcall WMRButtonUp(Messages::TWMMouse &EdTool_);
  45.     MESSAGE void __fastcall WMRButtonDn(Messages::TWMMouse &EdTool_);
  46.     HIDESBASE MESSAGE void __fastcall WMMouseMove(Messages::TWMMouse &EdTool_);
  47.     __property System::AnsiString About = {read=GetAbout, write=SetAbout, stored=false, nodefault};
  48.     __property Classes::TNotifyEvent OnRClick = {read=fOnRButtonClicked, write=fOnRButtonClicked};
  49.     
  50. public:
  51.     virtual void __fastcall RClick(void);
  52. public:
  53.     /* TSpeedButton.Create */ __fastcall virtual TpvlCustomDualSpeedButton(Classes::TComponent* AOwner)
  54.          : Buttons::TSpeedButton(AOwner) { }
  55.     /* TSpeedButton.Destroy */ __fastcall virtual ~TpvlCustomDualSpeedButton(void) { }
  56.     
  57. };
  58.  
  59. class __declspec(delphiclass) TpvlDualSpeedButton;
  60. class __declspec(pascalimplementation) TpvlDualSpeedButton : public TpvlCustomDualSpeedButton
  61. {
  62.     typedef TpvlCustomDualSpeedButton inherited;
  63.     
  64. __published:
  65.     __property About ;
  66.     __property OnRClick ;
  67. public:
  68.     /* TSpeedButton.Create */ __fastcall virtual TpvlDualSpeedButton(Classes::TComponent* AOwner) : Edtool::
  69.         TpvlCustomDualSpeedButton(AOwner) { }
  70.     /* TSpeedButton.Destroy */ __fastcall virtual ~TpvlDualSpeedButton(void) { }
  71.     
  72. };
  73.  
  74. class __declspec(delphiclass) TPvlCustomMoreEdit;
  75. class __declspec(pascalimplementation) TPvlCustomMoreEdit : public Mask::TCustomMaskEdit
  76. {
  77.     typedef Mask::TCustomMaskEdit inherited;
  78.     
  79. private:
  80.     Classes::TNotifyEvent fOnRButtonClick;
  81.     TWantFormEvent fWantFormEvent;
  82.     Classes::TNotifyEvent fOnButtonClick;
  83.     TSubAlign fSubAlign;
  84.     TpvlCustomDualSpeedButton* fButton;
  85.     Forms::TForm* fSubForm;
  86.     int __fastcall GetMinHeight(void);
  87.     void __fastcall SetEditRect(void);
  88.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &EdTool_);
  89.     virtual void __fastcall CreateParams(Controls::TCreateParams &EdTool_);
  90.     bool __fastcall GetEnabled(void);
  91.     HIDESBASE void __fastcall SetEnabled(bool p0);
  92.     void __fastcall SetAbout( System::AnsiString p0);
  93.     System::AnsiString __fastcall GetAbout(void);
  94.     bool __fastcall GetReadOnly(void);
  95.     HIDESBASE void __fastcall SetReadOnly(bool p0);
  96.     Graphics::TBitmap* __fastcall GetGlyph(void);
  97.     void __fastcall SetGlyph(Graphics::TBitmap* p0);
  98.     virtual void __fastcall KeyPress(char &p0);
  99.     
  100. protected:
  101.     bool fDb;
  102.     virtual void __fastcall loaded(void);
  103.     virtual void __fastcall RBtnClick(System::TObject* p0);
  104.     virtual void __fastcall BtnClick(System::TObject* p0);
  105.     __property Graphics::TBitmap* Glyph = {read=GetGlyph, write=SetGlyph, nodefault};
  106.     __property Classes::TNotifyEvent OnRButtonClick = {read=fOnRButtonClick, write=fOnRButtonClick};
  107.     __property Classes::TNotifyEvent OnButtonClick = {read=fOnButtonClick, write=fOnButtonClick};
  108.     __property TWantFormEvent OnWantForm = {read=fWantFormEvent, write=fWantFormEvent};
  109.     virtual void __fastcall WantForm(void);
  110.     virtual void __fastcall releasesubform(void);
  111.     __property TSubAlign SubAlign = {read=fSubAlign, write=fSubAlign, nodefault};
  112.     __property bool enabled = {read=GetEnabled, write=SetEnabled, nodefault};
  113.     __property bool readonly = {read=GetReadOnly, write=SetReadOnly, nodefault};
  114.     __property TpvlCustomDualSpeedButton* Button = {read=fButton, nodefault};
  115.     __property Forms::TForm* subform = {read=fSubForm, write=fSubForm, nodefault};
  116.     virtual void __fastcall change(void);
  117.     
  118. public:
  119.     __fastcall virtual TPvlCustomMoreEdit(Classes::TComponent* p0);
  120.     __fastcall virtual ~TPvlCustomMoreEdit(void);
  121.     virtual void __fastcall CreateWnd(void);
  122.     
  123. __published:
  124.     __property System::AnsiString About = {read=GetAbout, write=SetAbout, stored=false, nodefault};
  125. public:
  126.         
  127.     /* TWinControl.CreateParented */ __fastcall TPvlCustomMoreEdit(HWND ParentWindow) : Mask::TCustomMaskEdit(
  128.         ParentWindow) { }
  129.     
  130. };
  131.  
  132. class __declspec(delphiclass) TpvlMoreEdit;
  133. class __declspec(pascalimplementation) TpvlMoreEdit : public TPvlCustomMoreEdit
  134. {
  135.     typedef TPvlCustomMoreEdit inherited;
  136.     
  137. __published:
  138.     __property AutoSelect ;
  139.     __property AutoSize ;
  140.     __property BorderStyle ;
  141.     __property CharCase ;
  142.     __property Color ;
  143.     __property Ctl3D ;
  144.     __property DragCursor ;
  145.     __property DragMode ;
  146.     __property Enabled ;
  147.     __property Font ;
  148.     __property Glyph ;
  149.     __property HideSelection ;
  150.     __property MaxLength ;
  151.     __property OEMConvert ;
  152.     __property ParentColor ;
  153.     __property ParentCtl3D ;
  154.     __property ParentFont ;
  155.     __property ParentShowHint ;
  156.     __property PasswordChar ;
  157.     __property PopupMenu ;
  158.     __property ReadOnly ;
  159.     __property ShowHint ;
  160.     __property SubAlign ;
  161.     __property TabOrder ;
  162.     __property TabStop ;
  163.     __property Text ;
  164.     __property Visible ;
  165.     __property OnButtonClick ;
  166.     __property OnChange ;
  167.     __property OnClick ;
  168.     __property OnDblClick ;
  169.     __property OnDragDrop ;
  170.     __property OnDragOver ;
  171.     __property OnEndDrag ;
  172.     __property OnEnter ;
  173.     __property OnExit ;
  174.     __property OnKeyDown ;
  175.     __property OnKeyPress ;
  176.     __property OnKeyUp ;
  177.     __property OnMouseDown ;
  178.     __property OnMouseMove ;
  179.     __property OnMouseUp ;
  180.     __property OnWantForm ;
  181.     __property OnRButtonClick ;
  182. public:
  183.     /* TPvlCustomMoreEdit.Create */ __fastcall virtual TpvlMoreEdit(Classes::TComponent* p0) : Edtool::
  184.         TPvlCustomMoreEdit(p0) { }
  185.     /* TPvlCustomMoreEdit.Destroy */ __fastcall virtual ~TpvlMoreEdit(void) { }
  186.     
  187. public:
  188.     /* TWinControl.CreateParented */ __fastcall TpvlMoreEdit(HWND ParentWindow) : Edtool::TPvlCustomMoreEdit(
  189.         ParentWindow) { }
  190.     
  191. };
  192.  
  193. enum TDateDisplayFormat { dfLong, dfShort, dfCustom };
  194.  
  195. typedef TDateDisplayFormat TDateEditFormat;
  196.  
  197. enum TQuickChangeType { qcNone, qcWhole, qcSection };
  198.  
  199. enum TMinMaxhandler { TmmAdjust, TmmException, TmmDialog, TmmEvent };
  200.  
  201. typedef void __fastcall (__closure *TMinMaxDateEvent)(System::TObject* Sender, System::TDateTime Newvalue
  202.     , System::TDateTime min, System::TDateTime max, System::TDateTime &Value);
  203.  
  204. enum TTimeEditFormat { teIncludeSecs, teExcludeSecs };
  205.  
  206. class __declspec(delphiclass) TPvlCustomTimeEdit;
  207. class __declspec(pascalimplementation) TPvlCustomTimeEdit : public TPvlCustomMoreEdit
  208. {
  209.     typedef TPvlCustomMoreEdit inherited;
  210.     
  211. private:
  212.     TQuickChangeType fQuickChangeType;
  213.     bool fQuickChangeWrap;
  214.     bool fSeparateHourHand;
  215.     System::TDateTime fTime;
  216.     TDateDisplayFormat fDisplayFormat;
  217.     System::AnsiString fDisplayFormatMask;
  218.     TTimeEditFormat fEditFormat;
  219.     bool floadTime;
  220.     int fblank[4];
  221.     Word fhour;
  222.     Word fmin;
  223.     Word fsecs;
  224.     int fMinseg;
  225.     int fHourseg;
  226.     int fSecseg;
  227.     int fnumsegs;
  228.     bool ffixing;
  229.     Classes::TNotifyEvent FOnTimeChange;
  230.     Classes::TStrings* fAMPMHeadings;
  231.     bool fdoneenter;
  232.     Classes::TNotifyEvent fOnIntTimeChange;
  233.     
  234. protected:
  235.     virtual void __fastcall WantForm(void);
  236.     virtual void __fastcall loaded(void);
  237.     virtual void __fastcall doexit(void);
  238.     void __fastcall setupsegs(void);
  239.     int __fastcall activeseg(void);
  240.     __property int numsegs = {read=fnumsegs, nodefault};
  241.     void __fastcall highlightsegstart(const int p0);
  242.     void __fastcall highlightsegend(const int p0);
  243.     int __fastcall segstart(const int p0);
  244.     int __fastcall seglen(const int p0);
  245.     System::AnsiString __fastcall segvalue(const int p0);
  246.     Word __fastcall getSecs(void);
  247.     void __fastcall setSecs(Word p0);
  248.     Word __fastcall getMins(void);
  249.     void __fastcall setMins(Word p0);
  250.     Word __fastcall getHour(void);
  251.     void __fastcall setHour(Word p0);
  252.     void __fastcall SetAMPMHeadings(Classes::TStrings* p0);
  253.     System::TDateTime __fastcall GetTime(void);
  254.     void __fastcall SetTime(System::TDateTime p0);
  255.     void __fastcall SetDisplayFormat(TDateDisplayFormat p0);
  256.     void __fastcall SetDisplayFormatMask( System::AnsiString p0);
  257.     void __fastcall SetEditFormat(TTimeEditFormat p0);
  258.     HIDESBASE MESSAGE void __fastcall wmkeydown(Messages::TWMKey &EdTool_);
  259.     MESSAGE void __fastcall EMSetSel(Messages::TMessage &EdTool_);
  260.     HIDESBASE MESSAGE void __fastcall wmchar(Messages::TWMKey &EdTool_);
  261.     System::TDateTime __fastcall strtoTime(void);
  262.     HIDESBASE int __fastcall GetSelStart(void);
  263.     HIDESBASE void __fastcall SetSelStart(int p0);
  264.     HIDESBASE int __fastcall GetSelLength(void);
  265.     HIDESBASE void __fastcall SetSelLength(int p0);
  266.     void __fastcall fixselection(void);
  267.     virtual void __fastcall Timechange(void);
  268.     __property int SelLength = {read=GetSelLength, write=SetSelLength, nodefault};
  269.     __property int SelStart = {read=GetSelStart, write=SetSelStart, nodefault};
  270.     __property bool QuickChangeWrap = {read=fQuickChangeWrap, write=fQuickChangeWrap, nodefault};
  271.     __property TQuickChangeType QuickChangeType = {read=fQuickChangeType, write=fQuickChangeType, nodefault
  272.         };
  273.     __property bool LoadTime = {read=floadTime, write=floadTime, nodefault};
  274.     __property Word Secs = {read=getSecs, write=setSecs, stored=floadTime, nodefault};
  275.     __property Word Mins = {read=getMins, write=setMins, stored=floadTime, nodefault};
  276.     __property Word Hour = {read=getHour, write=setHour, stored=floadTime, nodefault};
  277.     __property TDateDisplayFormat DisplayFormat = {read=fDisplayFormat, write=SetDisplayFormat, default=0
  278.         };
  279.     __property System::AnsiString DisplayFormatMask = {read=fDisplayFormatMask, write=SetDisplayFormatMask
  280.         , nodefault};
  281.     __property Classes::TNotifyEvent OnTimeChange = {read=FOnTimeChange, write=FOnTimeChange};
  282.     __property Classes::TNotifyEvent OnIntTimeChange = {read=fOnIntTimeChange, write=fOnIntTimeChange};
  283.         
  284.     
  285. public:
  286.     __property TTimeEditFormat EditFormat = {read=fEditFormat, write=SetEditFormat, default=1};
  287.     virtual void __fastcall doenter(void);
  288.     __fastcall virtual TPvlCustomTimeEdit(Classes::TComponent* p0);
  289.     __fastcall virtual ~TPvlCustomTimeEdit(void);
  290.     void __fastcall Display(bool p0);
  291.     __property System::TDateTime Time = {read=GetTime, write=SetTime};
  292.     __property Classes::TStrings* AMPMHeadings = {read=fAMPMHeadings, write=SetAMPMHeadings, nodefault}
  293.         ;
  294.     __property bool SeparateHourHand = {read=fSeparateHourHand, write=fSeparateHourHand, nodefault};
  295. public:
  296.         
  297.     /* TWinControl.CreateParented */ __fastcall TPvlCustomTimeEdit(HWND ParentWindow) : Edtool::TPvlCustomMoreEdit(
  298.         ParentWindow) { }
  299.     
  300. };
  301.  
  302. class __declspec(delphiclass) TpvlTimeEdit;
  303. class __declspec(pascalimplementation) TpvlTimeEdit : public TPvlCustomTimeEdit
  304. {
  305.     typedef TPvlCustomTimeEdit inherited;
  306.     
  307. __published:
  308.     __property AMPMHeadings ;
  309.     __property QuickChangeWrap ;
  310.     __property QuickChangeType ;
  311.     __property LoadTime ;
  312.     __property Secs ;
  313.     __property Mins ;
  314.     __property Hour ;
  315.     __property Glyph ;
  316.     __property BorderStyle ;
  317.     __property Color ;
  318.     __property Ctl3D ;
  319.     __property DragCursor ;
  320.     __property DragMode ;
  321.     __property Enabled ;
  322.     __property Font ;
  323.     __property OEMConvert ;
  324.     __property ParentColor ;
  325.     __property ParentCtl3D ;
  326.     __property ParentFont ;
  327.     __property ParentShowHint ;
  328.     __property PopupMenu ;
  329.     __property ReadOnly ;
  330.     __property SubAlign ;
  331.     __property ShowHint ;
  332.     __property TabOrder ;
  333.     __property TabStop ;
  334.     __property Visible ;
  335.     __property OnChange ;
  336.     __property OnClick ;
  337.     __property OnDblClick ;
  338.     __property OnDragDrop ;
  339.     __property OnDragOver ;
  340.     __property OnEndDrag ;
  341.     __property OnEnter ;
  342.     __property OnExit ;
  343.     __property DisplayFormat ;
  344.     __property DisplayFormatMask ;
  345.     __property EditFormat ;
  346.     __property OnTimeChange ;
  347.     __property OnWantForm ;
  348.     __property SeparateHourHand ;
  349. public:
  350.     /* TPvlCustomTimeEdit.Create */ __fastcall virtual TpvlTimeEdit(Classes::TComponent* p0) : Edtool::
  351.         TPvlCustomTimeEdit(p0) { }
  352.     /* TPvlCustomTimeEdit.Destroy */ __fastcall virtual ~TpvlTimeEdit(void) { }
  353.     
  354. public:
  355.     /* TWinControl.CreateParented */ __fastcall TpvlTimeEdit(HWND ParentWindow) : Edtool::TPvlCustomTimeEdit(
  356.         ParentWindow) { }
  357.     
  358. };
  359.  
  360. class __declspec(delphiclass) TPvlCustomDateEdit;
  361. class __declspec(pascalimplementation) TPvlCustomDateEdit : public TPvlCustomMoreEdit
  362. {
  363.     typedef TPvlCustomMoreEdit inherited;
  364.     
  365. private:
  366.     System::TDateTime fmin;
  367.     System::TDateTime fmax;
  368.     System::AnsiString fMinMaxString;
  369.     TMinMaxDateEvent fOnMinmaxError;
  370.     TMinMaxhandler fminmaxhandler;
  371.     bool fusenulldate;
  372.     System::TDateTime fnulldate;
  373.     Classes::TStrings* fDayHeadings;
  374.     System::AnsiString fMonthHeading;
  375.     System::AnsiString fYearHeading;
  376.     TDayOfWeek fStartOfWeek;
  377.     TQuickChangeType fQuickChangeType;
  378.     bool fQuickChangeWrap;
  379.     System::TDateTime fDate;
  380.     TDateDisplayFormat fDisplayFormat;
  381.     System::AnsiString fDisplayFormatMask;
  382.     TDateDisplayFormat fEditFormat;
  383.     System::AnsiString fEditFormatMask;
  384.     bool floaddate;
  385.     int fImpliedCenturyStart;
  386.     int fblank[4];
  387.     Word fnullday;
  388.     Word fnullmonth;
  389.     Word fnullyear;
  390.     Word fminday;
  391.     Word fminmonth;
  392.     Word fminyear;
  393.     Word fmaxday;
  394.     Word fmaxmonth;
  395.     Word fmaxyear;
  396.     Word fday;
  397.     Word fmonth;
  398.     Word fyear;
  399.     int fdateseg;
  400.     int fmonthseg;
  401.     int fyearseg;
  402.     Graphics::TFont* fCalFont;
  403.     int fnumsegs;
  404.     bool ffixing;
  405.     Classes::TNotifyEvent FOnDateChange;
  406.     Pvldedit::TPvlGridColors* FColors;
  407.     Pvldedit::TpvlDaySet fHighLightDays;
  408.     Pvldedit::TpvlDaySet fInvalidDays;
  409.     Classes::TList* fHighLightDates;
  410.     Classes::TList* fInvalidDates;
  411.     bool fdoneenter;
  412.     TpvlTimeEdit* fTimeEdit;
  413.     bool fShowYearButtons;
  414.     bool fShowTodayButton;
  415.     System::AnsiString fTodayHeading;
  416.     void __fastcall TimeChanged(System::TObject* p0);
  417.     virtual void __fastcall SetTimeEdit(TpvlTimeEdit* const p0);
  418.     
  419. protected:
  420.     virtual void __fastcall Notification(Classes::TComponent* p0, Classes::TOperation p1);
  421.     virtual void __fastcall WantForm(void);
  422.     virtual void __fastcall loaded(void);
  423.     virtual void __fastcall doexit(void);
  424.     void __fastcall setmin(System::TDateTime p0);
  425.     void __fastcall setmax(System::TDateTime p0);
  426.     void __fastcall setupsegs(void);
  427.     int __fastcall activeseg(void);
  428.     __property int numsegs = {read=fnumsegs, nodefault};
  429.     void __fastcall highlightsegstart(const int p0);
  430.     void __fastcall highlightsegend(const int p0);
  431.     int __fastcall maxseglen(const int p0);
  432.     int __fastcall segstart(const int p0);
  433.     int __fastcall seglen(const int p0);
  434.     System::AnsiString __fastcall segvalue(const int p0);
  435.     Word __fastcall getday(void);
  436.     void __fastcall setday(Word p0);
  437.     Word __fastcall getMonth(void);
  438.     void __fastcall setMonth(Word p0);
  439.     Word __fastcall getYear(void);
  440.     void __fastcall setYear(Word p0);
  441.     Word __fastcall getnullday(void);
  442.     void __fastcall setnullday(Word p0);
  443.     Word __fastcall getnullMonth(void);
  444.     void __fastcall setnullMonth(Word p0);
  445.     Word __fastcall getnullYear(void);
  446.     void __fastcall setnullYear(Word p0);
  447.     Word __fastcall getminday(void);
  448.     void __fastcall setminday(Word p0);
  449.     Word __fastcall getminMonth(void);
  450.     void __fastcall setminMonth(Word p0);
  451.     Word __fastcall getminYear(void);
  452.     void __fastcall setminYear(Word p0);
  453.     Word __fastcall getmaxday(void);
  454.     void __fastcall setmaxday(Word p0);
  455.     Word __fastcall getmaxMonth(void);
  456.     void __fastcall setmaxMonth(Word p0);
  457.     Word __fastcall getmaxYear(void);
  458.     void __fastcall setmaxYear(Word p0);
  459.     void __fastcall SetDate(System::TDateTime p0);
  460.     System::TDateTime __fastcall GetDate(void);
  461.     void __fastcall SetDisplayFormat(TDateDisplayFormat p0);
  462.     void __fastcall SetDisplayFormatMask( System::AnsiString p0);
  463.     void __fastcall SetEditFormat(TDateEditFormat p0);
  464.     void __fastcall SetEditFormatMask( System::AnsiString p0);
  465.     HIDESBASE MESSAGE void __fastcall wmkeydown(Messages::TWMKey &EdTool_);
  466.     void __fastcall Prependcentury( System::AnsiString &p0, System::TDateTime p1);
  467.     MESSAGE void __fastcall EMSetSel(Messages::TMessage &EdTool_);
  468.     HIDESBASE MESSAGE void __fastcall wmchar(Messages::TWMKey &EdTool_);
  469.     System::TDateTime __fastcall strtodate(void);
  470.     HIDESBASE int __fastcall GetSelStart(void);
  471.     HIDESBASE void __fastcall SetSelStart(int p0);
  472.     HIDESBASE int __fastcall GetSelLength(void);
  473.     HIDESBASE void __fastcall SetSelLength(int p0);
  474.     void __fastcall fixselection(void);
  475.     virtual void __fastcall datechange(void);
  476.     void __fastcall SetDayHeadings(Classes::TStrings* p0);
  477.     void __fastcall SetCalFont(Graphics::TFont* p0);
  478.     System::TDateTime __fastcall checkbounds(System::TDateTime p0);
  479.     __property int SelLength = {read=GetSelLength, write=SetSelLength, nodefault};
  480.     __property int SelStart = {read=GetSelStart, write=SetSelStart, nodefault};
  481.     __property System::TDateTime NullDate = {read=fnulldate, write=fnulldate};
  482.     __property bool UseNullDate = {read=fusenulldate, write=fusenulldate, nodefault};
  483.     __property bool QuickChangeWrap = {read=fQuickChangeWrap, write=fQuickChangeWrap, nodefault};
  484.     __property TQuickChangeType QuickChangeType = {read=fQuickChangeType, write=fQuickChangeType, nodefault
  485.         };
  486.     __property bool LoadDate = {read=floaddate, write=floaddate, nodefault};
  487.     __property Word Day = {read=getday, write=setday, stored=floaddate, nodefault};
  488.     __property Word Month = {read=getMonth, write=setMonth, stored=floaddate, nodefault};
  489.     __property Word Year = {read=getYear, write=setYear, stored=floaddate, nodefault};
  490.     __property Word NullDay = {read=getnullday, write=setnullday, stored=fusenulldate, nodefault};
  491.     __property Word NullMonth = {read=getnullMonth, write=setnullMonth, stored=fusenulldate, nodefault}
  492.         ;
  493.     __property Word NullYear = {read=getnullYear, write=setnullYear, stored=fusenulldate, nodefault};
  494.     __property Word MinDay = {read=getminday, write=setminday, nodefault};
  495.     __property Word MinMonth = {read=getminMonth, write=setminMonth, nodefault};
  496.     __property Word MinYear = {read=getminYear, write=setminYear, nodefault};
  497.     __property Word MaxDay = {read=getmaxday, write=setmaxday, nodefault};
  498.     __property Word MaxMonth = {read=getmaxMonth, write=setmaxMonth, nodefault};
  499.     __property Word MaxYear = {read=getmaxYear, write=setmaxYear, nodefault};
  500.     __property int ImpliedCenturyStart = {read=fImpliedCenturyStart, write=fImpliedCenturyStart, nodefault
  501.         };
  502.     __property TDateDisplayFormat DisplayFormat = {read=fDisplayFormat, write=SetDisplayFormat, default=0
  503.         };
  504.     __property System::AnsiString DisplayFormatMask = {read=fDisplayFormatMask, write=SetDisplayFormatMask
  505.         , nodefault};
  506.     __property TDateEditFormat EditFormat = {read=fEditFormat, write=SetEditFormat, default=1};
  507.     __property System::AnsiString EditFormatMask = {read=fEditFormatMask, write=SetEditFormatMask, nodefault
  508.         };
  509.     __property Classes::TNotifyEvent OnDateChange = {read=FOnDateChange, write=FOnDateChange};
  510.     __property TMinMaxDateEvent OnMinmaxError = {read=fOnMinmaxError, write=fOnMinmaxError};
  511.     __property System::AnsiString MinMaxString = {read=fMinMaxString, write=fMinMaxString, nodefault};
  512.     __property System::TDateTime Min = {read=fmin, write=setmin};
  513.     __property System::TDateTime Max = {read=fmax, write=setmax};
  514.     __property TpvlTimeEdit* TimeEdit = {read=fTimeEdit, write=SetTimeEdit, nodefault};
  515.     
  516. public:
  517.     virtual void __fastcall doenter(void);
  518.     __fastcall virtual TPvlCustomDateEdit(Classes::TComponent* p0);
  519.     __fastcall virtual ~TPvlCustomDateEdit(void);
  520.     void __fastcall Display(bool p0);
  521.     __property System::TDateTime Date = {read=GetDate, write=SetDate};
  522.     __property Graphics::TFont* CalendarFont = {read=fCalFont, write=SetCalFont, nodefault};
  523.     __property Classes::TStrings* DayHeadings = {read=fDayHeadings, write=SetDayHeadings, nodefault};
  524.     __property System::AnsiString TodayHeading = {read=fTodayHeading, write=fTodayHeading, nodefault};
  525.     __property bool ShowTodayButton = {read=fShowTodayButton, write=fShowTodayButton, nodefault};
  526.     __property bool ShowYearButtons = {read=fShowYearButtons, write=fShowYearButtons, default=1};
  527.     __property System::AnsiString MonthHeading = {read=fMonthHeading, write=fMonthHeading, nodefault};
  528.     __property System::AnsiString YearHeading = {read=fYearHeading, write=fYearHeading, nodefault};
  529.     __property Pvldedit::TDayOfWeek StartOfWeek = {read=fStartOfWeek, write=fStartOfWeek, nodefault};
  530.     __property TMinMaxhandler MinMaxHandler = {read=fminmaxhandler, write=fminmaxhandler, nodefault};
  531.     __property Pvldedit::TPvlGridColors* CalendarColors = {read=FColors, write=FColors, nodefault};
  532.     __property Pvldedit::TpvlDaySet HighlightDays = {read=fHighLightDays, write=fHighLightDays, default=65
  533.         };
  534.     __property Pvldedit::TpvlDaySet InvalidDays = {read=fInvalidDays, write=fInvalidDays, nodefault};
  535. public:
  536.         
  537.     /* TWinControl.CreateParented */ __fastcall TPvlCustomDateEdit(HWND ParentWindow) : Edtool::TPvlCustomMoreEdit(
  538.         ParentWindow) { }
  539.     
  540. };
  541.  
  542. class __declspec(delphiclass) TpvlDateEdit;
  543. class __declspec(pascalimplementation) TpvlDateEdit : public TPvlCustomDateEdit
  544. {
  545.     typedef TPvlCustomDateEdit inherited;
  546.     
  547. public:
  548.     __property Min ;
  549.     __property Max ;
  550.     __property nulldate ;
  551.     
  552. __published:
  553.     __property TodayHeading ;
  554.     __property ShowTodayButton ;
  555.     __property ShowYearButtons ;
  556.     __property TimeEdit ;
  557.     __property UseNullDate ;
  558.     __property QuickChangeWrap ;
  559.     __property QuickChangeType ;
  560.     __property LoadDate ;
  561.     __property Day ;
  562.     __property Month ;
  563.     __property Year ;
  564.     __property NullDay ;
  565.     __property NullMonth ;
  566.     __property NullYear ;
  567.     __property MinDay ;
  568.     __property MinMonth ;
  569.     __property MinYear ;
  570.     __property MaxDay ;
  571.     __property MaxMonth ;
  572.     __property MaxYear ;
  573.     __property Glyph ;
  574.     __property BorderStyle ;
  575.     __property Color ;
  576.     __property Ctl3D ;
  577.     __property DragCursor ;
  578.     __property DragMode ;
  579.     __property Enabled ;
  580.     __property Font ;
  581.     __property OEMConvert ;
  582.     __property ImpliedCenturyStart ;
  583.     __property ParentColor ;
  584.     __property ParentCtl3D ;
  585.     __property ParentFont ;
  586.     __property ParentShowHint ;
  587.     __property CalendarFont ;
  588.     __property PopupMenu ;
  589.     __property ReadOnly ;
  590.     __property ShowHint ;
  591.     __property SubAlign ;
  592.     __property TabOrder ;
  593.     __property TabStop ;
  594.     __property Visible ;
  595.     __property OnChange ;
  596.     __property OnClick ;
  597.     __property OnDblClick ;
  598.     __property OnDragDrop ;
  599.     __property OnDragOver ;
  600.     __property OnEndDrag ;
  601.     __property OnEnter ;
  602.     __property OnExit ;
  603.     __property DisplayFormat ;
  604.     __property DisplayFormatMask ;
  605.     __property EditFormat ;
  606.     __property EditFormatMask ;
  607.     __property OnDateChange ;
  608.     __property DayHeadings ;
  609.     __property MonthHeading ;
  610.     __property YearHeading ;
  611.     __property StartOfWeek ;
  612.     __property MinMaxHandler ;
  613.     __property OnMinmaxError ;
  614.     __property MinMaxString ;
  615.     __property CalendarColors ;
  616.     __property HighlightDays ;
  617.     __property InvalidDays ;
  618.     __property OnWantForm ;
  619. public:
  620.     /* TPvlCustomDateEdit.Create */ __fastcall virtual TpvlDateEdit(Classes::TComponent* p0) : Edtool::
  621.         TPvlCustomDateEdit(p0) { }
  622.     /* TPvlCustomDateEdit.Destroy */ __fastcall virtual ~TpvlDateEdit(void) { }
  623.     
  624. public:
  625.     /* TWinControl.CreateParented */ __fastcall TpvlDateEdit(HWND ParentWindow) : Edtool::TPvlCustomDateEdit(
  626.         ParentWindow) { }
  627.     
  628. };
  629.  
  630. typedef void __fastcall (__closure *TMinMaxEvent)(System::TObject* Sender, Extended Newvalue, Extended 
  631.     min, Extended max, Extended &Value);
  632.  
  633. enum TCalcAlignment { caLeft, caRight, caMixed };
  634.  
  635. enum TCalcDisplayFormat { cfnumber, cfCustom };
  636.  
  637. class __declspec(delphiclass) TPvlCustomCalcEdit;
  638. class __declspec(pascalimplementation) TPvlCustomCalcEdit : public TPvlCustomMoreEdit
  639. {
  640.     typedef TPvlCustomMoreEdit inherited;
  641.     
  642. private:
  643.     TAlignment FAlign;
  644.     TCalcAlignment FAlignment;
  645.     TMinMaxhandler fminmaxhandler;
  646.     TMinMaxEvent fOnMinmaxError;
  647.     System::AnsiString fMinMaxString;
  648.     Extended fmin;
  649.     Extended fmax;
  650.     Extended fvalue;
  651.     Byte fdec;
  652.     Classes::TNotifyEvent FOnDoneValue;
  653.     TCalcDisplayFormat foldDisplayFormat;
  654.     TCalcDisplayFormat fDisplayFormat;
  655.     System::AnsiString fDisplayFormatMask;
  656.     bool fdoneenter;
  657.     
  658. protected:
  659.     HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &EdTool_);
  660.     virtual void __fastcall loaded(void);
  661.     void __fastcall SetCalcAlign(TCalcAlignment p0);
  662.     void __fastcall SetAlignment(Classes::TAlignment p0);
  663.     virtual void __fastcall WantForm(void);
  664.     Extended __fastcall GetValue(void);
  665.     void __fastcall SetValue(Extended p0);
  666.     void __fastcall SetDec(Byte p0);
  667.     virtual void __fastcall KeyDown(Word &p0, Classes::TShiftState p1);
  668.     virtual void __fastcall KeyPress(char &p0);
  669.     HIDESBASE void __fastcall settext(const System::AnsiString p0);
  670.     Extended __fastcall checkbounds(Extended p0);
  671.     HIDESBASE System::AnsiString __fastcall gettext(void);
  672.     __property System::AnsiString text = {read=gettext, write=settext, nodefault};
  673.     void __fastcall setmin(Extended p0);
  674.     void __fastcall setmax(Extended p0);
  675.     virtual void __fastcall releasesubform(void);
  676.     virtual void __fastcall Donevalue(void);
  677.     void __fastcall SetDisplayFormat(TCalcDisplayFormat p0);
  678.     void __fastcall SetDisplayFormatMask( System::AnsiString p0);
  679.     __property Extended Min = {read=fmin, write=setmin};
  680.     __property Extended Max = {read=fmax, write=setmax};
  681.     __property Classes::TNotifyEvent OnDoneValue = {read=FOnDoneValue, write=FOnDoneValue};
  682.     __property TMinMaxhandler MinMaxHandler = {read=fminmaxhandler, write=fminmaxhandler, nodefault};
  683.     __property TMinMaxEvent OnMinmaxError = {read=fOnMinmaxError, write=fOnMinmaxError};
  684.     __property System::AnsiString MinMaxString = {read=fMinMaxString, write=fMinMaxString, nodefault};
  685.     virtual void __fastcall CreateParams(Controls::TCreateParams &EdTool_);
  686.     __property Classes::TAlignment CalcAlign = {read=FAlign, write=SetAlignment, nodefault};
  687.     
  688. public:
  689.     __property TCalcDisplayFormat DisplayFormat = {read=fDisplayFormat, write=SetDisplayFormat, default=0
  690.         };
  691.     __property System::AnsiString DisplayFormatMask = {read=fDisplayFormatMask, write=SetDisplayFormatMask
  692.         , nodefault};
  693.     __property TCalcAlignment Alignment = {read=FAlignment, write=SetCalcAlign, default=2};
  694.     __property Byte Decimals = {read=fdec, write=SetDec, default=2};
  695.     __property Extended Value = {read=GetValue, write=SetValue};
  696.     __property MaxLength ;
  697.     virtual void __fastcall change(void);
  698.     void __fastcall Display(bool p0);
  699.     __fastcall virtual TPvlCustomCalcEdit(Classes::TComponent* p0);
  700.     __fastcall virtual ~TPvlCustomCalcEdit(void);
  701.     virtual void __fastcall DoExit(void);
  702.     virtual void __fastcall DoEnter(void);
  703. public:
  704.     /* TWinControl.CreateParented */ __fastcall TPvlCustomCalcEdit(HWND ParentWindow) : Edtool::TPvlCustomMoreEdit(
  705.         ParentWindow) { }
  706.     
  707. };
  708.  
  709. class __declspec(delphiclass) TpvlCalcEdit;
  710. class __declspec(pascalimplementation) TpvlCalcEdit : public TPvlCustomCalcEdit
  711. {
  712.     typedef TPvlCustomCalcEdit inherited;
  713.     
  714. __published:
  715.     __property Alignment ;
  716.     __property AutoSelect ;
  717.     __property Glyph ;
  718.     __property MaxLength ;
  719.     __property Decimals ;
  720.     __property BorderStyle ;
  721.     __property CharCase ;
  722.     __property Color ;
  723.     __property Ctl3D ;
  724.     __property DisplayFormat ;
  725.     __property DisplayFormatMask ;
  726.     __property DragMode ;
  727.     __property Enabled ;
  728.     __property Font ;
  729.     __property OEMConvert ;
  730.     __property ParentColor ;
  731.     __property ParentCtl3D ;
  732.     __property ParentFont ;
  733.     __property ParentShowHint ;
  734.     __property PopupMenu ;
  735.     __property ReadOnly ;
  736.     __property SubAlign ;
  737.     __property ShowHint ;
  738.     __property TabOrder ;
  739.     __property TabStop ;
  740.     __property Visible ;
  741.     __property OnChange ;
  742.     __property OnClick ;
  743.     __property OnDblClick ;
  744.     __property OnDragDrop ;
  745.     __property OnDragOver ;
  746.     __property OnEndDrag ;
  747.     __property OnEnter ;
  748.     __property OnExit ;
  749.     __property OnRButtonClick ;
  750.     __property Value ;
  751.     __property Min ;
  752.     __property Max ;
  753.     __property OnDoneValue ;
  754.     __property MinMaxHandler ;
  755.     __property OnMinmaxError ;
  756.     __property MinMaxString ;
  757.     __property OnWantForm ;
  758. public:
  759.     /* TPvlCustomCalcEdit.Create */ __fastcall virtual TpvlCalcEdit(Classes::TComponent* p0) : Edtool::
  760.         TPvlCustomCalcEdit(p0) { }
  761.     /* TPvlCustomCalcEdit.Destroy */ __fastcall virtual ~TpvlCalcEdit(void) { }
  762.     
  763. public:
  764.     /* TWinControl.CreateParented */ __fastcall TpvlCalcEdit(HWND ParentWindow) : Edtool::TPvlCustomCalcEdit(
  765.         ParentWindow) { }
  766.     
  767. };
  768.  
  769. //-- var, const, procedure ---------------------------------------------------
  770. #define AboutStr "Edtool Ver 2.22, Copyright (c) 1996/98 P van Lonkhuyzen"
  771. extern void __fastcall Register(void);
  772. //-- template instantiations -------------------------------------------------
  773. template class Pvldedit::TpvlDaySet ;
  774.  
  775. }    /* namespace Edtool */
  776. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  777. using namespace Edtool;
  778. #endif
  779. //-- end unit ----------------------------------------------------------------
  780. #endif    // EdTool
  781.