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