advcardlist.hpp

TMS component pack v4.2 for delphi

	System::TDateTime FTime;
	Graphics::TPicture* FPicture;
	void __fastcall DoChangeValue(void);
	bool __fastcall GetBoolean(void);
	AnsiString __fastcall GetString();
	double __fastcall GetFloat(void);
	int __fastcall GetInteger(void);
	System::TDateTime __fastcall GetDate(void);
	System::TDateTime __fastcall GetTime(void);
	void __fastcall SetBoolean(bool Value);
	void __fastcall SetSelected(bool Value);
	void __fastcall SetString(AnsiString Value);
	void __fastcall SetFloat(double Value);
	void __fastcall SetInteger(int Value);
	void __fastcall SetDate(System::TDateTime Value);
	void __fastcall SetTime(System::TDateTime Value);
	void __fastcall SetPicture(Graphics::TPicture* Value);
	void __fastcall PictureChange(System::TObject* Sender);
	
protected:
	TAdvCardItemDataType DataType;
	AnsiString Format;
	AnsiString FName;
	#pragma pack(push,1)
	Types::TRect FLabelClientRect;
	#pragma pack(pop)
	#pragma pack(push,1)
	Types::TRect FLabelCardRect;
	#pragma pack(pop)
	#pragma pack(push,1)
	Types::TRect FLabelListRect;
	#pragma pack(pop)
	#pragma pack(push,1)
	Types::TRect FValueClientRect;
	#pragma pack(pop)
	#pragma pack(push,1)
	Types::TRect FValueCardRect;
	#pragma pack(pop)
	#pragma pack(push,1)
	Types::TRect FValueListRect;
	#pragma pack(pop)
	#pragma pack(push,1)
	Types::TRect FUnitedListRect;
	#pragma pack(pop)
	
public:
	AnsiString Hint;
	System::TObject* Obj;
	bool OwnsObject;
	int Tag;
	__fastcall virtual TAdvCardItem(Classes::TCollection* Collection);
	__fastcall virtual ~TAdvCardItem(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property bool AsBoolean = {read=GetBoolean, write=SetBoolean, nodefault};
	__property AnsiString AsString = {read=GetString, write=SetString};
	__property double AsFloat = {read=GetFloat, write=SetFloat};
	__property int AsInteger = {read=GetInteger, write=SetInteger, nodefault};
	__property System::TDateTime AsDate = {read=GetDate, write=SetDate};
	__property System::TDateTime AsTime = {read=GetTime, write=SetTime};
	__property Graphics::TPicture* Picture = {read=FPicture, write=SetPicture};
	__property bool Hided = {read=FHided, nodefault};
	__property AnsiString Name = {read=FName};
	__property bool Selected = {read=FSelected, write=SetSelected, nodefault};
};


class DELPHICLASS TAdvCardItemList;
class DELPHICLASS TAdvCard;
class PASCALIMPLEMENTATION TAdvCard : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
private:
	TAdvCardAppearance* FAppearance;
	AnsiString FCaption;
	int FColumn;
	bool FEditing;
	bool FFiltered;
	AnsiString FHint;
	TAdvCardItemList* FItemList;
	bool FMouseOver;
	bool FSelected;
	int FSelectedItem;
	int FImageIndex;
	int FTag;
	bool FVisible;
	void __fastcall DoCardChange(void);
	void __fastcall DoSelectChanged(int OldSelected);
	void __fastcall SetCaption(AnsiString Value);
	void __fastcall SetSelected(bool Value);
	void __fastcall SetSelectedItem(int Value);
	void __fastcall SetVisible(bool Value);
	void __fastcall SetItemList(TAdvCardItemList* Value);
	
protected:
	#pragma pack(push,1)
	Types::TRect FCaptionClientRect;
	#pragma pack(pop)
	#pragma pack(push,1)
	Types::TRect FCaptionCardRect;
	#pragma pack(pop)
	#pragma pack(push,1)
	Types::TRect FCaptionListRect;
	#pragma pack(pop)
	#pragma pack(push,1)
	Types::TRect FClientRect;
	#pragma pack(pop)
	#pragma pack(push,1)
	Types::TRect FListRect;
	#pragma pack(pop)
	int FHeight;
	
public:
	__fastcall virtual TAdvCard(Classes::TCollection* Collection);
	__fastcall virtual ~TAdvCard(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property TAdvCardAppearance* Appearance = {read=FAppearance};
	__property AnsiString Caption = {read=FCaption, write=SetCaption};
	__property int Column = {read=FColumn, nodefault};
	__property bool Editing = {read=FEditing, nodefault};
	__property bool Filtered = {read=FFiltered, nodefault};
	__property int ImageIndex = {read=FImageIndex, write=FImageIndex, default=-1};
	__property bool Selected = {read=FSelected, write=SetSelected, nodefault};
	__property int SelectedItem = {read=FSelectedItem, write=SetSelectedItem, nodefault};
	__property AnsiString Hint = {read=FHint, write=FHint};
	__property TAdvCardItemList* ItemList = {read=FItemList, write=SetItemList};
	__property int Tag = {read=FTag, write=FTag, nodefault};
	__property bool Visible = {read=FVisible, write=SetVisible, nodefault};
};


class PASCALIMPLEMENTATION TAdvCardItemList : public Classes::TCollection 
{
	typedef Classes::TCollection inherited;
	
public:
	TAdvCardItem* operator[](int Index) { return Items[Index]; }
	
private:
	TAdvCard* FCard;
	HIDESBASE TAdvCardItem* __fastcall GetItem(int Index);
	HIDESBASE void __fastcall SetItem(int Index, TAdvCardItem* Value);
	
protected:
	bool AllowListModification;
	
public:
	__fastcall TAdvCardItemList(TMetaClass* ItemClass);
	__fastcall virtual ~TAdvCardItemList(void);
	HIDESBASE TAdvCardItem* __fastcall Add(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	virtual void __fastcall BeginUpdate(void);
	HIDESBASE void __fastcall Clear(void);
	HIDESBASE void __fastcall Delete(int Index);
	virtual void __fastcall EndUpdate(void);
	HIDESBASE TAdvCardItem* __fastcall Insert(int Index);
	TAdvCardItem* __fastcall GetItemByName(AnsiString Name);
	__property TAdvCardItem* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
	__property TAdvCard* Card = {read=FCard};
};


typedef void __fastcall (__closure *TAdvCardEvent)(System::TObject* Sender, TAdvCard* Card);

typedef void __fastcall (__closure *TAdvCardCompareEvent)(System::TObject* Sender, TAdvCard* CardA, TAdvCard* CardB, int &res);

class PASCALIMPLEMENTATION TAdvCards : public Classes::TCollection 
{
	typedef Classes::TCollection inherited;
	
public:
	TAdvCard* operator[](int Index) { return Items[Index]; }
	
private:
	TCustomAdvCardList* FCardList;
	bool FUpdateSelected;
	TAdvCardEvent FOnCardAdd;
	TAdvCardEvent FOnBeforCardDelete;
	TAdvCardEvent FOnCardChange;
	void __fastcall ApplyAppearance(TAdvCard* Card);
	HIDESBASE TAdvCard* __fastcall GetItem(int Index);
	HIDESBASE void __fastcall SetItem(int Index, TAdvCard* Value);
	void __fastcall SetUpdateSelected(bool Value);
	
protected:
	void __fastcall CalcClientRects(TAdvCard* Card);
	void __fastcall CardItemValueChanged(TAdvCard* Card, TAdvCardItem* Item);
	void __fastcall CardTemplateItemOrderCountChanged(void);
	virtual void __fastcall Update(Classes::TCollectionItem* Item);
	
public:
	__fastcall TAdvCards(TCustomAdvCardList* CardList, TMetaClass* ItemClass);
	bool __fastcall CheckItemShow(TAdvCard* Card, int ItemIndex);
	HIDESBASE TAdvCard* __fastcall Add(void);
	HIDESBASE void __fastcall Clear(void);
	HIDESBASE void __fastcall Delete(int Index);
	HIDESBASE TAdvCard* __fastcall Insert(int Index);
	void __fastcall UpdateCardItems(TAdvCard* Card);
	__property TAdvCard* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
	__property bool UpdateSelected = {read=FUpdateSelected, write=SetUpdateSelected, nodefault};
	__property TAdvCardEvent OnCardAdd = {read=FOnCardAdd, write=FOnCardAdd};
	__property TAdvCardEvent OnBeforCardDelete = {read=FOnBeforCardDelete, write=FOnBeforCardDelete};
	__property TAdvCardEvent OnCardChange = {read=FOnCardChange, write=FOnCardChange};
public:
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TAdvCards(void) { }
	#pragma option pop
	
};


#pragma option push -b-
enum TSortDirection { sdAscending, sdDescending };
#pragma option pop

#pragma option push -b-
enum TSortType { stNone, stCaption, stItem, stCustom };
#pragma option pop

class DELPHICLASS TAdvCardSortSettings;
class PASCALIMPLEMENTATION TAdvCardSortSettings : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TSortDirection FSortDirection;
	int FSortIndex;
	TSortType FSortType;
	bool FCaseSensitive;
	Classes::TNotifyEvent FOnSortChange;
	void __fastcall DoSortSettingChange(void);
	void __fastcall SetSortDirection(TSortDirection Value);
	void __fastcall SetSortIndex(int Value);
	void __fastcall SetSortType(const TSortType Value);
	
protected:
	__property Classes::TNotifyEvent OnSortChange = {read=FOnSortChange, write=FOnSortChange};
	
public:
	__fastcall TAdvCardSortSettings(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property bool CaseSensitive = {read=FCaseSensitive, write=FCaseSensitive, default=0};
	__property TSortDirection SortDirection = {read=FSortDirection, write=SetSortDirection, default=0};
	__property int SortIndex = {read=FSortIndex, write=SetSortIndex, default=0};
	__property TSortType SortType = {read=FSortType, write=SetSortType, default=0};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TAdvCardSortSettings(void) { }
	#pragma option pop
	
};


class DELPHICLASS TAdvCardFilterSettings;
class PASCALIMPLEMENTATION TAdvCardFilterSettings : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	AnsiString FFilterCondition;
	int FFilterIndex;
	Classes::TNotifyEvent FOnFilterChange;
	void __fastcall DoFilterSettingsChange(void);
	void __fastcall SetFilterCondition(AnsiString Value);
	void __fastcall SetFilterIndex(int Value);
	
protected:
	__property Classes::TNotifyEvent OnFilterChange = {read=FOnFilterChange, write=FOnFilterChange};
	
public:
	__fastcall TAdvCardFilterSettings(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property AnsiString FilterCondition = {read=FFilterCondition, write=SetFilterCondition};
	__property int FilterIndex = {read=FFilterIndex, write=SetFilterIndex, default=0};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TAdvCardFilterSettings(void) { }
	#pragma option pop
	
};


typedef void __fastcall (__closure *TAdvCardItemEvent)(System::TObject* Sender, int CardIndex, int ItemIndex);

typedef void __fastcall (__closure *TAdvCardItemAllowEvent)(System::TObject* Sender, int CardIndex, int ItemIndex, bool &Allow);

typedef void __fastcall (__closure *TAdvCardCaptionGetDisplText)(System::TObject* Sender, int CardIndex, AnsiString &Text);

typedef void __fastcall (__closure *TAdvCardItemGetDisplText)(System::TObject* Sender, int CardIndex, int ItemIndex, AnsiString &Text);

typedef void __fastcall (__closure *TAdvCardDrawCardItem)(System::TObject* Sender, TAdvCard* Card, TAdvCardItem* Item, Graphics::TCanvas* Canvas, const Types::TRect &Rect);