acshellctrls.hpp

I mComputermaster programmisDelphi+pascal

	TacAddFolderEvent FOnAddFolder;
	System::UnicodeString FSavePath;
	Comctrls::TTreeNode* FNodeToMonitor;
	TacShowExtension FShowExtension;
	Comctrls::TTreeNode* __fastcall FolderExists(Shlobj::PItemIDList FindID, Comctrls::TTreeNode* InNode);
	TacShellFolder* __fastcall GetFolder(int Index);
	System::UnicodeString __fastcall GetPath();
	void __fastcall SetComboBox(TacCustomShellComboBox* Value);
	void __fastcall SetListView(const TacCustomShellListView* Value);
	void __fastcall SetPath(const System::UnicodeString Value);
	void __fastcall SetPathFromID(Shlobj::PItemIDList ID);
	void __fastcall SetRoot(const Sconst::TacRoot Value);
	void __fastcall SetUseShellImages(const bool Value);
	void __fastcall SetAutoRefresh(const bool Value);
	bool __fastcall GetUpdating(void);
	
protected:
	void __fastcall CreateRoot(void);
	virtual void __fastcall CreateWnd(void);
	virtual void __fastcall DestroyWnd(void);
	DYNAMIC void __fastcall DoContextPopup(const Types::TPoint &MousePos, bool &Handled);
	DYNAMIC void __fastcall Edit(const tagTVITEMW &Item);
	virtual void __fastcall GetImageIndex(Comctrls::TTreeNode* Node);
	virtual void __fastcall GetSelectedIndex(Comctrls::TTreeNode* Node);
	void __fastcall InitNode(Comctrls::TTreeNode* NewNode, Shlobj::PItemIDList ID, Comctrls::TTreeNode* ParentNode);
	virtual void __fastcall Loaded(void);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall Delete(Comctrls::TTreeNode* Node);
	Comctrls::TTreeNode* __fastcall NodeFromAbsoluteID(Comctrls::TTreeNode* StartNode, Shlobj::PItemIDList ID);
	Comctrls::TTreeNode* __fastcall NodeFromRelativeID(Comctrls::TTreeNode* ParentNode, Shlobj::PItemIDList ID);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	DYNAMIC bool __fastcall CanChange(Comctrls::TTreeNode* Node);
	DYNAMIC bool __fastcall CanExpand(Comctrls::TTreeNode* Node);
	void __fastcall PopulateNode(Comctrls::TTreeNode* Node);
	void __fastcall RootChanged(void);
	virtual void __fastcall SetObjectTypes(TacShellObjectTypes Value);
	HIDESBASE virtual void __fastcall WMDestroy(Messages::TWMNoParams &Message);
	virtual void __fastcall WndProc(Messages::TMessage &Message);
	void __fastcall ClearItems(void);
	void __fastcall RefreshEvent(void);
	HIDESBASE MESSAGE void __fastcall WMNCPaint(Messages::TMessage &Message);
	
public:
	__fastcall virtual TacCustomShellTreeView(Classes::TComponent* AOwner);
	__fastcall virtual ~TacCustomShellTreeView(void);
	HIDESBASE void __fastcall Refresh(Comctrls::TTreeNode* Node);
	TacShellFolder* __fastcall SelectedFolder(void);
	__property bool AutoRefresh = {read=FAutoRefresh, write=SetAutoRefresh, nodefault};
	__property TacShellFolder* Folders[int Index] = {read=GetFolder/*, default*/};
	__property Items;
	__property System::UnicodeString Path = {read=GetPath, write=SetPath};
	__property bool AutoContextMenus = {read=FAutoContext, write=FAutoContext, default=1};
	__property TacShellObjectTypes ObjectTypes = {read=FObjectTypes, write=SetObjectTypes, nodefault};
	__property Sconst::TacRoot Root = {read=FRoot, write=SetRoot};
	__property TacCustomShellComboBox* ShellComboBox = {read=FComboBox, write=SetComboBox};
	__property TacCustomShellListView* ShellListView = {read=FListView, write=SetListView};
	__property bool UseShellImages = {read=FUseShellImages, write=SetUseShellImages, nodefault};
	__property bool Updating = {read=GetUpdating, nodefault};
	__property TacShowExtension ShowExt = {read=FShowExtension, write=FShowExtension, nodefault};
	__property TacAddFolderEvent OnAddFolder = {read=FOnAddFolder, write=FOnAddFolder};
	void __fastcall CommandCompleted(System::UnicodeString Verb, bool Succeeded);
	void __fastcall ExecuteCommand(System::UnicodeString Verb, bool &Handled);
public:
	/* TWinControl.CreateParented */ inline __fastcall TacCustomShellTreeView(HWND ParentWindow) : Streeview::TsTreeView(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 TsShellTreeView;
class PASCALIMPLEMENTATION TsShellTreeView : public TacCustomShellTreeView
{
	typedef TacCustomShellTreeView inherited;
	
__published:
	__property OnAddFolder;
	__property OnGetImageIndex;
	__property OnGetSelectedIndex;
	__property OnClick;
	__property OnEnter;
	__property OnExit;
	__property OnDragDrop;
	__property OnDragOver;
	__property OnStartDrag;
	__property OnEndDrag;
	__property OnMouseDown;
	__property OnMouseMove;
	__property OnMouseUp;
	__property OnDblClick;
	__property OnKeyDown;
	__property OnKeyPress;
	__property OnKeyUp;
	__property OnChanging;
	__property OnChange;
	__property OnExpanding;
	__property OnCollapsing;
	__property OnCollapsed;
	__property OnExpanded;
	__property OnEditing;
	__property OnEdited;
	__property Align = {default=0};
	__property Anchors = {default=3};
	__property BorderStyle = {default=1};
	__property Color = {default=-16777211};
	__property Ctl3D;
	__property Cursor = {default=0};
	__property DragCursor = {default=-12};
	__property DragMode = {default=0};
	__property Enabled = {default=1};
	__property Font;
	__property HideSelection = {default=1};
	__property Images;
	__property Indent;
	__property ParentColor = {default=0};
	__property ParentCtl3D = {default=1};
	__property ParentFont = {default=1};
	__property ParentShowHint = {default=1};
	__property PopupMenu;
	__property RightClickSelect = {default=1};
	__property ShowButtons = {default=1};
	__property ShowHint;
	__property ShowLines = {default=1};
	__property TabOrder = {default=-1};
	__property TabStop = {default=1};
	__property Visible = {default=1};
	__property ChangeDelay = {default=0};
	__property ShowRoot = {default=1};
	__property StateImages;
	__property AutoContextMenus = {default=1};
	__property ObjectTypes;
	__property Root;
	__property ShellComboBox;
	__property ShellListView;
	__property UseShellImages;
	__property AutoRefresh;
	__property ShowExt;
public:
	/* TacCustomShellTreeView.Create */ inline __fastcall virtual TsShellTreeView(Classes::TComponent* AOwner) : TacCustomShellTreeView(AOwner) { }
	/* TacCustomShellTreeView.Destroy */ inline __fastcall virtual ~TsShellTreeView(void) { }
	
public:
	/* TWinControl.CreateParented */ inline __fastcall TsShellTreeView(HWND ParentWindow) : TacCustomShellTreeView(ParentWindow) { }
	
};


class PASCALIMPLEMENTATION TacCustomShellComboBox : public Scomboboxes::TsComboBoxEx
{
	typedef Scomboboxes::TsComboBoxEx inherited;
	
private:
	int FImagesHandle;
	int FImageHeight;
	int FImageWidth;
	Imglist::TCustomImageList* FImageList;
	Sconst::TacRoot FOldRoot;
	Sconst::TacRoot FRoot;
	TacShellFolder* FRootFolder;
	TacCustomShellTreeView* FTreeView;
	TacCustomShellListView* FListView;
	TacShellObjectTypes FObjectTypes;
	bool FUseShellImages;
	bool FUpdating;
	TacGetImageIndexEvent FOnGetImageIndex;
	void __fastcall ClearItems(void);
	TacShellFolder* __fastcall GetFolder(int Index);
	System::UnicodeString __fastcall GetPath();
	void __fastcall SetPath(const System::UnicodeString Value);
	void __fastcall SetPathFromID(Shlobj::PItemIDList ID);
	void __fastcall SetRoot(const Sconst::TacRoot Value);
	void __fastcall SetTreeView(TacCustomShellTreeView* Value);
	void __fastcall SetListView(TacCustomShellListView* Value);
	void __fastcall SetUseShellImages(const bool Value);
	int __fastcall GetShellImageIndex(TacShellFolder* AFolder);
	bool __fastcall GetUpdating(void);
	
protected:
	void __fastcall AddItems(int Index, TacShellFolder* ParentFolder);
	DYNAMIC void __fastcall Click(void);
	void __fastcall CreateRoot(void);
	virtual void __fastcall DestroyWnd(void);
	virtual void __fastcall Init(void);
	TacShellFolder* __fastcall InitItem(TacShellFolder* ParentFolder, Shlobj::PItemIDList ID);
	void __fastcall RootChanged(void);
	void __fastcall TreeUpdate(Shlobj::PItemIDList NewPath);
	virtual void __fastcall SetObjectTypes(TacShellObjectTypes Value);
	
public:
	bool ExtUpdating;
	__fastcall virtual TacCustomShellComboBox(Classes::TComponent* AOwner);
	DYNAMIC void __fastcall Change(void);
	virtual void __fastcall CreateWnd(void);
	int __fastcall IndexFromID(Shlobj::PItemIDList AbsoluteID);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	__fastcall virtual ~TacCustomShellComboBox(void);
	virtual void __fastcall Loaded(void);
	virtual void __fastcall WndProc(Messages::TMessage &Message);
	__property Items;
	__property System::UnicodeString Path = {read=GetPath, write=SetPath};
	__property TacShellFolder* Folders[int Index] = {read=GetFolder};
	__property Sconst::TacRoot Root = {read=FRoot, write=SetRoot};
	__property TacShellObjectTypes ObjectTypes = {read=FObjectTypes, write=SetObjectTypes, nodefault};
	__property TacCustomShellTreeView* ShellTreeView = {read=FTreeView, write=SetTreeView};
	__property TacCustomShellListView* ShellListView = {read=FListView, write=SetListView};
	__property bool Updating = {read=GetUpdating, nodefault};
	__property bool UseShellImages = {read=FUseShellImages, write=SetUseShellImages, default=1};
	__property TacGetImageIndexEvent OnGetImageIndex = {read=FOnGetImageIndex, write=FOnGetImageIndex};
public:
	/* TWinControl.CreateParented */ inline __fastcall TacCustomShellComboBox(HWND ParentWindow) : Scomboboxes::TsComboBoxEx(ParentWindow) { }
	
};


class DELPHICLASS TsShellComboBox;
class PASCALIMPLEMENTATION TsShellComboBox : public TacCustomShellComboBox
{
	typedef TacCustomShellComboBox inherited;
	
public:
	__property Path;
	
__published:
	__property OnGetImageIndex;
	__property OnChange;
	__property OnClick;
	__property OnDblClick;
	__property OnDragDrop;
	__property OnDragOver;
	__property OnDropDown;
	__property OnEndDock;
	__property OnEndDrag;
	__property OnEnter;
	__property OnExit;
	__property OnKeyDown;
	__property OnKeyPress;
	__property OnKeyUp;
	__property OnStartDock;
	__property OnStartDrag;
	__property Anchors = {default=3};
	__property BiDiMode;
	__property Color = {default=-16777211};
	__property Constraints;