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

Procedure OnCreate
	Forward Send OnCreate
	Set ComViewMode to OLELargeIcons
	Set ComHeaderVisible to False
	Set ComBrowseFiles to "C:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\devenv.exe|C:\Program Files\Microsoft Visual FoxPro 9\vfp9.exe"
End_Procedure
39:
How do I prevent pressing the Backspace, or go up to the parent

// Occurs when the user presses a key while an object has the focus.
Procedure OnComKeyDown Short llKeyCode Short llShift
	Forward Send OnComKeyDown llKeyCode llShift
	Showln "Set the KeyCode = 0, if the KeyCode is 8 "
	Move 0 to KeyCode
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComViewMode to OLEDetails
	Set ComBrowseFolder to "c:\Temp"
	Send ComRefresh
End_Procedure
38:
How can I show grid lines around items

Procedure OnCreate
	Forward Send OnCreate
	Set ComViewMode to OLEDetails
	Set ComDrawGridLines to True
	Send ComRefresh
End_Procedure
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. )

Procedure OnCreate
	Forward Send OnCreate
	Set ComViewMode to OLELargeIcons
	Set ComOverlayIcons to False
	Send ComRefresh
End_Procedure
36:
I need to provide my own context menu but I am not able to find RClick event. What can be done

// Fired when the context menu is about to be active. You can supply new items to the context menu.
Procedure OnComQueryContextMenu String llItems String llSeparator
	Forward Send OnComQueryContextMenu llItems llSeparator
	Showln "Show here your popup/context menu"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDefaultMenuItems to False
End_Procedure
35:
How can I provide my own context menu (RClick event is missing)

// Fired when the user selects an item context menu that has been added during QueryContextMenu event.
Procedure OnComInvokeMenuCommand String llCommand
	Forward Send OnComInvokeMenuCommand llCommand
	Showln llCommand
End_Procedure

// Fired when the context menu is about to be active. You can supply new items to the context menu.
Procedure OnComQueryContextMenu String llItems String llSeparator
	Forward Send OnComQueryContextMenu llItems llSeparator
	Move "," to Separator
	Move "First,Second,Third" to Items
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDefaultMenuItems to False
End_Procedure
34:
Is it possible to specify the "Extra Large Icons" view

Procedure OnCreate
	Forward Send OnCreate
	Set ComViewMode to OLEExtra_Large_Icons
End_Procedure
33:
Is it possible to specify the "Large Icons" view

Procedure OnCreate
	Forward Send OnCreate
	Set ComViewMode to OLELarge_Icons
End_Procedure
32:
Is it possible to specify the "Medium Icons" view

Procedure OnCreate
	Forward Send OnCreate
	Set ComViewMode to OLEMedium_Icons
End_Procedure
31:
How can I hide the file names

Procedure OnCreate
	Forward Send OnCreate
	Set ComHideFileNames to True
	Set ComViewMode to OLEThumbnail
End_Procedure
30:
Is it possible to set the Auto Arrange and Align To Grid flags by code

Procedure OnCreate
	Forward Send OnCreate
	Set ComAutoArrange to True
	Set ComAlignToGrid to True
	Set ComViewMode to OLEThumbnail
End_Procedure
29:
Is it possible to set the Auto Arrange flag by code

Procedure OnCreate
	Forward Send OnCreate
	Set ComAutoArrange to True
	Set ComViewMode to OLEThumbnail
End_Procedure
28:
How do I specify the current folder

Procedure OnCreate
	Forward Send OnCreate
	Set ComCurrentFolder to "c:\windows"
End_Procedure
27:
Is it possible to disable showing tooltips for files and folders

Procedure OnCreate
	Forward Send OnCreate
	Set ComHideToolTips to True
End_Procedure
26:
Is it possible to hide the control's header

Procedure OnCreate
	Forward Send OnCreate
	Set ComHeaderVisible to False
End_Procedure
25:
How can I get the name of file being double clicked

// Fired when the user selects a new object for browsing.
Procedure OnComObjectSelect Variant llObject
	Forward Send OnComObjectSelect llObject
	Send ComCancelObjectSelect
	Showln llObject
End_Procedure


24:
How can I prevent opening or selecting a folder or zip files when user double click it
// Fired when the user selects a new object for browsing.
Procedure OnComObjectSelect Variant llObject
	Forward Send OnComObjectSelect llObject
	Send ComCancelObjectSelect
End_Procedure


23:
Is it possible to list only files, no folders

Procedure OnCreate
	Forward Send OnCreate
	Send ComModifyFolderFlags OLENoSubFolders OLENoFlag
End_Procedure
22:
How can I enable multiple selection

Procedure OnCreate
	Forward Send OnCreate
	Send ComModifyFolderFlags OLENoFlag OLESingleSel
	Send ComRefresh
End_Procedure
21:
How can I select a file or a folder

Procedure OnCreate
	Forward Send OnCreate
	Variant voExShellObjects
	Get ComObjects to voExShellObjects
	Handle hoExShellObjects
	Get Create (RefClass(cComExShellObjects)) to hoExShellObjects
	Set pvComObject of hoExShellObjects to voExShellObjects
		Send ComGet of hoExShellObjects OLEAllItems
	Send Destroy to hoExShellObjects
	Variant voExShellObjects1
	Get ComObjects to voExShellObjects1
	Handle hoExShellObjects1
	Get Create (RefClass(cComExShellObjects)) to hoExShellObjects1
	Set pvComObject of hoExShellObjects1 to voExShellObjects1
		Variant voExShellObject
		Get ComItem of hoExShellObjects1 0 to voExShellObject
		Handle hoExShellObject
		Get Create (RefClass(cComExShellObject)) to hoExShellObject
		Set pvComObject of hoExShellObject to voExShellObject
			Send ComSelectItem of hoExShellObject OLESelect
		Send Destroy to hoExShellObject
	Send Destroy to hoExShellObjects1
End_Procedure
20:
How can I get all files and folders as they are listed
Procedure OnCreate
	Forward Send OnCreate
	Variant voExShellObjects
	Get ComObjects to voExShellObjects
	Handle hoExShellObjects
	Get Create (RefClass(cComExShellObjects)) to hoExShellObjects
	Set pvComObject of hoExShellObjects to voExShellObjects
		Send ComGet of hoExShellObjects (OLEAsDisplayed + OLEAllItems)
	Send Destroy to hoExShellObjects
	Variant v
	Variant voExShellObjects1
	Get ComObjects to voExShellObjects1
	Handle hoExShellObjects1
	Get Create (RefClass(cComExShellObjects)) to hoExShellObjects1
	Set pvComObject of hoExShellObjects1 to voExShellObjects1
		Get ComCount of hoExShellObjects1 to v
	Send Destroy to hoExShellObjects1
	Showln v
End_Procedure
19:
How can I get all files and folders being displayed
Procedure OnCreate
	Forward Send OnCreate
	Variant voExShellObjects
	Get ComObjects to voExShellObjects
	Handle hoExShellObjects
	Get Create (RefClass(cComExShellObjects)) to hoExShellObjects
	Set pvComObject of hoExShellObjects to voExShellObjects
		Send ComGet of hoExShellObjects OLEAllItems
	Send Destroy to hoExShellObjects
	Variant v
	Variant voExShellObjects1
	Get ComObjects to voExShellObjects1
	Handle hoExShellObjects1
	Get Create (RefClass(cComExShellObjects)) to hoExShellObjects1
	Set pvComObject of hoExShellObjects1 to voExShellObjects1
		Get ComCount of hoExShellObjects1 to v
	Send Destroy to hoExShellObjects1
	Showln v
End_Procedure
18:
How do I get the selected files or folders as they are displayed
Procedure OnCreate
	Forward Send OnCreate
	Variant voExShellObjects
	Get ComObjects to voExShellObjects
	Handle hoExShellObjects
	Get Create (RefClass(cComExShellObjects)) to hoExShellObjects
	Set pvComObject of hoExShellObjects to voExShellObjects
		Send ComGet of hoExShellObjects (OLEAsDisplayed + OLESelectedItems)
	Send Destroy to hoExShellObjects
	Variant v
	Variant voExShellObjects1
	Get ComObjects to voExShellObjects1
	Handle hoExShellObjects1
	Get Create (RefClass(cComExShellObjects)) to hoExShellObjects1
	Set pvComObject of hoExShellObjects1 to voExShellObjects1
		Get ComCount of hoExShellObjects1 to v
	Send Destroy to hoExShellObjects1
	Showln v
End_Procedure
17:
How do I get the selected files or folders
Procedure OnCreate
	Forward Send OnCreate
	Variant voExShellObjects
	Get ComObjects to voExShellObjects
	Handle hoExShellObjects
	Get Create (RefClass(cComExShellObjects)) to hoExShellObjects
	Set pvComObject of hoExShellObjects to voExShellObjects
		Send ComGet of hoExShellObjects OLESelectedItems
	Send Destroy to hoExShellObjects
	Variant v
	Variant voExShellObjects1
	Get ComObjects to voExShellObjects1
	Handle hoExShellObjects1
	Get Create (RefClass(cComExShellObjects)) to hoExShellObjects1
	Set pvComObject of hoExShellObjects1 to voExShellObjects1
		Get ComCount of hoExShellObjects1 to v
	Send Destroy to hoExShellObjects1
	Showln v
End_Procedure
16:
How can I disable or enable the control's context menu

Procedure OnCreate
	Forward Send OnCreate
	Set ComDefaultMenuItems to False
End_Procedure
15:
How can I include only files that match a pattern

Procedure OnCreate
	Forward Send OnCreate
	Set ComIncludeObjectType to OLEPatternObjects
	Set ComFilePattern to "*.exe *.lnk"
End_Procedure
14:
How can I include only files that match a pattern

Procedure OnCreate
	Forward Send OnCreate
	Set ComIncludeObjectType to OLEPatternObjects
	Set ComFilePattern to "*.bmp"
End_Procedure
13:
How can I list only folders in the view

Procedure OnCreate
	Forward Send OnCreate
	Set ComIncludeObjectType to OLEFoldersOnly
End_Procedure
12:
How do I specify what objects files or folders should be included in the list

Procedure OnCreate
	Forward Send OnCreate
	Set ComIncludeObjectType to OLEFoldersOnly
End_Procedure
11:
How do I browse a special folder

Procedure OnCreate
	Forward Send OnCreate
	Set ComBrowseFolder to (ComShellFolder(Self,(ComSpecialFolder(Self,OLEPrograms))))
End_Procedure
10:
How can I go up to one level, so I can browse the parent folder

Procedure OnCreate
	Forward Send OnCreate
	Set ComBrowseFolder to (ComShellFolder(Self,"C:\"))
	Send ComUpOneLevel
End_Procedure
9:
How do I browse a specified folder

Procedure OnCreate
	Forward Send OnCreate
	Set ComBrowseFolder to (ComShellFolder(Self,"C:\"))
End_Procedure
8:
How can I disable or enable the entire control

Procedure OnCreate
	Forward Send OnCreate
	Set ComEnabled to False
End_Procedure
7:
How do I refresh the control
Procedure OnCreate
	Forward Send OnCreate
	Send ComRefresh
End_Procedure
6:
How can I change the control's font

Procedure OnCreate
	Forward Send OnCreate
	Variant f
	Get Comcreateobject "StdFont" to f
		Set ComName to "Verdana"
		Set ComSize to 12
	Set ComFont to f
End_Procedure
5:
How can I change the view, so it displays as THUMBNAIL

Procedure OnCreate
	Forward Send OnCreate
	Set ComViewMode to OLEThumbnail
End_Procedure
4:
How can I change the view, so it displays as a a grid with details

Procedure OnCreate
	Forward Send OnCreate
	Set ComViewMode to OLEDetails
End_Procedure
3:
How can I change the view, so it displays as a list

Procedure OnCreate
	Forward Send OnCreate
	Set ComViewMode to OLEList
End_Procedure
2:
How can I change the view, so it displays small icons

Procedure OnCreate
	Forward Send OnCreate
	Set ComViewMode to OLESmallIcon
End_Procedure
1:
How can I change the view, so it displays large icons

Procedure OnCreate
	Forward Send OnCreate
	Set ComViewMode to OLELargeIcons
End_Procedure