todolist.hpp

TMS component pack v4.2 for delphi

	void __fastcall SetImageIndex(const int value);
	void __fastcall StringsChanged(System::TObject* sender);
	void __fastcall SetCompletion(const TCompletion Value);
	void __fastcall SetDueDate(const System::TDateTime Value);
	void __fastcall SetNotes(const Classes::TStringList* Value);
	void __fastcall SetPriority(const TTodoPriority Value);
	void __fastcall SetStatus(const TTodoStatus Value);
	void __fastcall SetSubject(const AnsiString Value);
	void __fastcall SetTotalTime(const double Value);
	void __fastcall SetComplete(const bool Value);
	void __fastcall SetCompletionDate(const System::TDateTime Value);
	void __fastcall SetCreationDate(const System::TDateTime Value);
	void __fastcall SetResource(const AnsiString Value);
	AnsiString __fastcall GetNotesLine();
	void __fastcall SetProject(const AnsiString Value);
	void __fastcall SetCategory(const AnsiString Value);
	
protected:
	virtual AnsiString __fastcall GetDisplayName();
	
public:
	__fastcall virtual TTodoItem(Classes::TCollection* Collection);
	__fastcall virtual ~TTodoItem(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	HIDESBASE virtual void __fastcall Changed(void);
	void __fastcall Select(void);
	void __fastcall SaveToStream(Classes::TStream* S);
	void __fastcall LoadFromStream(Classes::TStream* S);
	__property AnsiString DBKey = {read=FDBKey, write=FDBKey};
	__property AnsiString NotesLine = {read=GetNotesLine};
	
__published:
	__property AnsiString Category = {read=FCategory, write=SetCategory};
	__property bool Complete = {read=FComplete, write=SetComplete, nodefault};
	__property TCompletion Completion = {read=FCompletion, write=SetCompletion, nodefault};
	__property System::TDateTime CompletionDate = {read=FCompletionDate, write=SetCompletionDate};
	__property System::TDateTime CreationDate = {read=FCreationDate, write=SetCreationDate};
	__property System::TDateTime DueDate = {read=FDueDate, write=SetDueDate};
	__property int ImageIndex = {read=FImageIndex, write=SetImageIndex, nodefault};
	__property Classes::TStringList* Notes = {read=FNotes, write=SetNotes};
	__property TTodoPriority Priority = {read=FPriority, write=SetPriority, nodefault};
	__property AnsiString Project = {read=FProject, write=SetProject};
	__property AnsiString Resource = {read=FResource, write=SetResource};
	__property TTodoStatus Status = {read=FStatus, write=SetStatus, nodefault};
	__property AnsiString Subject = {read=FSubject, write=SetSubject};
	__property int Tag = {read=FTag, write=FTag, nodefault};
	__property double TotalTime = {read=FTotalTime, write=SetTotalTime};
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
};


class DELPHICLASS TInplaceEdit;
class PASCALIMPLEMENTATION TInplaceEdit : public Stdctrls::TEdit 
{
	typedef Stdctrls::TEdit inherited;
	
private:
	AnsiString FOldText;
	TTodoListBox* FTodoList;
	bool FNumericOnly;
	HIDESBASE AnsiString __fastcall GetText();
	HIDESBASE void __fastcall SetText(const AnsiString Value);
	
protected:
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
	DYNAMIC void __fastcall KeyPress(char &Key);
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	
public:
	__fastcall virtual TInplaceEdit(Classes::TComponent* AOwner);
	__property bool NumericOnly = {read=FNumericOnly, write=FNumericOnly, nodefault};
	
__published:
	__property AnsiString Text = {read=GetText, write=SetText};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TInplaceEdit(HWND ParentWindow) : Stdctrls::TEdit(ParentWindow) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TWinControl.Destroy */ inline __fastcall virtual ~TInplaceEdit(void) { }
	#pragma option pop
	
};


class DELPHICLASS TInplaceMemo;
class PASCALIMPLEMENTATION TInplaceMemo : public Stdctrls::TMemo 
{
	typedef Stdctrls::TMemo inherited;
	
private:
	Classes::TStringList* FOldText;
	TTodoListBox* FTodoList;
	MESSAGE void __fastcall CMWantSpecialKey(Messages::TWMKey &Msg);
	
protected:
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
	DYNAMIC void __fastcall KeyPress(char &Key);
	
public:
	__fastcall virtual TInplaceMemo(Classes::TComponent* AOwner);
	__fastcall virtual ~TInplaceMemo(void);
	
__published:
	__property Classes::TStringList* OrigLines = {read=FOldText};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TInplaceMemo(HWND ParentWindow) : Stdctrls::TMemo(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TInplaceSpinEdit;
class PASCALIMPLEMENTATION TInplaceSpinEdit : public Spin::TSpinEdit 
{
	typedef Spin::TSpinEdit inherited;
	
private:
	TTodoListBox* FTodoList;
	HIDESBASE MESSAGE void __fastcall WMKeyDown(Messages::TWMKey &Msg);
	HIDESBASE MESSAGE void __fastcall WMChar(Messages::TWMKey &Msg);
	
public:
	__fastcall virtual TInplaceSpinEdit(Classes::TComponent* AOwner);
public:
	#pragma option push -w-inl
	/* TSpinEdit.Destroy */ inline __fastcall virtual ~TInplaceSpinEdit(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TInplaceSpinEdit(HWND ParentWindow) : Spin::TSpinEdit(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TInplaceFloatSpinEdit;
class DELPHICLASS TSpinSpeedButtons;
class DELPHICLASS TTimerSpinButton;
#pragma option push -b-
enum TodoList__51 { tbFocusRect, tbAllowTimer };
#pragma option pop

typedef Set<TodoList__51, tbFocusRect, tbAllowTimer>  TTimeSpinBtnState;

class PASCALIMPLEMENTATION TTimerSpinButton : public Buttons::TSpeedButton 
{
	typedef Buttons::TSpeedButton inherited;
	
private:
	Extctrls::TTimer* FRepeatTimer;
	TTimeSpinBtnState FTimeBtnState;
	bool FHasMouse;
	void __fastcall TimerExpired(System::TObject* Sender);
	HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message);
	
protected:
	virtual void __fastcall Paint(void);
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	
public:
	__fastcall virtual TTimerSpinButton(Classes::TComponent* AOwner);
	__fastcall virtual ~TTimerSpinButton(void);
	__property TTimeSpinBtnState TimeBtnState = {read=FTimeBtnState, write=FTimeBtnState, nodefault};
};


class PASCALIMPLEMENTATION TSpinSpeedButtons : public Controls::TWinControl 
{
	typedef Controls::TWinControl inherited;
	
private:
	TTimerSpinButton* FUpButton;
	TTimerSpinButton* FDownButton;
	Classes::TNotifyEvent FOnUpBtnClick;
	Classes::TNotifyEvent FOnDownBtnClick;
	HIDESBASE void __fastcall AdjustSize(int &W, int &H);
	HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
	void __fastcall UpBtnClick(System::TObject* Sender);
	void __fastcall DownBtnClick(System::TObject* Sender);
	
public:
	__fastcall virtual TSpinSpeedButtons(Classes::TComponent* aOwner);
	virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
	
__published:
	__property Classes::TNotifyEvent OnUpBtnClick = {read=FOnUpBtnClick, write=FOnUpBtnClick};
	__property Classes::TNotifyEvent OnDownBtnClick = {read=FOnDownBtnClick, write=FOnDownBtnClick};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TSpinSpeedButtons(HWND ParentWindow) : Controls::TWinControl(ParentWindow) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TWinControl.Destroy */ inline __fastcall virtual ~TSpinSpeedButtons(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TInplaceFloatSpinEdit : public Mask::TCustomMaskEdit 
{
	typedef Mask::TCustomMaskEdit inherited;
	
private:
	TTodoListBox* FTodoList;
	TSpinSpeedButtons* FUpDownBtns;
	int FPrecision;
	double FIncrementFloat;
	char FDecSep;
	HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
	HIDESBASE MESSAGE void __fastcall WMKeyDown(Messages::TWMKey &Msg);
	HIDESBASE MESSAGE void __fastcall WMChar(Messages::TWMKey &Msg);
	void __fastcall SetEditRect(void);
	void __fastcall SetPrecision(const int Value);
	double __fastcall GetFloatValue(void);
	void __fastcall SetFloatValue(const double Value);
	void __fastcall UpClick(System::TObject* Sender);
	void __fastcall DownClick(System::TObject* Sender);
	
protected:
	DYNAMIC void __fastcall KeyPress(char &Key);
	bool __fastcall IsValidChar(char &Key);
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	virtual void __fastcall CreateWnd(void);
	
public:
	__fastcall virtual TInplaceFloatSpinEdit(Classes::TComponent* AOwner);
	__fastcall virtual ~TInplaceFloatSpinEdit(void);
	
__published:
	__property int Precision = {read=FPrecision, write=SetPrecision, nodefault};
	__property double FloatValue = {read=GetFloatValue, write=SetFloatValue};
	__property double IncrementFloat = {read=FIncrementFloat, write=FIncrementFloat};
	__property char DecSep = {read=FDecSep, write=FDecSep, nodefault};
	__property OnExit ;
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TInplaceFloatSpinEdit(HWND ParentWindow) : Mask::TCustomMaskEdit(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TInplaceODListBox;
class DELPHICLASS TInplaceListBox;
class PASCALIMPLEMENTATION TInplaceListBox : public Stdctrls::TListBox 
{
	typedef Stdctrls::TListBox inherited;
	
private:
	int FOldItemIndex;
	Classes::TNotifyEvent FOnSelected;
	bool FMouseDown;
	TTodoListBox* FTodoList;
	int __fastcall GetItemIndexEx(void);
	void __fastcall SetItemIndexEx(const int Value);
	MESSAGE void __fastcall CMWantSpecialKey(Messages::TWMKey &Msg);
	
protected:
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall KeyPress(char &Key);
	
public:
	__fastcall virtual TInplaceListBox(Classes::TComponent* AOwner);
	
__published:
	__property Classes::TNotifyEvent OnSelected = {read=FOnSelected, write=FOnSelected};
	__property int ItemIndex = {read=GetItemIndexEx, write=SetItemIndexEx, nodefault};
public:
	#pragma option push -w-inl
	/* TCustomListBox.Destroy */ inline __fastcall virtual ~TInplaceListBox(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TInplaceListBox(HWND ParentWindow) : Stdctrls::TListBox(ParentWindow) { }
	#pragma option pop
	
};