todolist.hpp

TMS component pack v4.2 for delphi

class PASCALIMPLEMENTATION TInplaceODListBox : public TInplaceListBox 
{
	typedef TInplaceListBox inherited;
	
private:
	Controls::TImageList* FImageList;
	TTodoListBox* FTodoList;
	
protected:
	virtual void __fastcall DrawItem(int Index, const Types::TRect &Rect, Windows::TOwnerDrawState State);
	
public:
	__fastcall virtual TInplaceODListBox(Classes::TComponent* AOwner);
	
__published:
	__property Controls::TImageList* ImageList = {read=FImageList, write=FImageList};
public:
	#pragma option push -w-inl
	/* TCustomListBox.Destroy */ inline __fastcall virtual ~TInplaceODListBox(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TInplaceODListBox(HWND ParentWindow) : TInplaceListBox(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TCustomTodoList;
class DELPHICLASS TTodoHeader;
#pragma option push -b-
enum TVAlignment { vtaCenter, vtaTop, vtaBottom };
#pragma option pop

#pragma option push -b-
enum TImagePosition { ipLeft, ipRight };
#pragma option pop

typedef void __fastcall (__closure *THeaderClickEvent)(System::TObject* Sender, int SectionIndex);

typedef void __fastcall (__closure *THeaderDragDropEvent)(System::TObject* Sender, int FromSection, int ToSection);

#pragma option push -b-
enum THeaderOrientation { hoHorizontal, hoVertical };
#pragma option pop

class PASCALIMPLEMENTATION TTodoHeader : public Extctrls::THeader 
{
	typedef Extctrls::THeader inherited;
	
private:
	int FOffset;
	int FLeftPos;
	Classes::TAlignment FAlignment;
	TVAlignment FVAlignment;
	Graphics::TColor FColor;
	Graphics::TColor FLineColor;
	bool FFlat;
	Controls::TImageList* FImageList;
	Stdctrls::TMemo* FInplaceEdit;
	TImagePosition FImagePosition;
	THeaderClickEvent FOnClick;
	THeaderClickEvent FOnRightClick;
	THeaderDragDropEvent FOnDragDrop;
	THeaderOrientation FOrientation;
	bool FSectionDragDrop;
	bool FDragging;
	int FDragStart;
	int FEditSection;
	int FEditWidth;
	THeaderClickEvent FOnSectionEditEnd;
	THeaderClickEvent FOnSectionEditStart;
	bool FSectionEdit;
	int FItemHeight;
	int FTextHeight;
	int FSortedSection;
	TSortDirection FSortDirection;
	bool FSortShow;
	TCustomTodoList* FOwner;
	int FHScroll;
	Graphics::TColor FColorTo;
	Graphics::TColor FActiveColorTo;
	Graphics::TColor FActiveColor;
	int FActiveColumn;
	void __fastcall SetAlignment(const Classes::TAlignment Value);
	HIDESBASE void __fastcall SetColor(const Graphics::TColor Value);
	void __fastcall SetImageList(const Controls::TImageList* Value);
	void __fastcall SetImagePosition(const TImagePosition Value);
	HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall WMLButtonUp(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall WMRButtonDown(Messages::TWMMouse &Message);
	void __fastcall SetOrientation(const THeaderOrientation Value);
	void __fastcall SetFlat(const bool Value);
	void __fastcall SetLineColor(const Graphics::TColor Value);
	void __fastcall SetVAlignment(const TVAlignment Value);
	void __fastcall InplaceExit(System::TObject* Sender);
	void __fastcall SetItemHeight(const int Value);
	void __fastcall SetTextHeight(const int Value);
	void __fastcall SetSortDirection(const TSortDirection Value);
	void __fastcall SetSortedSection(const int Value);
	void __fastcall DrawSortIndicator(Graphics::TCanvas* Canvas, int X, int Y);
	void __fastcall OwnOnDragDrop(System::TObject* Sender, int FromSection, int ToSection);
	void __fastcall SetColorTo(const Graphics::TColor Value);
	void __fastcall SetActiveColor(const Graphics::TColor Value);
	void __fastcall SetActiveColorTo(const Graphics::TColor Value);
	void __fastcall SetActiveColumn(const int Value);
	
public:
	__fastcall virtual TTodoHeader(Classes::TComponent* AOwner);
	__fastcall virtual ~TTodoHeader(void);
	
protected:
	int __fastcall XYToSection(int X, int Y);
	Types::TRect __fastcall GetSectionRect(int X);
	virtual void __fastcall Paint(void);
	void __fastcall HorizontalScroll(int X);
	
__published:
	__property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, nodefault};
	__property int ActiveColumn = {read=FActiveColumn, write=SetActiveColumn, nodefault};
	__property Graphics::TColor ActiveColor = {read=FActiveColor, write=SetActiveColor, nodefault};
	__property Graphics::TColor ActiveColorTo = {read=FActiveColorTo, write=SetActiveColorTo, nodefault};
	__property Graphics::TColor Color = {read=FColor, write=SetColor, nodefault};
	__property Graphics::TColor ColorTo = {read=FColorTo, write=SetColorTo, nodefault};
	__property bool Flat = {read=FFlat, write=SetFlat, nodefault};
	__property Controls::TImageList* Images = {read=FImageList, write=SetImageList};
	__property TImagePosition ImagePosition = {read=FImagePosition, write=SetImagePosition, nodefault};
	__property int ItemHeight = {read=FItemHeight, write=SetItemHeight, nodefault};
	__property int TextHeight = {read=FTextHeight, write=SetTextHeight, nodefault};
	__property Graphics::TColor LineColor = {read=FLineColor, write=SetLineColor, nodefault};
	__property bool SectionDragDrop = {read=FSectionDragDrop, write=FSectionDragDrop, nodefault};
	__property bool SectionEdit = {read=FSectionEdit, write=FSectionEdit, nodefault};
	__property int SortedSection = {read=FSortedSection, write=SetSortedSection, nodefault};
	__property TSortDirection SortDirection = {read=FSortDirection, write=SetSortDirection, nodefault};
	__property bool SortShow = {read=FSortShow, write=FSortShow, nodefault};
	__property TVAlignment VAlignment = {read=FVAlignment, write=SetVAlignment, nodefault};
	__property THeaderOrientation Orientation = {read=FOrientation, write=SetOrientation, default=0};
	__property THeaderClickEvent OnClick = {read=FOnClick, write=FOnClick};
	__property THeaderDragDropEvent OnDragDrop = {read=FOnDragDrop, write=FOnDragDrop};
	__property THeaderClickEvent OnRightClick = {read=FOnRightClick, write=FOnRightClick};
	__property THeaderClickEvent OnSectionEditStart = {read=FOnSectionEditStart, write=FOnSectionEditStart};
	__property THeaderClickEvent OnSectionEditEnd = {read=FOnSectionEditEnd, write=FOnSectionEditEnd};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TTodoHeader(HWND ParentWindow) : Extctrls::THeader(ParentWindow) { }
	#pragma option pop
	
};


typedef void __fastcall (__closure *TPriorityToStringEvent)(System::TObject* Sender, TTodoPriority AValue, AnsiString &AString);

typedef void __fastcall (__closure *TStatusToStringEvent)(System::TObject* Sender, TTodoStatus AValue, AnsiString &AString);

typedef void __fastcall (__closure *TStringToPriorityEvent)(System::TObject* Sender, AnsiString AString, TTodoPriority &AValue);

typedef void __fastcall (__closure *TStringToStatusEvent)(System::TObject* Sender, AnsiString AString, TTodoStatus &AValue);

class DELPHICLASS TStatusStrings;
class PASCALIMPLEMENTATION TStatusStrings : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
public:
	AnsiString operator[](TTodoStatus Index) { return Items[Index]; }
	
private:
	TCustomTodoList* FOwner;
	AnsiString FStatusStrings[4];
	AnsiString __fastcall GetStringD();
	void __fastcall SetStringD(const AnsiString Value);
	AnsiString __fastcall GetStringC();
	void __fastcall SetStringC(const AnsiString Value);
	AnsiString __fastcall GetStringI();
	void __fastcall SetStringI(const AnsiString Value);
	AnsiString __fastcall GetStringN();
	void __fastcall SetStringN(const AnsiString Value);
	AnsiString __fastcall GetString(TTodoStatus Index);
	void __fastcall SetString(TTodoStatus Index, const AnsiString Value);
	
protected:
	__property TCustomTodoList* Owner = {read=FOwner};
	
public:
	__fastcall TStatusStrings(TCustomTodoList* AOwner);
	__property AnsiString Items[TTodoStatus Index] = {read=GetString, write=SetString/*, default*/};
	
__published:
	__property AnsiString Deferred = {read=GetStringD, write=SetStringD};
	__property AnsiString NotStarted = {read=GetStringN, write=SetStringN};
	__property AnsiString Completed = {read=GetStringC, write=SetStringC};
	__property AnsiString InProgress = {read=GetStringI, write=SetStringI};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TStatusStrings(void) { }
	#pragma option pop
	
};


class DELPHICLASS TPriorityStrings;
class PASCALIMPLEMENTATION TPriorityStrings : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
public:
	AnsiString operator[](TTodoPriority Index) { return Items[Index]; }
	
private:
	TCustomTodoList* FOwner;
	AnsiString FPriorityStrings[5];
	AnsiString __fastcall GetStringH();
	AnsiString __fastcall GetStringHS();
	AnsiString __fastcall GetStringL();
	AnsiString __fastcall GetStringLS();
	AnsiString __fastcall GetStringN();
	void __fastcall SetStringH(const AnsiString Value);
	void __fastcall SetStringHS(const AnsiString Value);
	void __fastcall SetStringL(const AnsiString Value);
	void __fastcall SetStringLS(const AnsiString Value);
	void __fastcall SetStringN(const AnsiString Value);
	AnsiString __fastcall GetString(TTodoPriority Index);
	void __fastcall SetString(TTodoPriority Index, const AnsiString Value);
	
protected:
	__property TCustomTodoList* Owner = {read=FOwner};
	
public:
	__fastcall TPriorityStrings(TCustomTodoList* AOwner);
	__property AnsiString Items[TTodoPriority Index] = {read=GetString, write=SetString/*, default*/};
	
__published:
	__property AnsiString Lowest = {read=GetStringLS, write=SetStringLS};
	__property AnsiString Low = {read=GetStringL, write=SetStringL};
	__property AnsiString Normal = {read=GetStringN, write=SetStringN};
	__property AnsiString High = {read=GetStringH, write=SetStringH};
	__property AnsiString Highest = {read=GetStringHS, write=SetStringHS};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TPriorityStrings(void) { }
	#pragma option pop
	
};


class DELPHICLASS TEditColors;
class DELPHICLASS TBackForeColors;
class PASCALIMPLEMENTATION TBackForeColors : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Controls::TWinControl* FColorControl;
	TEditColors* FOwner;
	void __fastcall SetFontColor(const Graphics::TColor Value);
	void __fastcall SetBackColor(const Graphics::TColor Value);
	Graphics::TColor __fastcall GetBackColor(void);
	Graphics::TColor __fastcall GetFontColor(void);
	
public:
	__fastcall TBackForeColors(TEditColors* AOwner, Controls::TWinControl* AColorControl);
	__property Controls::TWinControl* ColorControl = {read=FColorControl, write=FColorControl};
	__property TEditColors* Owner = {read=FOwner};
	
__published:
	__property Graphics::TColor FontColor = {read=GetFontColor, write=SetFontColor, nodefault};
	__property Graphics::TColor BackColor = {read=GetBackColor, write=SetBackColor, nodefault};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TBackForeColors(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDatePickerColors;
class PASCALIMPLEMENTATION TDatePickerColors : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TEditColors* FOwner;
	TTodoDateTimePicker* FColorControl;
	Graphics::TColor __fastcall GetBackColor(void);
	Graphics::TColor __fastcall GetFontColor(void);