49
Is it possible to display information about the firing events
// Event event - Notifies the application once the control fires an event.
FUNCTION exshellviewEvents_Event(OBJECT exshellview, INT EventID)
	Message( _ObjectCallMethod(exshellview, "ExecuteTemplate", "EventParam(-2)") );
END



48
Is there a way to change the header names

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "ColumnNames", "Name(Ime),Date modified(Datum),Item type(Tip),Size(Velikost)");

47
Disable or prevent the header's context-menu
OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "AllowContextMenu", 1);

46
Disable or prevent the list-view's context-menu
OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "AllowContextMenu", 2);

45
Disable or prevent the control's context-menu
OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "AllowContextMenu", 0);

44
How can I add my own items, without the default context menu

// InvokeMenuCommand event - Fired when the user selects an item context menu that has been added during QueryContextMenu event.
FUNCTION exshellviewEvents_InvokeMenuCommand(OBJECT exshellview, STRING Command)
	Message( Command );
END

// QueryContextMenu event - Fired when the context menu is about to be active. You can supply new items to the context menu.
FUNCTION exshellviewEvents_QueryContextMenu(OBJECT exshellview, STRING Items, STRING Separator)
	Separator = ",";
	Items = "My First Item,My Second Item";
END

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
ObjectAssociateEvents("exshellviewEvents", exshellview);
_ObjectSetProperty( exshellview , "DefaultMenuItems", 0);
_ObjectSetProperty( exshellview , "BrowseFolder", "c:\Temp");

43
How can I add my own items

// InvokeMenuCommand event - Fired when the user selects an item context menu that has been added during QueryContextMenu event.
FUNCTION exshellviewEvents_InvokeMenuCommand(OBJECT exshellview, STRING Command)
	Message( Command );
END

// QueryContextMenu event - Fired when the context menu is about to be active. You can supply new items to the context menu.
FUNCTION exshellviewEvents_QueryContextMenu(OBJECT exshellview, STRING Items, STRING Separator)
	Separator = ",";
	Items = ",My First Item,My Second Item";
END

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
ObjectAssociateEvents("exshellviewEvents", exshellview);
_ObjectSetProperty( exshellview , "BrowseFolder", "c:\Temp");

42
The InvokeCommand("open") will not work on a german. What can I do
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
FUNCTION exshellviewEvents_DblClick()
	' Objects(0).InvokeCommand("Open")
	_ObjectCallMethod( _ObjectGetProperty( exshellview , "Objects") , "Get", 1);
END

// InvokeItemMenu event - Notifies the application once the user selects a command in the context menu.
FUNCTION exshellviewEvents_InvokeItemMenu(OBJECT exshellview, INT Command)
	Message( Command );
END

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
ObjectAssociateEvents("exshellviewEvents", exshellview);
_ObjectSetProperty( exshellview , "BrowseFolder", "c:\Temp");

41
How can I open the file's properties when user double clicks it
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
FUNCTION exshellviewEvents_DblClick()
	' Objects(0).InvokeCommand("Properties")
	_ObjectCallMethod( _ObjectGetProperty( exshellview , "Objects") , "Get", 1);
END

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
ObjectAssociateEvents("exshellviewEvents", exshellview);
_ObjectSetProperty( exshellview , "BrowseFolder", "c:\Temp");

40
We're looking for a control to show files, just like the eXShellView, but than we would like to specify the files themselves. Is that possible using your control

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "ViewMode", 1);
_ObjectSetProperty( exshellview , "HeaderVisible", 0);
_ObjectSetProperty( exshellview , "BrowseFiles", "C:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\devenv.exe|C:\Program Files\Microsoft Visual FoxPro 9\vfp9.exe");

39
How do I prevent pressing the Backspace, or go up to the parent

// KeyDown event - Occurs when the user presses a key while an object has the focus.
FUNCTION exshellviewEvents_KeyDown(OBJECT exshellview, INT KeyCode, INT Shift)
	Message( "Set the KeyCode = 0, if the KeyCode is 8 " );
	KeyCode = 0;
END

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
ObjectAssociateEvents("exshellviewEvents", exshellview);
_ObjectSetProperty( exshellview , "ViewMode", 4);
_ObjectSetProperty( exshellview , "BrowseFolder", "c:\Temp");
_ObjectCallMethod( exshellview , "Refresh");

38
How can I show grid lines around items

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "ViewMode", 4);
_ObjectSetProperty( exshellview , "DrawGridLines", -1);
_ObjectCallMethod( exshellview , "Refresh");

37
How can I prevent shwoing the overlay icons (shortcut icons have a small arrow in lower-left corner, shared folders have a hand that shows that folder is shared, etc. )

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "ViewMode", 1);
_ObjectSetProperty( exshellview , "OverlayIcons", 0);
_ObjectCallMethod( exshellview , "Refresh");

36
I need to provide my own context menu but I am not able to find RClick event. What can be done

// QueryContextMenu event - Fired when the context menu is about to be active. You can supply new items to the context menu.
FUNCTION exshellviewEvents_QueryContextMenu(OBJECT exshellview, STRING Items, STRING Separator)
	Message( "Show here your popup/context menu" );
END

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
ObjectAssociateEvents("exshellviewEvents", exshellview);
_ObjectSetProperty( exshellview , "DefaultMenuItems", 0);

35
How can I provide my own context menu (RClick event is missing)

// InvokeMenuCommand event - Fired when the user selects an item context menu that has been added during QueryContextMenu event.
FUNCTION exshellviewEvents_InvokeMenuCommand(OBJECT exshellview, STRING Command)
	Message( Command );
END

// QueryContextMenu event - Fired when the context menu is about to be active. You can supply new items to the context menu.
FUNCTION exshellviewEvents_QueryContextMenu(OBJECT exshellview, STRING Items, STRING Separator)
	Separator = ",";
	Items = "First,Second,Third";
END

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
ObjectAssociateEvents("exshellviewEvents", exshellview);
_ObjectSetProperty( exshellview , "DefaultMenuItems", 0);

34
Is it possible to specify the "Extra Large Icons" view

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "ViewMode", 13);

33
Is it possible to specify the "Large Icons" view

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "ViewMode", 14);

32
Is it possible to specify the "Medium Icons" view

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "ViewMode", 15);

31
How can I hide the file names

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "HideFileNames", -1);
_ObjectSetProperty( exshellview , "ViewMode", 5);

30
Is it possible to set the Auto Arrange and Align To Grid flags by code

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "AutoArrange", -1);
_ObjectSetProperty( exshellview , "AlignToGrid", -1);
_ObjectSetProperty( exshellview , "ViewMode", 5);

29
Is it possible to set the Auto Arrange flag by code

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "AutoArrange", -1);
_ObjectSetProperty( exshellview , "ViewMode", 5);

28
How do I specify the current folder

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "CurrentFolder", "c:\windows");

27
Is it possible to disable showing tooltips for files and folders

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "HideToolTips", -1);

26
Is it possible to hide the control's header

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "HeaderVisible", 0);

25
How can I get the name of file being double clicked

// ObjectSelect event - Fired when the user selects a new object for browsing.
FUNCTION exshellviewEvents_ObjectSelect(OBJECT exshellview, OBJECT Object)
	_ObjectCallMethod( exshellview , "CancelObjectSelect");
	Message( Object );
END



24
How can I prevent opening or selecting a folder or zip files when user double click it
// ObjectSelect event - Fired when the user selects a new object for browsing.
FUNCTION exshellviewEvents_ObjectSelect(OBJECT exshellview, OBJECT Object)
	_ObjectCallMethod( exshellview , "CancelObjectSelect");
END



23
Is it possible to list only files, no folders

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectCallMethod( exshellview , "ModifyFolderFlags", 128,0);

22
How can I enable multiple selection

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectCallMethod( exshellview , "ModifyFolderFlags", 0,64);
_ObjectCallMethod( exshellview , "Refresh");

21
How can I select a file or a folder

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( exshellview , "Objects") , "Get", 2);
_ObjectCallMethod(exshellview, "ExecuteTemplate", "Objects.Item(0).SelectItem(1)");

20
How can I get all files and folders as they are listed
OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( exshellview , "Objects") , "Get", 18);
Message( _ObjectGetProperty( _ObjectGetProperty( exshellview , "Objects") , "Count") );

19
How can I get all files and folders being displayed
OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( exshellview , "Objects") , "Get", 2);
Message( _ObjectGetProperty( _ObjectGetProperty( exshellview , "Objects") , "Count") );

18
How do I get the selected files or folders as they are displayed
OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( exshellview , "Objects") , "Get", 17);
Message( _ObjectGetProperty( _ObjectGetProperty( exshellview , "Objects") , "Count") );

17
How do I get the selected files or folders
OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( exshellview , "Objects") , "Get", 1);
Message( _ObjectGetProperty( _ObjectGetProperty( exshellview , "Objects") , "Count") );

16
How can I disable or enable the control's context menu

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "DefaultMenuItems", 0);

15
How can I include only files that match a pattern

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "IncludeObjectType", 3);
_ObjectSetProperty( exshellview , "FilePattern", "*.exe *.lnk");

14
How can I include only files that match a pattern

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "IncludeObjectType", 3);
_ObjectSetProperty( exshellview , "FilePattern", "*.bmp");

13
How can I list only folders in the view

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "IncludeObjectType", 2);

12
How do I specify what objects files or folders should be included in the list

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "IncludeObjectType", 2);

11
How do I browse a special folder

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "BrowseFolder", _ObjectCallMethod(exshellview, "ExecuteTemplate", "ShellFolder(SpecialFolder(2))"));

10
How can I go up to one level, so I can browse the parent folder

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "BrowseFolder", _ObjectCallMethod(exshellview, "ExecuteTemplate", "ShellFolder(`C:\`)"));
_ObjectCallMethod( exshellview , "UpOneLevel");

9
How do I browse a specified folder

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "BrowseFolder", _ObjectCallMethod(exshellview, "ExecuteTemplate", "ShellFolder(`C:\`)"));

8
How can I disable or enable the entire control

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "Enabled", 0);

7
How do I refresh the control
OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectCallMethod( exshellview , "Refresh");

6
How can I change the control's font

OBJECT exshellview,f;

exshellview =  ObjectByName("AN1") ;
f = CreateObject("StdFont");
	_ObjectSetProperty( f , "Name", "Verdana");
	_ObjectSetProperty( f , "Size", 12);
_ObjectSetProperty( exshellview , "Font", f);

5
How can I change the view, so it displays as THUMBNAIL

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "ViewMode", 5);

4
How can I change the view, so it displays as a a grid with details

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "ViewMode", 4);

3
How can I change the view, so it displays as a list

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "ViewMode", 3);

2
How can I change the view, so it displays small icons

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "ViewMode", 2);

1
How can I change the view, so it displays large icons

OBJECT exshellview;

exshellview =  ObjectByName("AN1") ;
_ObjectSetProperty( exshellview , "ViewMode", 1);