acshellctrls.hpp

I mComputermaster programmisDelphi+pascal

	__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=-2147483643};
	__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:
	#pragma option push -w-inl
	/* TacCustomShellTreeView.Create */ inline __fastcall virtual TsShellTreeView(Classes::TComponent* AOwner) : TacCustomShellTreeView(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TacCustomShellTreeView.Destroy */ inline __fastcall virtual ~TsShellTreeView(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TsShellTreeView(HWND ParentWindow) : TacCustomShellTreeView(ParentWindow) { }
	#pragma option pop
	
};


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=-2147483643};
	__property Constraints ;
	__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:
	#pragma option push -w-inl
	/* TacCustomShellComboBox.Create */ inline __fastcall virtual TsShellComboBox(Classes::TComponent* AOwner) : TacCustomShellComboBox(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TacCustomShellComboBox.Destroy */ inline __fastcall virtual ~TsShellComboBox(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TsShellComboBox(HWND ParentWindow) : TacCustomShellComboBox(ParentWindow) { }
	#pragma option pop
	
};


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=-2147483643};
	__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:
	#pragma option push -w-inl
	/* TacCustomShellListView.Create */ inline __fastcall virtual TsShellListView(Classes::TComponent* AOwner) : TacCustomShellListView(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TacCustomShellListView.Destroy */ inline __fastcall virtual ~TsShellListView(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TsShellListView(HWND ParentWindow) : TacCustomShellListView(ParentWindow) { }
	#pragma option pop
	
};


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


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE bool DontFoldersGenerate;
#define SRFDesktop "rfDesktop"
#define SCmdVerbOpen "open"
#define SCmdVerbRename "rename"
#define SCmdVerbDelete "delete"
#define SCmdVerbPaste "paste"
#define SShellNoDetails "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 AnsiString S, const AnsiString Mask, char MaskChar = '\x58');
extern PACKAGE bool __fastcall G_ValidateWildText(const AnsiString S, const AnsiString Mask, char MaskChar = '\x3f', char WildCard = '\x2a');
extern PACKAGE int __fastcall G_CharPos(char C, const AnsiString S, int StartPos = 0x1)/* overload */;

}	/* namespace Acshellctrls */
using namespace Acshellctrls;
#pragma option pop	// -w-
#pragma option pop	// -Vx

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