acshellctrls.hpp

I mComputermaster programmisDelphi+pascal

	__property Ctl3D;
	__property DragCursor = {default=-12};
	__property DragKind = {default=0};
	__property DragMode = {default=0};
	__property DropDownCount = {default=14};
	__property Enabled = {default=1};
	__property Font;
	__property ImeMode = {default=3};
	__property ImeName;
	__property MaxLength = {default=0};
	__property ParentBiDiMode = {default=1};
	__property ParentColor = {default=0};
	__property ParentCtl3D = {default=1};
	__property ParentFont = {default=1};
	__property ParentShowHint = {default=1};
	__property PopupMenu;
	__property ShowHint;
	__property TabOrder = {default=-1};
	__property TabStop = {default=1};
	__property Visible = {default=1};
	__property Images;
	__property Root;
	__property ShellTreeView;
	__property ShellListView;
	__property UseShellImages = {default=1};
public:
	/* TacCustomShellComboBox.Create */ inline __fastcall virtual TsShellComboBox(Classes::TComponent* AOwner) : TacCustomShellComboBox(AOwner) { }
	/* TacCustomShellComboBox.Destroy */ inline __fastcall virtual ~TsShellComboBox(void) { }
	
public:
	/* TWinControl.CreateParented */ inline __fastcall TsShellComboBox(HWND ParentWindow) : TacCustomShellComboBox(ParentWindow) { }
	
};


class PASCALIMPLEMENTATION TacCustomShellListView : public Slistview::TsCustomListView
{
	typedef Slistview::TsCustomListView inherited;
	
private:
	Sconst::TacRoot FOldRoot;
	Sconst::TacRoot FRoot;
	TacShellFolder* FRootFolder;
	bool FAutoContext;
	bool FAutoRefresh;
	bool FAutoNavigate;
	bool FSorted;
	TacShellObjectTypes FObjectTypes;
	int FLargeImages;
	int FSmallImages;
	TacAddFolderEvent FOnAddFolder;
	Classes::TList* FFolders;
	TacCustomShellTreeView* FTreeView;
	TacCustomShellComboBox* FComboBox;
	TacShellChangeNotifier* FNotifier;
	Comctrls::TLVEditingEvent FOnEditing;
	bool FSettingRoot;
	System::UnicodeString FSavePath;
	System::UnicodeString FMask;
	TacShowExtension FShowExtension;
	void __fastcall EnumColumns(void);
	TacShellFolder* __fastcall GetFolder(int Index);
	void __fastcall SetAutoRefresh(const bool Value);
	void __fastcall SetSorted(const bool Value);
	void __fastcall SetTreeView(TacCustomShellTreeView* Value);
	void __fastcall SetComboBox(TacCustomShellComboBox* Value);
	void __fastcall SynchPaths(void);
	void __fastcall SetMask(const System::UnicodeString Value);
	bool __fastcall GetUpdating(void);
	
protected:
	void __fastcall ClearItems(void);
	void __fastcall CreateRoot(void);
	virtual void __fastcall CreateWnd(void);
	virtual void __fastcall DestroyWnd(void);
	DYNAMIC void __fastcall DblClick(void);
	DYNAMIC void __fastcall DoContextPopup(const Types::TPoint &MousePos, bool &Handled);
	void __fastcall EditText(void);
	DYNAMIC void __fastcall Edit(const tagLVITEMW &Item);
	DYNAMIC void __fastcall KeyDown(System::Word &Key, Classes::TShiftState Shift);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	virtual bool __fastcall OwnerDataFetch(Comctrls::TListItem* Item, Comctrls::TItemRequest Request);
	virtual int __fastcall OwnerDataFind(Comctrls::TItemFind Find, const System::UnicodeString FindString, const Types::TPoint &FindPosition, void * FindData, int StartIndex, Comctrls::TSearchDirection Direction, bool Wrap);
	virtual void __fastcall Populate(void);
	void __fastcall SetObjectTypes(TacShellObjectTypes Value);
	void __fastcall SetRoot(const Sconst::TacRoot Value);
	virtual void __fastcall WndProc(Messages::TMessage &Message);
	
public:
	bool FUpdating;
	void __fastcall RootChanged(void);
	void __fastcall SetPathFromID(Shlobj::PItemIDList ID);
	void __fastcall TreeUpdate(Shlobj::PItemIDList NewRoot);
	__fastcall virtual TacCustomShellListView(Classes::TComponent* AOwner);
	__fastcall virtual ~TacCustomShellListView(void);
	virtual void __fastcall Loaded(void);
	void __fastcall Back(void);
	HIDESBASE void __fastcall Refresh(void);
	void __fastcall MakeNewFolder(void);
	TacShellFolder* __fastcall SelectedFolder(void);
	void __fastcall CommandCompleted(System::UnicodeString Verb, bool Succeeded);
	void __fastcall ExecuteCommand(System::UnicodeString Verb, bool &Handled);
	__property TacShellFolder* Folders[int Index] = {read=GetFolder};
	__property TacShellFolder* RootFolder = {read=FRootFolder};
	__property Items;
	__property Columns;
	__property System::UnicodeString Mask = {read=FMask, write=SetMask};
	__property bool AutoContextMenus = {read=FAutoContext, write=FAutoContext, default=1};
	__property bool AutoRefresh = {read=FAutoRefresh, write=SetAutoRefresh, default=0};
	__property bool AutoNavigate = {read=FAutoNavigate, write=FAutoNavigate, default=1};
	__property TacShellObjectTypes ObjectTypes = {read=FObjectTypes, write=SetObjectTypes, nodefault};
	__property Sconst::TacRoot Root = {read=FRoot, write=SetRoot};
	__property TacCustomShellTreeView* ShellTreeView = {read=FTreeView, write=SetTreeView};
	__property TacCustomShellComboBox* ShellComboBox = {read=FComboBox, write=SetComboBox};
	__property bool Sorted = {read=FSorted, write=SetSorted, nodefault};
	__property bool Updating = {read=GetUpdating, nodefault};
	__property TacShowExtension ShowExt = {read=FShowExtension, write=FShowExtension, nodefault};
	__property TacAddFolderEvent OnAddFolder = {read=FOnAddFolder, write=FOnAddFolder};
	__property Comctrls::TLVEditingEvent OnEditing = {read=FOnEditing, write=FOnEditing};
public:
	/* TWinControl.CreateParented */ inline __fastcall TacCustomShellListView(HWND ParentWindow) : Slistview::TsCustomListView(ParentWindow) { }
	
private:
	void *__IacShellCommandVerb;	/* IacShellCommandVerb */
	
public:
	#if defined(MANAGED_INTERFACE_OPERATORS)
	operator _di_IacShellCommandVerb()
	{
		_di_IacShellCommandVerb intf;
		GetInterface(intf);
		return intf;
	}
	#else
	operator IacShellCommandVerb*(void) { return (IacShellCommandVerb*)&__IacShellCommandVerb; }
	#endif
	
};


class DELPHICLASS TsShellListView;
class PASCALIMPLEMENTATION TsShellListView : public TacCustomShellListView
{
	typedef TacCustomShellListView inherited;
	
__published:
	__property OnChange;
	__property OnChanging;
	__property OnColumnClick;
	__property OnContextPopup;
	__property OnEnter;
	__property OnExit;
	__property OnInsert;
	__property OnDragDrop;
	__property OnDragOver;
	__property DragCursor = {default=-12};
	__property OnStartDrag;
	__property OnEndDrag;
	__property OnMouseDown;
	__property OnMouseMove;
	__property OnMouseUp;
	__property OnKeyDown;
	__property OnKeyPress;
	__property OnKeyUp;
	__property Align = {default=0};
	__property Anchors = {default=3};
	__property BorderStyle = {default=1};
	__property Color = {default=-16777211};
	__property ColumnClick = {default=1};
	__property OnClick;
	__property OnDblClick;
	__property Ctl3D;
	__property DragMode = {default=0};
	__property ReadOnly = {default=1};
	__property Enabled = {default=1};
	__property Font;
	__property GridLines = {default=0};
	__property Sorted;
	__property HideSelection = {default=1};
	__property HotTrack = {default=0};
	__property IconOptions;
	__property AllocBy = {default=0};
	__property MultiSelect = {default=0};
	__property RowSelect = {default=0};
	__property ParentColor = {default=0};
	__property ParentFont = {default=1};
	__property ParentShowHint = {default=1};
	__property ShowHint;
	__property PopupMenu;
	__property TabOrder = {default=-1};
	__property TabStop = {default=1};
	__property Visible = {default=1};
	__property ViewStyle = {default=0};
	__property OnEditing;
	__property OnAddFolder;
	__property AutoContextMenus = {default=1};
	__property AutoRefresh = {default=0};
	__property AutoNavigate = {default=1};
	__property ObjectTypes;
	__property Root;
	__property ShellTreeView;
	__property ShellComboBox;
	__property ShowExt;
	__property Mask;
	__property ShowColumnHeaders = {default=1};
public:
	/* TacCustomShellListView.Create */ inline __fastcall virtual TsShellListView(Classes::TComponent* AOwner) : TacCustomShellListView(AOwner) { }
	/* TacCustomShellListView.Destroy */ inline __fastcall virtual ~TsShellListView(void) { }
	
public:
	/* TWinControl.CreateParented */ inline __fastcall TsShellListView(HWND ParentWindow) : TacCustomShellListView(ParentWindow) { }
	
};


class DELPHICLASS TsDlgShellListView;
class PASCALIMPLEMENTATION TsDlgShellListView : public TsShellListView
{
	typedef TsShellListView inherited;
	
protected:
	DYNAMIC void __fastcall DblClick(void);
public:
	/* TacCustomShellListView.Create */ inline __fastcall virtual TsDlgShellListView(Classes::TComponent* AOwner) : TsShellListView(AOwner) { }
	/* TacCustomShellListView.Destroy */ inline __fastcall virtual ~TsDlgShellListView(void) { }
	
public:
	/* TWinControl.CreateParented */ inline __fastcall TsDlgShellListView(HWND ParentWindow) : TsShellListView(ParentWindow) { }
	
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE bool DontFoldersGenerate;
#define SRFDesktop L"rfDesktop"
#define SCmdVerbOpen L"open"
#define SCmdVerbRename L"rename"
#define SCmdVerbDelete L"delete"
#define SCmdVerbPaste L"paste"
#define SShellNoDetails L"Unable to retrieve folder details for \"%s\". Error code $"\
	"%x"
extern PACKAGE void __fastcall DisposePIDL(Shlobj::PItemIDList PIDL);
extern PACKAGE void __fastcall InvokeContextMenu(Controls::TWinControl* Owner, TacShellFolder* AFolder, int X, int Y);
extern PACKAGE bool __fastcall G_ValidateMask(const System::UnicodeString S, const System::UnicodeString Mask, System::WideChar MaskChar = (System::WideChar)(0x58));
extern PACKAGE bool __fastcall G_ValidateWildText(const System::UnicodeString S, const System::UnicodeString Mask, System::WideChar MaskChar = (System::WideChar)(0x3f), System::WideChar WildCard = (System::WideChar)(0x2a));
extern PACKAGE int __fastcall G_CharPos(System::WideChar C, const System::UnicodeString S, int StartPos = 0x1)/* overload */;

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

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