175:
I've came to the situation that while I am using single-selection, I need to be able to select nothing, so no file/folder to be selected. It is possible

// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum   llState
	Forward Send OnComStateChange llState
	Showln "Click and press CTRL to unselect the file/folder."
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSingleSel to True
	Set ComAllowSelectNothing to True
	Set ComExploreFromHere to ""
	Send ComEndUpdate
End_Procedure
174:
Is it possible to change the color of the selection as soon as the control is losing its focus

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSingleSel to True
	Set ComExploreFromHere to ""
	Set ComBackground OLEexSelBackColorHide to (RGB(196,196,196))
	Set ComBackground OLEexSelForeColorHide to (RGB(0,0,1))
	Send ComEndUpdate
End_Procedure
173:
Is it possible to hide the control's selecting when the control loses the focus
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSingleSel to True
	Set ComExploreFromHere to ""
	Set ComHideSelection to True
	Send ComEndUpdate
End_Procedure
172:
Can I display the folder name only, without other information like size, type, modified...

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSelectOnRelease to True
	Set ComIncludeParentLabel to "<b><%0%></b>, <fgcolor=808080>...A* folders only"
	Set ComIncludeFolderFilter to "A*"
	Set ComExploreFromHere to "C:\Windows\"
	Set ComBrowseFolderPath to "C:\Windows\System32"
	Set ComDisplayFoldersInfo to False
	Set ComFullRowSelect to True
	Send ComEndUpdate
End_Procedure
171:
Recently, I have noticed a small arrow in the right side of each folder, so the question is how can I get ride of that

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSelectOnRelease to True
	Set ComSingleSel to False
	Set ComExploreFromHere to ""
	Set ComIncludeSubFolderIconKey to 0
	Send ComEndUpdate
End_Procedure
170:
Can I select files/folders when user releases the mouse, rather than clicking it
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSelectOnRelease to True
	Set ComSingleSel to False
	Set ComExploreFromHere to ""
	Send ComEndUpdate
End_Procedure
169:
I am using the IncludeParent property. Is there any option so I can display the parent label all the time, no matter if the control is vertically scrolled

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComIncludeFolders to True
	Set ComExpandFolders to True
	Set ComIncludeParent to OLEexIncludeLockedParent
	Send ComEndUpdate
End_Procedure
168:
How can I freeze the events, so no event is fired
// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum   llState
	Forward Send OnComStateChange llState
	Showln "This will ne never fired, until FreezeEvents(False) is called."
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComFreezeEvents True
	Set ComSelectOnRelease to True
End_Procedure
167:
The focusing item does not get marked when selected

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSingleSel to False
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABHoDg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCLqhYIgASXJqLaBlOCaAieSc+QhjQJIJoeCZXU5TFg1BTsOhqEqcRiseaRVDCaIJWzbdYWLDdNQHHKYLjnWorbpSJZ5XjNEySDQkMS9PrEJ7vST8FBCdAABLJUB2BR9RwxRafKpnWwJDpmCaOQLXEB5DK1PyVMTKYrtGy7GrIAJxWxbV4UHh+QABOzIMAvHKJMwvHYcUZne5XVLeF41HbONogPaJZyIAK2cLROq6Xo7GEcJZEcLASB4DwvgWUZlE6AQQhKAYkkYdA6hyDIwHgSoqFwQgmnsYxjGgSIiBOTpSEiAwRgOJI7j4JAHA6U5wm0MpPlOBIjD8TZiGYCICiCGAuA6AxhAgMgSgOYQ4DYBg/g6cw1n+ABOmMMJ9DmCwjnScw4RsVJngkYh4hoKIKmKKI2CmC5ikiQgqgiT5jhyMw8g4QwIn0OIKEiCJhD8DwTGyfA7k0WQOEWEQkGkJhIhKZB5DYSoTiSCQEn4PQOCOXJcCeIJjliaIQk0aRyF4O5llmAhfhgZhJg4ZoYiaAxYn4PZOhOZJaCUZYTiYQw1mcOZUm+HQnHmWh4h6Z4pnYeYfk0eYsmqG4nAgNJ2DqD5DkCWoiGiOgqgyI5omoRoNiSaQKFKEojCaM4ugSFhOjkAJcieKgDkaH4oioGoOiaKRqgqEoqDddwyhuAxPgOMJ8DyDZqk6NYtCsapmjiLprHqdo6i+K5K1oPhOlqPgKD4DpjnII4yiOewuk6MxtAsMpSjObQ7EaT4wk6ewYn0PgPAiCJkjeLgDk6X44i4G4OmaORuguEpqDkLAzkaWg+E8GIUmaPIvEOVpzj2Lxbl6eo+G+S5in4OYPmOaJyjuTwjnYWpBg6DAjAqQZwkwJwNkKcJsEcEJCDBEpaD6Dw8BiapGjGSgfB2RpxmyBwgkicZ8haBw/g+M5TBcPQPlOXJskscp8jsMJMnMLJXDGTZzEyYw2kwMoDlcFw9i2M4/EGUJPg0CxFlENBtCcSJSnQfQ0m+SgPHsaJ7lALZLG6XZVHWDRfFqVY1k0ZxdladYTnifJUGaeAWAeMnSGcGWgBObJ3lWbwdjKW5cHcTZPHaLkN4GxXDlFqFsA4uRbBOGAFAEIzAsDEFOBkfYqR4D6AOBEYo8QuBvAmMceInBDgcD0JwOIqQyJ1DMAwG4IANDnHSMoK4QhOgMBGNEIQvQWAdGenETIswGiddsAAQAgCAgA==" to Nothing
	Send Destroy to hoAppearance
	Set ComSelBackColor to |CI$1000000
	Set ComSelForeColor to (RGB(0,0,0))
	Set ComShowFocusRect to True
	Set ComBackground OLEexShowFocusRect to (RGB(1,0,0))
	Send ComEndUpdate
End_Procedure
166:
Can I change the visual appearance of the focused item

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSingleSel to False
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABHoDg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCLqhYIgASXJqLaBlOCaAieSc+QhjQJIJoeCZXU5TFg1BTsOhqEqcRiseaRVDCaIJWzbdYWLDdNQHHKYLjnWorbpSJZ5XjNEySDQkMS9PrEJ7vST8FBCdAABLJUB2BR9RwxRafKpnWwJDpmCaOQLXEB5DK1PyVMTKYrtGy7GrIAJxWxbV4UHh+QABOzIMAvHKJMwvHYcUZne5XVLeF41HbONogPaJZyIAK2cLROq6Xo7GEcJZEcLASB4DwvgWUZlE6AQQhKAYkkYdA6hyDIwHgSoqFwQgmnsYxjGgSIiBOTpSEiAwRgOJI7j4JAHA6U5wm0MpPlOBIjD8TZiGYCICiCGAuA6AxhAgMgSgOYQ4DYBg/g6cw1n+ABOmMMJ9DmCwjnScw4RsVJngkYh4hoKIKmKKI2CmC5ikiQgqgiT5jhyMw8g4QwIn0OIKEiCJhD8DwTGyfA7k0WQOEWEQkGkJhIhKZB5DYSoTiSCQEn4PQOCOXJcCeIJjliaIQk0aRyF4O5llmAhfhgZhJg4ZoYiaAxYn4PZOhOZJaCUZYTiYQw1mcOZUm+HQnHmWh4h6Z4pnYeYfk0eYsmqG4nAgNJ2DqD5DkCWoiGiOgqgyI5omoRoNiSaQKFKEojCaM4ugSFhOjkAJcieKgDkaH4oioGoOiaKRqgqEoqDddwyhuAxPgOMJ8DyDZqk6NYtCsapmjiLprHqdo6i+K5K1oPhOlqPgKD4DpjnII4yiOewuk6MxtAsMpSjObQ7EaT4wk6ewYn0PgPAiCJkjeLgDk6X44i4G4OmaORuguEpqDkLAzkaWg+E8GIUmaPIvEOVpzj2Lxbl6eo+G+S5in4OYPmOaJyjuTwjnYWpBg6DAjAqQZwkwJwNkKcJsEcEJCDBEpaD6Dw8BiapGjGSgfB2RpxmyBwgkicZ8haBw/g+M5TBcPQPlOXJskscp8jsMJMnMLJXDGTZzEyYw2kwMoDlcFw9i2M4/EGUJPg0CxFlENBtCcSJSnQfQ0m+SgPHsaJ7lALZLG6XZVHWDRfFqVY1k0ZxdladYTnifJUGaeAWAeMnSGcGWgBObJ3lWbwdjKW5cHcTZPHaLkN4GxXDlFqFsA4uRbBOGAFAEIzAsDEFOBkfYqR4D6AOBEYo8QuBvAmMceInBDgcD0JwOIqQyJ1DMAwG4IANDnHSMoK4QhOgMBGNEIQvQWAdGenETIswGiddsAAQAgCAgA==" to Nothing
		Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAAEhABeEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADDFIBQSLAYROGSDJBGODJDjWGIeQLOEhQHIMRxPE6UYLhWYpBDKPYcUbGc7yBBMVwGf59XzACoKSheQIVSDQkw6Fo6NYhAxHALyNRkBy8f60KjtGpodDUJYvW5JYyjBZ8EznOqbJBkeJ7BgOe5NQjaD72VgdWQJFSWJajWYYJDOJY2ZAAE5TVINEwxJbDaylChIdxaF6WAzZEBhBYoATPNLBMrhWqKDw2XaQWBCOgwHYeR5LU7BdRwbIrRq2eAAXbcVyXfDddZlBK+QA0SK9lRVTKvJZmKgBWw1COSxmAAGw4kcNx1iKFBiCAfQsG8lJemucg7nsXpUHOOxrm+DI3jOH4XAOBx2nscw0j2HhPG4L5uGEVIECQCBCEUAYkGMHQHFGSBlGaAxkEgQgTGCVBsDYQhCgQJZrHKUggGEShkFGNgIlsNpPnMHJHD+TADAIJIJiIWIeCqChikiIgmgiD5zHyXxgiACJKCuC4jHiZgtg6I4IlkCQwkwOIonMPJjEkFhGhGZBpA4KoMBCGJuEiE5lAkGg7hMY4JEYVoUCUNAOE6FZl0KWQACWOR2GKF5mBmChchkJRZhoXYaCKKYqGuDglEmNhuhWZpIiYc4dCcCRqGmHZlgm2YxAwSQKESHwkFkKgpiAIAIH4PIimOOg2DiChoiQJRRD+TZDHCfwyAyCgyg+JpiioYJ/DgDgIlECQ6lwRAEICA=" to Nothing
		Get ComAdd of hoAppearance 3 "CP:2 -1 0 1 0" to Nothing
	Send Destroy to hoAppearance
	Set ComSelBackColor to |CI$1000000
	Set ComSelForeColor to (RGB(0,0,0))
	Set ComBackground OLEexShowFocusRect to |CI$3000000
	Send ComEndUpdate
End_Procedure
165:
How do I check if an object is a file or folder

// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum   llState
	Forward Send OnComStateChange llState
	Variant voFiles
	Get ComGet OLECheckItems to voFiles
	Handle hoFiles
	Get Create (RefClass(cComFiles)) to hoFiles
	Set pvComObject of hoFiles to voFiles
	Get ComItem of hoFiles 0 to Nothing	Send Destroy to hoFiles
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHasCheckBox to OLECheckBox
	Send ComEndUpdate
End_Procedure
164:
How do I get the selected item
// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum   llState
	Forward Send OnComStateChange llState
	Variant v
	Variant voFiles
	Get ComGet OLESelItems to voFiles
	Handle hoFiles
	Get Create (RefClass(cComFiles)) to hoFiles
	Set pvComObject of hoFiles to voFiles
		Get ComItem of hoFiles 0 to v
	Send Destroy to hoFiles
	Showln v
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to "::{00021400-0000-0000-C000-000000000046}"
	Set ComExpandFolders to True
	Set ComIncludeFiles to False
	Set ComColumnVisible "Size" to False
	Set ComColumnVisible "Type" to False
	Set ComColumnVisible "Modified" to False
	Set ComHeaderVisible to False
	Set ComExpandOnDblClk to True
	Set ComAllowRename to True
	Send ComEndUpdate
End_Procedure
163:
How can I browse the "Recycle Bin" folder
Procedure OnCreate
	Forward Send OnCreate
	Set ComExploreFromHere to "::{645FF040-5081-101B-9F08-00AA002F954E}"
End_Procedure
162:
How can I browse the "Documents" folder
Procedure OnCreate
	Forward Send OnCreate
	Set ComExploreFromHere to "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"
End_Procedure
161:
How can I browse the "Control Panel" folder
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to "::{21EC2020-3AEA-1069-A2DD-08002b30309d}"
	Set ComColumnVisible "Size" to False
	Set ComColumnVisible "Type" to False
	Set ComColumnVisible "Modified" to False
	Send ComEndUpdate
End_Procedure
160:
How can I simulate the tree part of Windows Explorer

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to "::{00021400-0000-0000-C000-000000000046}"
	Set ComExpandFolders to True
	Set ComIncludeFiles to False
	Set ComColumnVisible "Size" to False
	Set ComColumnVisible "Type" to False
	Set ComColumnVisible "Modified" to False
	Set ComHeaderVisible to False
	Set ComExpandOnDblClk to True
	Send ComEndUpdate
End_Procedure
159:
How can I browse the Network folder
Procedure OnCreate
	Forward Send OnCreate
	Set ComExploreFromHere to "::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
End_Procedure
158:
How can I browse the My Computer

Procedure OnCreate
	Forward Send OnCreate
	Set ComExploreFromHere to "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
End_Procedure
157:
How can I browse the My Network Places folder

Procedure OnCreate
	Forward Send OnCreate
	Set ComExploreFromHere to "::{208D2C60-3AEA-1069-A2D7-08002B30309D}"
End_Procedure
156:
How can I browse the Desktop folder

Procedure OnCreate
	Forward Send OnCreate
	Set ComExploreFromHere to "::{00021400-0000-0000-C000-000000000046}"
End_Procedure
155:
Does your control supports scrolling by touching the screen

Procedure OnCreate
	Forward Send OnCreate
	Set ComAutoDrag to (OLEexAutoDragScrollOnShortTouch + OLEexAutoDragScroll)
End_Procedure
154:
Do you have any Fit-To-Page options when printing the control

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "*" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to True
			Set ComStrikeOut of hoFileType to True
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
	Send ComEndUpdate
	Handle hoPrint
	Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
		Set ComOptions of hoPrint to "FitToPage = On"
		Set ComPrintExt of hoPrint to (pvComObject(Self))
		Send ComPreview of hoPrint
	Send Destroy to hoPrint
End_Procedure
153:
Is it possible to expand all folder

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to "C:\Program Files\Microsoft.NET"
	Set ComExpandFolders to True
	Send ComExpand "*"
	Send ComEndUpdate
End_Procedure
152:
How can I provide my own context menu

// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum   llState
	Forward Send OnComStateChange llState
	Showln "State " llState
	Showln "ContextMenu" (ComShowContextMenu(Self))
	Set ComShowContextMenu to "Item 1[id=1][def],Item 2[id=2],[sep][id=3],Popup[id=4](Item 3[id=5],Item 4[id=6])"
	Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
End_Procedure


151:
Is it possible to prevent executing a specific command from the object's context menu

// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum   llState
	Forward Send OnComStateChange llState
	Showln "State " llState
	Showln "ContextMenu" (ComShowContextMenu(Self))
	Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
	Set ComExecuteContextMenu to 0
End_Procedure


150:
How can I disable the Delete command from the object's context menu

// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum   llState
	Forward Send OnComStateChange llState
	Showln "State " llState
	Showln "ContextMenu" (ComShowContextMenu(Self))
	Set ComShowContextMenu to "Cu&t[id=24][dis],&Copy[id=25],[sep][id=-2],Create &shortcut[id=16],&Delete[id=17][dis]"
End_Procedure


149:
How can I change the label to be displayed in the parent folder

Procedure OnCreate
	Forward Send OnCreate
	Set ComIncludeParent to True
	Set ComIncludeParentLabel to "<b><%0%>"
	Set ComExploreFromHere to "C:\"
	Set ComBrowseFolderPath to "C:\Temp"
End_Procedure
148:
How can I change the +/- button's images (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAEGg4BCwCg6AADACAxRDAMgBQKAAzQFAYahmG6GAAGEZhYgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzXIUBxAAqXZZFUaKAg2Qg4TLBAzUTCQbR7HieQghGoqPpWF4gAhCJQGSYZaDqOQyRhkCC4DIITZkRbTUBiRSdWx8AAMIyiGpoJbudjyXg6V5OTblez9P7AMBvS6nKrhcp2PrhTSYWr+Gp5R7IMhyLI8Uw/DS/Yq1GDYIiuOoIQhCUD0LQ9EyXJqnaJnaC5aiuCT7VRjWDYFgFdTpQC8bZuGz7Trmd59XTadhYHSsAyNRDCL6tayLDxSZabZ5aOa6HoHEuJIxmOL50HgBAWgmDpEGGLJWAqbwPg+RZkH+eg9D4TxfhuRZeGGdwQH2PQTCmDpFFaKoVB+D5Xmed5pHoX44AWfR+F8UwVnEdpdkMMJKDIChygyIQpAoEh4iIJ5JlgTIcH+XoIFoEwnGEAh6A0KBgiMIICHdLgIlAM4MlKAIcCaIYIjYLoLGKIhqCcMxiSAJQ1A0IxEhsJgJFiPg+guI4yFYOA0GMWIUloNhNGIaIXCUI5CE4SwkEkchMhGCxlBkQIUCQZJZCiFIRk0aQVH8IBmAOBJeDcZJYmyFgnAmAhaGaCxmGmIhqhoZJZgiXYYAgFgCHQOYOFOEITCQCJpCyEoTVaNoACUZJiFCEoekiaZgmSHQXlYEh0DuDpTjCDQiEgchAg0IpJBoXoZiYKYqHaHAimkYguhMIZpAOMh0GEGBmg6JYqmkGowmyK4rAqNoyDsGg2BmCApCuAgNh8agrkqdYkGea4ChGCBAEAgIA==" to Nothing
		Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAEGg4BDACg6AADACAxRDAMgBQKAAzQFAYahmG6GAAGEZhYgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzXIUBxAAqXZZFUaKAg2Qg4TLBAzUTCQbR7HieQghGoqPpWF4gAhCJQGSYZaDqOQyRhkCC4DIITZkRbTUBiRSdWx8AAMIyiGpoJbudjyXg6V5OTblez9P7AMBvS6nKrhcp2PrhTSYWr+Gp5R7IMhyLI8Uw/DS/Yq1GDYIiuOoIQhCUD0LQ9EyXJqnaJnaC5aiuCT7VRjWDYFgFdTpQC8bZuGz7Trmd59XTadhYHSsAyNRDCL6tayLDxSZabZ5aOa6HoHEuJIxmOL50HgBAWgmDpEGGLJWAqbwPg+RZknOeY9D4XxfHmB5cEGdp0EyJg7BUWoqFQfY/B8f5PnOd5+H6IAHkyRR7l2NxwkwMoMgKHIjCgShCgSHgogmch2BAJwhDgVIfgUIQYDSHoCgoGAckgIIdkgFICDQDJjDSIAnAmI5+CqCpikiNgugqYhyGoJAzGIAgKCINQNCMRIbCYCRYj4PoPmOMhWDgNBjFiCJaDYTRiGiFwlCOQhOEsJBJHIThQhSJQZE4UAlAkGQ2EoJQkHMWhFF+SAZgSYQ3g2WQ2DsJYJkIYIWhmZpJioZ4aGaOYqE2GJNlmBIBGAJxjhiZQ5AkMhAg6nwpDaAglEkOgOgWIQoAmdIOh6DhJlkfRhWQOJtDsCJSCSBwkXSLIRiYaY6GqHInmmYguhgIppFIHoSDsJxmBGBhomoeo2hOK4OkqQoyiuaxDjGIxhhiAoSjoIJZnaIo+i+WhGH6OgpBiBAEIC" to Nothing
	Send Destroy to hoAppearance
	Set ComHasCheckBox to OLEPartialCheckBox
	Set ComExpandFolders to True
	Set ComBackground OLEexTreeGlyphOpen to |CI$1000000
	Set ComBackground OLEexTreeGlyphClose to |CI$2000000
	Set ComIndent to 19
	Send ComEndUpdate
End_Procedure
147:
How can I change the +/- button's images (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLoadIconsKey to 1234
	Send ComLoadIcons "gBJJgBAICAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1BfeBf7ywj/dWHf7pxWJxeKdOMx+OyGTyWVxeHdWDwuBfb/zmaeWGxGWyON02l1GU0+izOE0Ofv9J1z/am1f6/3D/Xm73W83a83vA3/B4nD4283C/2m22ez2rU2+54/C33V6nX4vW6PK5+gf+xpGYf6V8j/QiEQr/Qfr9Xs9aD9vw9/x+nz+3s8/p8iV1n9/bzPQ+r3QG+UCQFAsEQA/TyvE8Cjsk/J/mOYZgn+YBel1CxeQyYENw1DkPQ7EERw/C0MQlCkFNUx8IwnCsLxJEUSxlGkQxtDkTxdFTJQcozJPmYhhOUW5aFif8iFlI5aSTJElSZJcnSjJsiSNILlPm0j6StJUjSnKEvSfMMpS/Ip/y3LDFx6orJEE9hjmIYZ/lmWBXTlOk7TrOc6ooik9TxP8/TfOM2vhLNCQlOFATvP1GUXR080fP9BH/Q8eTUoc2PYZRjmKf5WlUVFPVBUVQ0/UM+IhU1SVXVVN07SrV0PV1WVHVVbVrXFS1zVdZ1gx9L0wxZBTaf5mGUZB/lOUZQn+UhQk8f5RE+Ttok+TlUIhaVr2lalnWhZVmWNZFh0LWNiXFZNl2bZ9q2pbVq23a14Xbddv3VdFyMnYChTZYZ/mgZxmn+UBOE1bGD4RhGCYNgGBWGQUV0pf2G4HguE4vjGF3/gOJYhS19p/fuIGoaRon+TZMP5jGV2xlD+ZJk2H4jmWYZPlOWZwimXNpkuO31kGQ2FfxtGyax/k0S5KH/lJJn/pJI6cSeoYOS+pacSmoaZo+kn/omjZlQ2h6Lrela1p+o6hqu06ttWr6ySum6RpWvZ9j+gJ4yRA70f5wm8bul7hmxLH+ThMcHlHB4PxHCcNwXAabvu/70QOI8nvm/cfx3C8PxvF89xvN8drXIn/y27bunW872cxynIf5JkgR2rklzOtYPrWzEp2nYdl1nXdM1fLd91/Y9n2vA9x5HlabpPd+L4fgV/1CePFyx3Hadh/kaRJDn+SBGkWf5I/B8XyfH8Pz/L9Hye/8Pt+76/s8s8Xq73+Pte573zf39f+/U/99r+H4PYdK3tBr0ydmzPm/eBkBIGvZgeP+CME4CHzOaYWBcDoNQQg3BKDsFIOQhPobOBBOzPikhQeo86B4WH3QTC4+sK4UCkM8YKE8KRBwrhhDtA0PIXwyhSbCEpOSLA+JXEYjxICREkAASUlETicEQiHFMpxAQ"
	Set ComHasCheckBox to OLECheckBox
	Set ComExpandFolders to True
	Set ComBackground OLEexTreeGlyphOpen to (RGB(210,4,0))
	Set ComBackground OLEexTreeGlyphClose to (RGB(211,4,0))
	Set ComIndent to 19
	Send ComEndUpdate
End_Procedure
146:
How can I change the check box button's images (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLoadIconsKey to 1234
	Send ComLoadIcons "gBJJgBAICAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1JJuBAGBJuDwWEw2FxGLw+Nws8xmKx2JymRyuCv9dy2byecyWfyk0z2X0Gj0eZqmWLmrADE1wAfexmuxfet15e3Gkluq1muYmw2U02m23+4L261FPyzJ5lF5jJ5Er5fNonP6PJpmW4dE4eWlna4MzYfjACi80t7uT7HrorR9wALXxABW+gAYv33fq9n7njb/wANWLj5vq+grAAMUEAAdcFpQ7z+KRBylQjBr9JUc8LgAMkNQA1hFQ9AcDQKAA+RI4DawnB6iRQo8VozFoADZGIADhGgAHDG6UFXHUQR4UkfAAacgwzDcUxYyZ8yQoskHy68KNBJaUExKQAHvKqYlvLEeREZsuSpK0iqMyxlzGosxmXJqNzFMigGDNoACxOEDwTBZ1zBMLJjBPIAOsnjrTyME0I0y0/z26idn7RFCug+ItAAP1Hx5O0VM7SjS0q3TENFS7TUuPtPAAeFQgAWNSTfOMRUlI1LVXTFLshTdYVZTKNRFVFU1upVbVxXdeK+iwfJXYCPJAkSSAAkqUWQnCIV6mxgAfZ6NkAA9po2A5B2ujYPnHbdtHGDwxo2h5+BncR/nwCaNh+eYYAHdR5hjdyNW2CZB28D5ho2B5hgeYNpWpZQAWeYAE3Mf5+4Mf6NoCA"
	Set ComHasCheckBox to OLECheckBox
	Set ComExpandFolders to True
	Set ComBackground OLEexCheckBoxState0 to (RGB(210,4,0))
	Set ComBackground OLEexCheckBoxState1 to (RGB(211,4,0))
	Send ComEndUpdate
End_Procedure
145:
Is it possible to show the entire line when selecting files or folders

Procedure OnCreate
	Forward Send OnCreate
	Set ComFullRowSelect to True
End_Procedure
144:
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComScrollPartVisible OLEexVScroll OLEexExtentThumbPart to True
	Set ComScrollPartVisible OLEexHScroll OLEexExtentThumbPart to True
	Set ComScrollPartVisible |CI$2 OLEexExtentThumbPart to True
	Set ComScrollWidth to 4
	Set ComBackground OLEexVSBack to (RGB(240,240,240))
	Set ComBackground OLEexVSThumb to (RGB(128,128,128))
	Set ComScrollHeight to 4
	Set ComBackground OLEexHSBack to (ComBackground(Self,OLEexVSBack))
	Set ComBackground OLEexHSThumb to (ComBackground(Self,OLEexVSThumb))
	Set ComBackground OLEexScrollSizeGrip to (ComBackground(Self,OLEexVSBack))
	Send ComEndUpdate
End_Procedure
143:
How can I change the check box button's images (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAEGg4BgsHQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxDMKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLAAYRVjSH5OAADcI1FLUEyUf6sAArB74XiCIAIQiUBomGahajkMoYZAAaDCCI2a4aDZCIoVHalKgxC5oKSqCJqbptMZ/HrgJQYGRuC4NQ7CcDKDATbr9MZ9ZBCNZoPimEYtS7MMLyRB8QpyAytaBhRaaGwmSr3U7Oc50d69FYTIxcYZoCq1XBOGYMZLcNR3La9YYnBqMbRAeJYNped6NSDVcKxLgaa4fTrOZZzHL9HpviMWYBnWOr+kwJ4zlqY53CAZQ/B4GZzmab5qHyT4cDeDInkwPp8DCTI/h+Iw7nMZZhj4B5eGKL57gYGAgAadZoG8sgBgYfxKjcSRYCCYJGGYDoDmCQgNh0ZIZAaSB2gWYJ2F4FwdhsJpuBQfRiAWdQJEAQCAg" to Nothing
		Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAEGg4BVUMQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxDMKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLAAYRVjSH5OAADcI1FLUEyUf6sAArB74XiCIAIQiUBomGahajkMoYZAAaDCCI2a4aDZCIoVHalKgxC5oKSqCJqbptMZ/HrgJQYGRuC4NQ7CcDKDATbr9MZ9ZBCNZoPimEYtS7MMLQXK8QpyAytaBhRaaGwmSr3U7Oc50d69FYQXqvYZoCq1XBOGYMZLcNR3La9YYnBqMbRAeJYNpedy2YbkFC5LStHwbCrBVpxWotDxQjWVgrHYGI9iybhbiGUo+jafA6DKZxjkoVgxHoHR+iqXx2jMA52l8XJ/CMJ5TkaCp7nmOwHk+XovmECR8BWMYyAIHAgEOBgGFaSo4CWeQVgoSA0lOA5fEGEZQBSYRGBieYFlWMhiBoPZhkabI3geYIzDYIoHA8dxAH2CZYGMLgqHeW4zAYLgWCMB4gGIeoOjcQgJCqWBhgIOhvGKRhAn2D5blcWBaB+JBGi2EhWAgOQlhmEpYgiHB9DwJQCloUgWmUQoOFaEZXlaSB2haZJGF4WwdhsJRslmGJGDmFhYg8ZoHBiZYalCFAEIC" to Nothing
	Send Destroy to hoAppearance
	Set ComHasCheckBox to OLEPartialCheckBox
	Set ComExpandFolders to True
	Set ComBackground OLEexCheckBoxState0 to |CI$1000000
	Set ComBackground OLEexCheckBoxState1 to |CI$2000000
	Set ComBackground OLEexCheckBoxState2 to |CI$2d7f7f2
	Send ComEndUpdate
End_Procedure
142:
Is it possible to displays only KB, MB, GB when case, so with no Bytes

Procedure OnCreate
	Forward Send OnCreate
	Set ComOption OLEexSizeFormat to 14
End_Procedure
141:
Is it possible to displays Bytes, KB, MB, GB when case

Procedure OnCreate
	Forward Send OnCreate
	Set ComOption OLEexSizeFormat to 15
End_Procedure
140:
Is it possible to displays Bytes combined with Mega-Bytes(MB) in the Size column

Procedure OnCreate
	Forward Send OnCreate
	Set ComOption OLEexSizeFormat to 5
End_Procedure
139:
Is it possible to displays Giga-Bytes(GB) only in the Size column

Procedure OnCreate
	Forward Send OnCreate
	Set ComOption OLEexSizeFormat to 8
End_Procedure
138:
Is it possible to displays Mega-Bytes(MB) only in the Size column

Procedure OnCreate
	Forward Send OnCreate
	Set ComOption OLEexSizeFormat to 4
End_Procedure
137:
Is it possible to displays Kilo-Bytes(KB) only in the Size column

Procedure OnCreate
	Forward Send OnCreate
	Set ComOption OLEexSizeFormat to 2
End_Procedure
136:
Is it possible to displays Bytes only in the Size column

Procedure OnCreate
	Forward Send OnCreate
	Set ComOption OLEexSizeFormat to 1
End_Procedure
135:
How can I simulate a go back or navigating to the parent folder

Procedure OnCreate
	Forward Send OnCreate
	Set ComBrowseFolderPath to "C:\Program Files"
	Set ComBrowseFolderPath to ".."
End_Procedure
134:
Does your control support runtime filter

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComColumnFilterButton "Name" to True
	Send ComAddColumnCustomFilter "Name" "All  Project Files (*.sln, *.dsw)" "*.sln|*.dsw"
	Send ComAddColumnCustomFilter "Name" "Solution Files (*.sln)" "*.sln"
	Send ComAddColumnCustomFilter "Name" "Compatible Workspace Files (*.dsw)" "*.dsw"
	Set ComFilterBarDropDownWidth "Name" to -212
	Set ComColumnFilterButton "Type" to True
	Set ComFilterBarDropDownWidth "Type" to -128
	Set ComColumnFilterButton "Modified" to True
	Send ComEndUpdate
End_Procedure
133:
How can I reffer a folder or a file, without using the wild characters

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "TEMP" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComHasPattern of hoFileType to False
			Set ComFolder of hoFileType to True
			Set ComBold of hoFileType to True
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
132:
How do I change the text being diplayed in the Type column for specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "*.bat" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to False
			Set ComType of hoFileType to "__newtype__"
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
131:
How do I change the text being diplayed in the Type column for specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "*" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to False
			Set ComType of hoFileType to "__newtype__"
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
130:
How do I change the text being diplayed in the Type column for specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "W*" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to True
			Set ComType of hoFileType to "__newtype__"
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
129:
How do I change the text being diplayed in the Type column for specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "*" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to True
			Set ComType of hoFileType to "__newtype__"
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
128:
How do I underline specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "*.bat" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to False
			Set ComUnderline of hoFileType to True
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
127:
How do I underline specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "*" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to False
			Set ComUnderline of hoFileType to True
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
126:
How do I underline specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "W*" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to True
			Set ComUnderline of hoFileType to True
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
125:
How do I underline specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "*" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to True
			Set ComUnderline of hoFileType to True
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
124:
How do I draw as strikeout specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "*.bat" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to False
			Set ComStrikeOut of hoFileType to True
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
123:
How do I draw as strikeout specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "*" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to False
			Set ComStrikeOut of hoFileType to True
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
122:
How do I draw as strikeout specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "W*" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to True
			Set ComStrikeOut of hoFileType to True
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
121:
How do I draw as strikeout specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "*" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to True
			Set ComStrikeOut of hoFileType to True
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
120:
How do I draw as italic specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "*.bat" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to False
			Set ComItalic of hoFileType to True
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
119:
How do I draw as italic specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "*" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to False
			Set ComItalic of hoFileType to True
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
118:
How do I draw as italic specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "W*" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to True
			Set ComItalic of hoFileType to True
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
117:
How do I draw as italic specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "*" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to True
			Set ComItalic of hoFileType to True
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
116:
How do I bold specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "*.bat" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to False
			Set ComBold of hoFileType to True
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
115:
How do I bold specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "*" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to False
			Set ComBold of hoFileType to True
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
114:
How do I bold specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "W*" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to True
			Set ComBold of hoFileType to True
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
113:
How do I bold specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "*" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to True
			Set ComBold of hoFileType to True
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
112:
How do I change the background color for specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "*.bat" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to False
			Set ComBackColor of hoFileType to (RGB(255,0,0))
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
111:
How do I change the background color for specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "*" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to False
			Set ComBackColor of hoFileType to (RGB(255,0,0))
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
110:
How do I change the background color for specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "W*" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to True
			Set ComBackColor of hoFileType to (RGB(255,0,0))
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
109:
How do I change the background color for specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "*" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to True
			Set ComBackColor of hoFileType to (RGB(255,0,0))
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
108:
How do I change the foreground color for specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "*.bat" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to False
			Set ComForeColor of hoFileType to (RGB(255,0,0))
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
107:
How do I change the foreground color for specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "*" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to False
			Set ComForeColor of hoFileType to (RGB(255,0,0))
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
106:
How do I change the foreground color for specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "W*" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to True
			Set ComForeColor of hoFileType to (RGB(255,0,0))
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
105:
How do I change the foreground color for specified files or folders

Procedure OnCreate
	Forward Send OnCreate
	Variant voFileTypes
	Get ComFileTypes to voFileTypes
	Handle hoFileTypes
	Get Create (RefClass(cComFileTypes)) to hoFileTypes
	Set pvComObject of hoFileTypes to voFileTypes
		Variant voFileType
		Get ComAdd of hoFileTypes "*" to voFileType
		Handle hoFileType
		Get Create (RefClass(cComFileType)) to hoFileType
		Set pvComObject of hoFileType to voFileType
			Set ComFolder of hoFileType to True
			Set ComForeColor of hoFileType to (RGB(255,0,0))
			Send ComApply of hoFileType
		Send Destroy to hoFileType
	Send Destroy to hoFileTypes
End_Procedure
104:
How do I get the count of all items
Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voFiles
	Get ComGet OLEVisibleItems to voFiles
	Handle hoFiles
	Get Create (RefClass(cComFiles)) to hoFiles
	Set pvComObject of hoFiles to voFiles
		Get ComCount of hoFiles to v
	Send Destroy to hoFiles
	Variant var_Count
	Move v to var_Count
End_Procedure
103:
How do I get the count oc checked items

Procedure OnCreate
	Forward Send OnCreate
	Set ComHasCheckBox to OLECheckBox
	Variant v
	Variant voFiles
	Get ComGet OLECheckItems to voFiles
	Handle hoFiles
	Get Create (RefClass(cComFiles)) to hoFiles
	Set pvComObject of hoFiles to voFiles
		Get ComCount of hoFiles to v
	Send Destroy to hoFiles
	Variant var_Count
	Move v to var_Count
End_Procedure
102:
How do I get the count of all items
Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voFiles
	Get ComGet OLEAllItems to voFiles
	Handle hoFiles
	Get Create (RefClass(cComFiles)) to hoFiles
	Set pvComObject of hoFiles to voFiles
		Get ComCount of hoFiles to v
	Send Destroy to hoFiles
	Variant var_Count
	Move v to var_Count
End_Procedure
101:
How do I get the selected folder

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voFiles
	Get ComGet OLESelItems to voFiles
	Handle hoFiles
	Get Create (RefClass(cComFiles)) to hoFiles
	Set pvComObject of hoFiles to voFiles
		Get ComCount of hoFiles to v
	Send Destroy to hoFiles
	Variant var_Count
	Move v to var_Count
End_Procedure