slstbox.hpp

TMS component pack v4.2 for delphi

	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation AOperation);
	virtual TListSectionCollection* __fastcall CreateSections(void);
	virtual AnsiString __fastcall GetDisplText(TListSection* ListSection, int Index);
	Picturecontainer::THTMLPictureCache* __fastcall GetImageCache(void);
	
public:
	__fastcall virtual TSectionListBox(Classes::TComponent* AOwner);
	__fastcall virtual ~TSectionListBox(void);
	TListSection* __fastcall GetActiveSection(void);
	TListSection* __fastcall GetItemSection(int idx);
	int __fastcall GetItemSectionIndex(int idx);
	bool __fastcall GetItemAtXY(int x, int y, int &SectionIdx, int &subitemidx);
	int __fastcall GetSectionListIndex(int idx);
	AnsiString __fastcall GetSectionSubItem(int SectionIdx, int subitemidx);
	AnsiString __fastcall GetRichSectionSubItem(int SectionIdx, int subitemidx);
	bool __fastcall GetListItemIndex(int listindex, int &SectionIdx, int &subitemidx);
	bool __fastcall GetSelection(int &SectionIdx, int &subitemidx, AnsiString &selstring);
	bool __fastcall GetSelectedItem(int &SectionIdx, int &subitemidx);
	bool __fastcall SetSelection(int SectionIdx, int subitemidx);
	bool __fastcall IsSection(int idx);
	void __fastcall FocusSection(TListSection* section);
	void __fastcall ExpandAll(void);
	void __fastcall ContractAll(void);
	void __fastcall SortAll(void);
	void __fastcall SortAllSubItems(void);
	void __fastcall SortAllSections(void);
	void __fastcall SaveToFile(AnsiString filename);
	void __fastcall LoadFromFile(AnsiString filename);
	void __fastcall SaveToInifile(AnsiString filename);
	void __fastcall LoadFromInifile(AnsiString filename);
	void __fastcall OptimizeTabs(int padding);
	virtual void __fastcall Clear(void);
	void __fastcall BeginUpdate(void);
	void __fastcall EndUpdate(void);
	bool __fastcall StartEdit(int idx);
	void __fastcall StringToRich(AnsiString s, Comctrls::TRichEdit* richeditor);
	AnsiString __fastcall RichToString(Comctrls::TRichEdit* richeditor);
	void __fastcall RichPaint(Graphics::TCanvas* Canvas, const Types::TRect &ARect, AnsiString s, bool sel);
	__property Comctrls::TRichEdit* RichEdit = {read=FRichEdit};
	bool __fastcall HasScrollBar(void);
	void __fastcall HilightInList(AnsiString HiText, bool DoCase);
	void __fastcall UnHilightInList(void);
	void __fastcall HiLightInSection(int SectionIdx, AnsiString HiText, bool DoCase);
	void __fastcall UnHiLightInSection(int SectionIdx);
	void __fastcall HilightInSubItem(int SectionIdx, int SubItemIdx, AnsiString HiText, bool DoCase);
	void __fastcall UnHilightInSubItem(int SectionIdx, int SubItemIdx);
	void __fastcall MarkInList(AnsiString HiText, bool DoCase);
	void __fastcall UnMarkInList(void);
	void __fastcall MarkInSection(int SectionIdx, AnsiString HiText, bool DoCase);
	void __fastcall UnMarkInSection(int SectionIdx);
	void __fastcall MarkInSubItem(int SectionIdx, int SubItemIdx, AnsiString HiText, bool DoCase);
	void __fastcall UnMarkInSubItem(int SectionIdx, int SubItemIdx);
	virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
	
__published:
	__property TListSectionCollection* Sections = {read=FSections, write=SetSections};
	__property TTabPositionCollection* TabPositions = {read=FTabPositions, write=SetTabPositions};
	__property bool TabPosMove = {read=FTabPosMove, write=SetTabPosMove, nodefault};
	__property Align  = {default=0};
	__property bool WordWrap = {read=FWordWrap, write=SetWordWrap, nodefault};
	__property Graphics::TBitmap* Wallpaper = {read=FWallpaper, write=SetWallpaper};
	__property bool OneExpanded = {read=FOneExpanded, write=SetOneExpanded, nodefault};
	__property bool FullFocus = {read=FFullFocus, write=FFullFocus, nodefault};
	__property Anchors  = {default=3};
	__property BiDiMode ;
	__property Constraints ;
	__property DragCursor  = {default=-12};
	__property DragKind  = {default=0};
	__property DragMode  = {default=0};
	__property ParentBiDiMode  = {default=1};
	__property OnEndDock ;
	__property OnStartDock ;
	__property BorderStyle  = {default=1};
	__property Color  = {default=-16777211};
	__property Ctl3D ;
	__property Enabled  = {default=1};
	__property ExtendedSelect  = {default=1};
	__property Font ;
	__property ImeMode  = {default=3};
	__property ImeName ;
	__property IntegralHeight  = {default=0};
	__property short ImageSpacing = {read=FImageSpacing, write=SetImageSpacing, nodefault};
	__property MultiSelect  = {default=0};
	__property int SubItemHeight = {read=FSubItemHeight, write=SetSubItemHeight, nodefault};
	__property ParentColor  = {default=0};
	__property ParentCtl3D  = {default=1};
	__property ParentFont  = {default=1};
	__property ParentShowHint  = {default=1};
	__property Picturecontainer::TPictureContainer* PictureContainer = {read=FContainer, write=SetContainer};
	__property PopupMenu ;
	__property ShowHint ;
	__property TabOrder  = {default=-1};
	__property TabStop  = {default=1};
	__property TabWidth  = {default=0};
	__property Visible  = {default=1};
	__property OnClick ;
	__property OnDblClick ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDrag ;
	__property OnEnter ;
	__property OnExit ;
	__property OnKeyDown ;
	__property OnKeyPress ;
	__property OnKeyUp ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property TSubItemClickEvent OnChange = {read=FOnChange, write=FOnChange};
	__property TExpandSectionEvent OnExpandSection = {read=FOnExpandSection, write=FOnExpandSection};
	__property TContractSectionEvent OnContractSection = {read=FOnContractSection, write=FOnContractSection};
	__property TContractSectionEvent OnSectionClick = {read=FOnSectionClick, write=FOnSectionClick};
	__property TContractSectionEvent OnSectionRClick = {read=FOnSectionRClick, write=FOnSectionRClick};
	__property TContractSectionEvent OnSectionDblClk = {read=FOnSectionDblClk, write=FOnSectionDblClk};
	__property TSubItemClickEvent OnSubItemClick = {read=FOnSubItemClick, write=FOnSubItemClick};
	__property TSubItemClickEvent OnCheckBoxClick = {read=FOnCheckBoxClick, write=FOnCheckBoxClick};
	__property TSubItemClickEvent OnRadioClick = {read=FOnRadioClick, write=FOnRadioClick};
	__property TSubItemClickEvent OnSubItemRClick = {read=FOnSubItemRClick, write=FOnSubItemRClick};
	__property TSubItemClickEvent OnSubItemDblClk = {read=FOnSubItemDblClk, write=FOnSubItemDblClk};
	__property TSubItemClickEvent OnSubItemRDblClk = {read=FOnSubItemRDblClk, write=FOnSubItemRDblClk};
	__property TInsertSubItemEvent OnInsertSubItem = {read=FOnInsertSubItem, write=FOnInsertSubItem};
	__property TDeleteSubItemEvent OnDeleteSubItem = {read=FOnDeleteSubItem, write=FOnDeleteSubItem};
	__property TInsertSectionEvent OnInsertSection = {read=FOnInsertSection, write=FOnInsertSection};
	__property TDeleteSectionEvent OnDeleteSection = {read=FOnDeleteSection, write=FOnDeleteSection};
	__property TDrawItemEvent OnDrawItem = {read=FOnDrawItem, write=FOnDrawItem};
	__property TDrawItemPropEvent OnDrawItemProp = {read=FOnDrawItemProp, write=FOnDrawItemProp};
	__property TEditEvent OnStartEdit = {read=FOnStartEdit, write=FOnStartEdit};
	__property TEditEvent OnEndEdit = {read=FOnEndEdit, write=FOnEndEdit};
	__property TAnchorClick OnAnchorClick = {read=FAnchorClick, write=FAnchorClick};
	__property TAnchorEvent OnAnchorEnter = {read=FAnchorEnter, write=FAnchorEnter};
	__property TAnchorEvent OnAnchorExit = {read=FAnchorExit, write=FAnchorExit};
	__property bool Flat = {read=FFlat, write=SetFlat, nodefault};
	__property int SectionHeight = {read=FSectionHeight, write=SetSectionHeight, nodefault};
	__property Graphics::TFont* SectionFont = {read=FSectionFont, write=SetSectionFont};
	__property int SectionIndent = {read=FSectionIndent, write=SetSectionIndent, nodefault};
	__property Controls::TImageList* SectionImages = {read=FSectionImages, write=SetSectionImages};
	__property Controls::TImageList* SubItemImages = {read=FSubItemImages, write=SetSubItemImages};
	__property int SubItemIndent = {read=FSubItemIndent, write=SetSubItemIndent, nodefault};
	__property TURLSettings* URLSettings = {read=FURLSettings, write=SetURLSettings};
	__property OnStartDrag ;
	__property bool ExpandDisable = {read=FExpandDisable, write=FExpandDisable, nodefault};
	__property Graphics::TBitmap* ExpandGlyph = {read=FExpandGlyph, write=SetExpandGlyph};
	__property bool ContractDisable = {read=FContractDisable, write=FContractDisable, nodefault};
	__property Graphics::TBitmap* ContractGlyph = {read=FContractGlyph, write=SetContractGlyph};
	__property Graphics::TColor SectionColor = {read=FSectionColor, write=SetSectionColor, nodefault};
	__property TActiveSection ActiveSection = {read=FActiveSection, write=FActiveSection, nodefault};
	__property TListNodeType NodeType = {read=FNodeType, write=SetNodeType, nodefault};
	__property TSectionFocus SectionFocus = {read=FSectionFocus, write=FSectionFocus, nodefault};
	__property bool ScrollTrack = {read=FScrollTrack, write=FScrollTrack, default=1};
	__property TSListScrollStyle ScrollStyle = {read=FScrollStyle, write=SetScrollStyle, nodefault};
	__property Graphics::TColor ScrollColor = {read=FScrollColor, write=SetScrollColor, nodefault};
	__property int ScrollWidth = {read=FScrollWidth, write=SetScrollWidth, nodefault};
	__property Graphics::TColor SelectionColor = {read=FSelectionColor, write=FSelectionColor, nodefault};
	__property Graphics::TColor SelectionTextColor = {read=FSelectionTextColor, write=FSelectionTextColor, nodefault};
	__property AnsiString Version = {read=GetVersion, write=SetVersion};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TSectionListBox(HWND ParentWindow) : Stdctrls::TCustomListBox(ParentWindow) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TListSectionCollection : public Classes::TCollection 
{
	typedef Classes::TCollection inherited;
	
public:
	TListSection* operator[](int Index) { return Items[Index]; }
	
private:
	TSectionListBox* FOwner;
	HIDESBASE TListSection* __fastcall GetItem(int Index);
	HIDESBASE void __fastcall SetItem(int Index, TListSection* Value);
	
public:
	virtual TMetaClass* __fastcall CreateItemClass(void);
	__fastcall TListSectionCollection(TSectionListBox* AOwner);
	HIDESBASE TListSection* __fastcall Add(void);
	HIDESBASE TListSection* __fastcall Insert(int index);
	void __fastcall SwapSections(int idx1, int idx2);
	int __fastcall IndexOf(AnsiString SectionText);
	__property TListSection* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
	__property TSectionListBox* ListOwner = {read=FOwner};
	int __fastcall InsertSection(TListSection* ASection);
	
protected:
	virtual void __fastcall Update(Classes::TCollectionItem* Item);
	DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
	int __fastcall GetListIndex(TListSection* ASection);
	int __fastcall ExpandSection(TListSection* ASection);
	int __fastcall ContractSection(TListSection* ASection);
	int __fastcall RemoveSection(TListSection* ASection);
	int __fastcall UpdateSection(TListSection* ASection);
	void __fastcall InsertInSection(TListSection* ASection, int index, const AnsiString S);
	void __fastcall AddToSection(TListSection* ASection, const AnsiString S);
	void __fastcall DeleteFromSection(TListSection* ASection, int index);
	void __fastcall ClearSection(TListSection* ASection);
public:
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TListSectionCollection(void) { }
	#pragma option pop
	
};


#pragma option push -b-
enum TTabType { tableft, tabright };
#pragma option pop

class PASCALIMPLEMENTATION TTabPositionItem : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
private:
	int FTabPosition;
	TTabType FTabType;
	void __fastcall SetTabPosition(int value);
	void __fastcall SetTabType(TTabType value);
	
__published:
	__property int TabPosition = {read=FTabPosition, write=SetTabPosition, nodefault};
	__property TTabType TabType = {read=FTabType, write=SetTabType, nodefault};
public:
	#pragma option push -w-inl
	/* TCollectionItem.Create */ inline __fastcall virtual TTabPositionItem(Classes::TCollection* Collection) : Classes::TCollectionItem(Collection) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCollectionItem.Destroy */ inline __fastcall virtual ~TTabPositionItem(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint MAJ_VER = 0x1;
static const Shortint MIN_VER = 0x9;
static const Shortint REL_VER = 0x0;
static const Shortint BLD_VER = 0x3;

}	/* namespace Slstbox */
using namespace Slstbox;
#pragma pack(pop)
#pragma option pop

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// Slstbox