| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253 | //---------------------------------------------------------------------------#ifndef NamedObjsH#define NamedObjsH#include <system.hpp>#include <contnrs.hpp>//---------------------------------------------------------------------------class TNamedObjectList;class TNamedObject : public TPersistent{public:  __property UnicodeString Name = { read = FName, write = SetName };  __property bool Hidden = { read = FHidden };  __fastcall TNamedObject() {};  bool __fastcall IsSameName(const UnicodeString & Name);  virtual int __fastcall Compare(TNamedObject * Other);  __fastcall TNamedObject(UnicodeString aName);  void __fastcall MakeUniqueIn(TNamedObjectList * List);private:  UnicodeString FName;  bool FHidden;  void __fastcall SetName(UnicodeString value);};//---------------------------------------------------------------------------class TNamedObjectList : public TObjectList{private:  int __fastcall GetCount();  int __fastcall GetCountIncludingHidden();  virtual void __fastcall Notify(void *Ptr, TListNotification Action);  void __fastcall SetCount(int value);protected:  int FHiddenCount;  bool FControlledAdd;  void __fastcall Recount();public:  static const UnicodeString HiddenPrefix;  bool AutoSort;  __fastcall TNamedObjectList();  void __fastcall AlphaSort();  int __fastcall Add(TObject * AObject);  virtual TNamedObject * __fastcall AtObject(Integer Index);  TNamedObject * __fastcall FindByName(const UnicodeString & Name);  __property int Count = { read = GetCount, write = SetCount };  __property int CountIncludingHidden = { read = GetCountIncludingHidden };};//---------------------------------------------------------------------------int __fastcall NamedObjectSortProc(void * Item1, void * Item2);//---------------------------------------------------------------------------#endif
 |