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

PROCEDURE OnStateChange(oExFileView,State)
	DevOut( "Click and press CTRL to unselect the file/folder." )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:StateChange := {|State| OnStateChange(oExFileView,State)} /*Fired while the control's state has been changed.*/

		oExFileView:BeginUpdate()
		oExFileView:SingleSel := .T.
		oExFileView:AllowSelectNothing := .T.
		oExFileView:ExploreFromHere := ""
		oExFileView:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
174:
Is it possible to change the color of the selection as soon as the control is losing its focus

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:BeginUpdate()
		oExFileView:SingleSel := .T.
		oExFileView:ExploreFromHere := ""
		oExFileView:SetProperty("Background",166/*exSelBackColorHide*/,AutomationTranslateColor( GraMakeRGBColor  ( { 196,196,196 } )  , .F. ))
		oExFileView:SetProperty("Background",167/*exSelForeColorHide*/,AutomationTranslateColor( GraMakeRGBColor  ( { 0,0,1 } )  , .F. ))
		oExFileView:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
173:
Is it possible to hide the control's selecting when the control loses the focus
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:BeginUpdate()
		oExFileView:SingleSel := .T.
		oExFileView:ExploreFromHere := ""
		oExFileView:HideSelection := .T.
		oExFileView:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
172:
Can I display the folder name only, without other information like size, type, modified...

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:BeginUpdate()
		oExFileView:SelectOnRelease := .T.
		oExFileView:IncludeParentLabel := "<b><%0%></b>, <fgcolor=808080>...A* folders only"
		oExFileView:IncludeFolderFilter := "A*"
		oExFileView:ExploreFromHere := "C:\Windows\"
		oExFileView:BrowseFolderPath := "C:\Windows\System32"
		oExFileView:DisplayFoldersInfo := .F.
		oExFileView:FullRowSelect := .T.
		oExFileView:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
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

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:BeginUpdate()
		oExFileView:SelectOnRelease := .T.
		oExFileView:SingleSel := .F.
		oExFileView:ExploreFromHere := ""
		oExFileView:IncludeSubFolderIconKey := 0
		oExFileView:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
170:
Can I select files/folders when user releases the mouse, rather than clicking it
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:BeginUpdate()
		oExFileView:SelectOnRelease := .T.
		oExFileView:SingleSel := .F.
		oExFileView:ExploreFromHere := ""
		oExFileView:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
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

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:BeginUpdate()
		oExFileView:IncludeFolders := .T.
		oExFileView:ExpandFolders := .T.
		oExFileView:IncludeParent := 2/*exIncludeLockedParent*/
		oExFileView:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
168:
How can I freeze the events, so no event is fired
PROCEDURE OnStateChange(oExFileView,State)
	DevOut( "This will ne never fired, until FreezeEvents(False) is called." )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:StateChange := {|State| OnStateChange(oExFileView,State)} /*Fired while the control's state has been changed.*/

		oExFileView:FreezeEvents(.T.)
		oExFileView:SelectOnRelease := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
167:
The focusing item does not get marked when selected

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oAppearance

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:BeginUpdate()
		oExFileView:SingleSel := .F.
		oAppearance := oExFileView:VisualAppearance()
			oAppearance:Add(1,"gBFLBCJwBAEHhEJAAEhABHoDg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCLqhYIgASXJqLaBlOCaAieSc+QhjQJIJoeCZXU5TFg1BTsOhqEqcRiseaRVDCaIJWzbdYWLDdNQHHKYLjnWorbpSJZ5XjNEySDQkMS9PrEJ7vST8FBCdAABLJUB2BR9RwxRafKpnWwJDpmCaOQLXEB5DK1PyVMTKYrtGy7GrIAJxWxbV4UHh+QABOzIMAvHKJMwvHYcUZne5XVLeF41HbONogPaJZyIAK2cLROq6Xo7GEcJZEcLASB4DwvgWUZlE6AQQhKAYkkYdA6hyDIwHgSoqFwQgmnsYxjGgSIiBOTpSEiAwRgOJI7j4JAHA6U5wm0MpPlOBIjD8TZiGYCICiCGAuA6AxhAgMgSgOYQ4DY" +;
		"Bg/g6cw1n+ABOmMMJ9DmCwjnScw4RsVJngkYh4hoKIKmKKI2CmC5ikiQgqgiT5jhyMw8g4QwIn0OIKEiCJhD8DwTGyfA7k0WQOEWEQkGkJhIhKZB5DYSoTiSCQEn4PQOCOXJcCeIJjliaIQk0aRyF4O5llmAhfhgZhJg4ZoYiaAxYn4PZOhOZJaCUZYTiYQw1mcOZUm+HQnHmWh4h6Z4pnYeYfk0eYsmqG4nAgNJ2DqD5DkCWoiGiOgqgyI5omoRoNiSaQKFKEojCaM4ugSFhOjkAJcieKgDkaH4oioGoOiaKRqgqEoqDddwyhuAxPgOMJ8DyDZqk6NYtCsapmjiLprHqdo6i+K5K1oPhOlqPgKD4DpjnII4yiOewuk6MxtAsMpSjObQ7EaT4wk6ewYn0PgPAiCJkjeLgDk6X44i4G4OmaORuguEpqDkLAzkaWg+E8GIUmaPIvEOVpzj2Lxbl6eo+G+S5in4OYPmOaJyjuTwjnYWpBg6DAjAqQZwkwJw" +;
		"NkKcJsEcEJCDBEpaD6Dw8BiapGjGSgfB2RpxmyBwgkicZ8haBw/g+M5TBcPQPlOXJskscp8jsMJMnMLJXDGTZzEyYw2kwMoDlcFw9i2M4/EGUJPg0CxFlENBtCcSJSnQfQ0m+SgPHsaJ7lALZLG6XZVHWDRfFqVY1k0ZxdladYTnifJUGaeAWAeMnSGcGWgBObJ3lWbwdjKW5cHcTZPHaLkN4GxXDlFqFsA4uRbBOGAFAEIzAsDEFOBkfYqR4D6AOBEYo8QuBvAmMceInBDgcD0JwOIqQyJ1DMAwG4IANDnHSMoK4QhOgMBGNEIQvQWAdGenETIswGiddsAAQAgCAgA==")
		oExFileView:SetProperty("SelBackColor",0x1000000)
		oExFileView:SetProperty("SelForeColor",AutomationTranslateColor( GraMakeRGBColor  ( { 0,0,0 } )  , .F. ))
		oExFileView:ShowFocusRect := .T.
		oExFileView:SetProperty("Background",19/*exShowFocusRect*/,AutomationTranslateColor( GraMakeRGBColor  ( { 1,0,0 } )  , .F. ))
		oExFileView:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
166:
Can I change the visual appearance of the focused item

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oAppearance

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:BeginUpdate()
		oExFileView:SingleSel := .F.
		oAppearance := oExFileView:VisualAppearance()
			oAppearance:Add(1,"gBFLBCJwBAEHhEJAAEhABHoDg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCLqhYIgASXJqLaBlOCaAieSc+QhjQJIJoeCZXU5TFg1BTsOhqEqcRiseaRVDCaIJWzbdYWLDdNQHHKYLjnWorbpSJZ5XjNEySDQkMS9PrEJ7vST8FBCdAABLJUB2BR9RwxRafKpnWwJDpmCaOQLXEB5DK1PyVMTKYrtGy7GrIAJxWxbV4UHh+QABOzIMAvHKJMwvHYcUZne5XVLeF41HbONogPaJZyIAK2cLROq6Xo7GEcJZEcLASB4DwvgWUZlE6AQQhKAYkkYdA6hyDIwHgSoqFwQgmnsYxjGgSIiBOTpSEiAwRgOJI7j4JAHA6U5wm0MpPlOBIjD8TZiGYCICiCGAuA6AxhAgMgSgOYQ4DY" +;
		"Bg/g6cw1n+ABOmMMJ9DmCwjnScw4RsVJngkYh4hoKIKmKKI2CmC5ikiQgqgiT5jhyMw8g4QwIn0OIKEiCJhD8DwTGyfA7k0WQOEWEQkGkJhIhKZB5DYSoTiSCQEn4PQOCOXJcCeIJjliaIQk0aRyF4O5llmAhfhgZhJg4ZoYiaAxYn4PZOhOZJaCUZYTiYQw1mcOZUm+HQnHmWh4h6Z4pnYeYfk0eYsmqG4nAgNJ2DqD5DkCWoiGiOgqgyI5omoRoNiSaQKFKEojCaM4ugSFhOjkAJcieKgDkaH4oioGoOiaKRqgqEoqDddwyhuAxPgOMJ8DyDZqk6NYtCsapmjiLprHqdo6i+K5K1oPhOlqPgKD4DpjnII4yiOewuk6MxtAsMpSjObQ7EaT4wk6ewYn0PgPAiCJkjeLgDk6X44i4G4OmaORuguEpqDkLAzkaWg+E8GIUmaPIvEOVpzj2Lxbl6eo+G+S5in4OYPmOaJyjuTwjnYWpBg6DAjAqQZwkwJw" +;
		"NkKcJsEcEJCDBEpaD6Dw8BiapGjGSgfB2RpxmyBwgkicZ8haBw/g+M5TBcPQPlOXJskscp8jsMJMnMLJXDGTZzEyYw2kwMoDlcFw9i2M4/EGUJPg0CxFlENBtCcSJSnQfQ0m+SgPHsaJ7lALZLG6XZVHWDRfFqVY1k0ZxdladYTnifJUGaeAWAeMnSGcGWgBObJ3lWbwdjKW5cHcTZPHaLkN4GxXDlFqFsA4uRbBOGAFAEIzAsDEFOBkfYqR4D6AOBEYo8QuBvAmMceInBDgcD0JwOIqQyJ1DMAwG4IANDnHSMoK4QhOgMBGNEIQvQWAdGenETIswGiddsAAQAgCAgA==")
			oAppearance:Add(2,"gBFLBCJwBAEHhEJAAEhABeEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADDFIBQSLAYROGSDJBGODJDjWGIeQLOEhQHIMRxPE6UYLhWYpBDKPYcUbGc7yBBMVwGf59XzACoKSheQIVSDQkw6Fo6NYhAxHALyNRkBy8f60KjtGpodDUJYvW5JYyjBZ8EznOqbJBkeJ7BgOe5NQjaD72VgdWQJFSWJajWYYJDOJY2ZAAE5TVINEwxJbDaylChIdxaF6WAzZEBhBYoATPNLBMrhWqKDw2XaQWBCOgwHYeR5LU7BdRwbIrRq2eAAXbcVyXfDddZlBK+QA0SK9lRVTKvJZmKgBWw1COSxmAAGw4kcNx1iKFBiCAfQsG8lJemucg7nsXpUHOOxrm+DI3jOH4XAOBx2nscw0j2HhPG4L5uGEVIECQCBCEUAYkGMHQHFGSBlGaAxkEgQgTGCVBsDYQhCgQJZrHK" +;
		"UggGEShkFGNgIlsNpPnMHJHD+TADAIJIJiIWIeCqChikiIgmgiD5zHyXxgiACJKCuC4jHiZgtg6I4IlkCQwkwOIonMPJjEkFhGhGZBpA4KoMBCGJuEiE5lAkGg7hMY4JEYVoUCUNAOE6FZl0KWQACWOR2GKF5mBmChchkJRZhoXYaCKKYqGuDglEmNhuhWZpIiYc4dCcCRqGmHZlgm2YxAwSQKESHwkFkKgpiAIAIH4PIimOOg2DiChoiQJRRD+TZDHCfwyAyCgyg+JpiioYJ/DgDgIlECQ6lwRAEICA=")
			oAppearance:Add(3,"CP:2 -1 0 1 0")
		oExFileView:SetProperty("SelBackColor",0x1000000)
		oExFileView:SetProperty("SelForeColor",AutomationTranslateColor( GraMakeRGBColor  ( { 0,0,0 } )  , .F. ))
		oExFileView:SetProperty("Background",19/*exShowFocusRect*/,0x3000000)
		oExFileView:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
165:
How do I check if an object is a file or folder

PROCEDURE OnStateChange(oExFileView,State)
	LOCAL oObject
	oObject := oExFileView:Get(2/*CheckItems*/):Item(0)
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:StateChange := {|State| OnStateChange(oExFileView,State)} /*Fired while the control's state has been changed.*/

		oExFileView:BeginUpdate()
		oExFileView:HasCheckBox := -1/*CheckBox*/
		oExFileView:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
164:
How do I get the selected item
PROCEDURE OnStateChange(oExFileView,State)
	DevOut( Transform(oExFileView:Get(0/*SelItems*/):Item(0),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:StateChange := {|State| OnStateChange(oExFileView,State)} /*Fired while the control's state has been changed.*/

		oExFileView:BeginUpdate()
		oExFileView:ExploreFromHere := "::{00021400-0000-0000-C000-000000000046}"
		oExFileView:ExpandFolders := .T.
		oExFileView:IncludeFiles := .F.
		oExFileView:SetProperty("ColumnVisible","Size",.F.)
		oExFileView:SetProperty("ColumnVisible","Type",.F.)
		oExFileView:SetProperty("ColumnVisible","Modified",.F.)
		oExFileView:HeaderVisible := .F.
		oExFileView:ExpandOnDblClk := .T.
		oExFileView:AllowRename := .T.
		oExFileView:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
163:
How can I browse the "Recycle Bin" folder
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:ExploreFromHere := "::{645FF040-5081-101B-9F08-00AA002F954E}"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
162:
How can I browse the "Documents" folder
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:ExploreFromHere := "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
161:
How can I browse the "Control Panel" folder
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:BeginUpdate()
		oExFileView:ExploreFromHere := "::{21EC2020-3AEA-1069-A2DD-08002b30309d}"
		oExFileView:SetProperty("ColumnVisible","Size",.F.)
		oExFileView:SetProperty("ColumnVisible","Type",.F.)
		oExFileView:SetProperty("ColumnVisible","Modified",.F.)
		oExFileView:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
160:
How can I simulate the tree part of Windows Explorer

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:BeginUpdate()
		oExFileView:ExploreFromHere := "::{00021400-0000-0000-C000-000000000046}"
		oExFileView:ExpandFolders := .T.
		oExFileView:IncludeFiles := .F.
		oExFileView:SetProperty("ColumnVisible","Size",.F.)
		oExFileView:SetProperty("ColumnVisible","Type",.F.)
		oExFileView:SetProperty("ColumnVisible","Modified",.F.)
		oExFileView:HeaderVisible := .F.
		oExFileView:ExpandOnDblClk := .T.
		oExFileView:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
159:
How can I browse the Network folder
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:ExploreFromHere := "::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
158:
How can I browse the My Computer

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:ExploreFromHere := "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
157:
How can I browse the My Network Places folder

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:ExploreFromHere := "::{208D2C60-3AEA-1069-A2D7-08002B30309D}"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
156:
How can I browse the Desktop folder

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:ExploreFromHere := "::{00021400-0000-0000-C000-000000000046}"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
155:
Does your control supports scrolling by touching the screen

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:AutoDrag := 4112/*exAutoDragScrollOnShortTouch+exAutoDragScroll*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
154:
Do you have any Fit-To-Page options when printing the control

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oPrint
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:BeginUpdate()
		oFileType := oExFileView:FileTypes():Add("*")
			oFileType:Folder := .T.
			oFileType:StrikeOut := .T.
			oFileType:Apply()
		oExFileView:EndUpdate()
		oPrint := CreateObject("Exontrol.Print")
			oPrint:Options := "FitToPage = On"
			oPrint:PrintExt := oExFileView
			oPrint:Preview()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
153:
Is it possible to expand all folder

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:BeginUpdate()
		oExFileView:ExploreFromHere := "C:\Program Files\Microsoft.NET"
		oExFileView:ExpandFolders := .T.
		oExFileView:Expand("*")
		oExFileView:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
152:
How can I provide my own context menu

PROCEDURE OnStateChange(oExFileView,State)
	DevOut( "State " )
	DevOut( Transform(State,"") )
	DevOut( "ContextMenu" )
	DevOut( oExFileView:ShowContextMenu() )
	oExFileView:ShowContextMenu := "Item 1[id=1][def],Item 2[id=2],[sep][id=3],Popup[id=4](Item 3[id=5],Item 4[id=6])"
	DevOut( "ExecuteContextMenu" )
	DevOut( Transform(oExFileView:ExecuteContextMenu(),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:StateChange := {|State| OnStateChange(oExFileView,State)} /*Fired while the control's state has been changed.*/


	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
151:
Is it possible to prevent executing a specific command from the object's context menu

PROCEDURE OnStateChange(oExFileView,State)
	DevOut( "State " )
	DevOut( Transform(State,"") )
	DevOut( "ContextMenu" )
	DevOut( oExFileView:ShowContextMenu() )
	DevOut( "ExecuteContextMenu" )
	DevOut( Transform(oExFileView:ExecuteContextMenu(),"") )
	oExFileView:ExecuteContextMenu := 0
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:StateChange := {|State| OnStateChange(oExFileView,State)} /*Fired while the control's state has been changed.*/


	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
150:
How can I disable the Delete command from the object's context menu

PROCEDURE OnStateChange(oExFileView,State)
	DevOut( "State " )
	DevOut( Transform(State,"") )
	DevOut( "ContextMenu" )
	DevOut( oExFileView:ShowContextMenu() )
	oExFileView:ShowContextMenu := "Cu&t[id=24][dis],&Copy[id=25],[sep][id=-2],Create &shortcut[id=16],&Delete[id=17][dis]"
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:StateChange := {|State| OnStateChange(oExFileView,State)} /*Fired while the control's state has been changed.*/


	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
149:
How can I change the label to be displayed in the parent folder

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:IncludeParent := -1/*0xfffffffc+exIncludeLockedParent+exIncludeParent*/
		oExFileView:IncludeParentLabel := "<b><%0%>"
		oExFileView:ExploreFromHere := "C:\"
		oExFileView:BrowseFolderPath := "C:\Temp"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
148:
How can I change the +/- button's images (method 2)

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oAppearance

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:BeginUpdate()
		oAppearance := oExFileView:VisualAppearance()
			oAppearance:Add(1,"gBFLBCJwBAEHhEJAEGg4BCwCg6AADACAxRDAMgBQKAAzQFAYahmG6GAAGEZhYgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzXIUBxAAqXZZFUaKAg2Qg4TLBAzUTCQbR7HieQghGoqPpWF4gAhCJQGSYZaDqOQyRhkCC4DIITZkRbTUBiRSdWx8AAMIyiGpoJbudjyXg6V5OTblez9P7AMBvS6nKrhcp2PrhTSYWr+Gp5R7IMhyLI8Uw/DS/Yq1GDYIiuOoIQhCUD0LQ9EyXJqnaJnaC5aiuCT7VRjWDYFgFdTpQC8bZuGz7Trmd59XTadhYHSsAyNRDCL6tayLDxSZabZ5aOa6HoHEuJIxmOL50HgBAWgmDpEGGLJWAqbwPg+RZkH+eg9D4TxfhuRZeGGdwQH2PQTCmDpFFaKoVB+D5Xmed5pHoX44AWfR+F8UwVnEdpdkMMJKDIChygyIQpAoEh4iIJ5Jlg" +;
		"TIcH+XoIFoEwnGEAh6A0KBgiMIICHdLgIlAM4MlKAIcCaIYIjYLoLGKIhqCcMxiSAJQ1A0IxEhsJgJFiPg+guI4yFYOA0GMWIUloNhNGIaIXCUI5CE4SwkEkchMhGCxlBkQIUCQZJZCiFIRk0aQVH8IBmAOBJeDcZJYmyFgnAmAhaGaCxmGmIhqhoZJZgiXYYAgFgCHQOYOFOEITCQCJpCyEoTVaNoACUZJiFCEoekiaZgmSHQXlYEh0DuDpTjCDQiEgchAg0IpJBoXoZiYKYqHaHAimkYguhMIZpAOMh0GEGBmg6JYqmkGowmyK4rAqNoyDsGg2BmCApCuAgNh8agrkqdYkGea4ChGCBAEAgIA==")
			oAppearance:Add(2,"gBFLBCJwBAEHhEJAEGg4BDACg6AADACAxRDAMgBQKAAzQFAYahmG6GAAGEZhYgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzXIUBxAAqXZZFUaKAg2Qg4TLBAzUTCQbR7HieQghGoqPpWF4gAhCJQGSYZaDqOQyRhkCC4DIITZkRbTUBiRSdWx8AAMIyiGpoJbudjyXg6V5OTblez9P7AMBvS6nKrhcp2PrhTSYWr+Gp5R7IMhyLI8Uw/DS/Yq1GDYIiuOoIQhCUD0LQ9EyXJqnaJnaC5aiuCT7VRjWDYFgFdTpQC8bZuGz7Trmd59XTadhYHSsAyNRDCL6tayLDxSZabZ5aOa6HoHEuJIxmOL50HgBAWgmDpEGGLJWAqbwPg+RZknOeY9D4XxfHmB5cEGdp0EyJg7BUWoqFQfY/B8f5PnOd5+H6IAHkyRR7l2NxwkwMoMgKHIjCgShCgSHgogmch2BAJwhDg" +;
		"VIfgUIQYDSHoCgoGAckgIIdkgFICDQDJjDSIAnAmI5+CqCpikiNgugqYhyGoJAzGIAgKCINQNCMRIbCYCRYj4PoPmOMhWDgNBjFiCJaDYTRiGiFwlCOQhOEsJBJHIThQhSJQZE4UAlAkGQ2EoJQkHMWhFF+SAZgSYQ3g2WQ2DsJYJkIYIWhmZpJioZ4aGaOYqE2GJNlmBIBGAJxjhiZQ5AkMhAg6nwpDaAglEkOgOgWIQoAmdIOh6DhJlkfRhWQOJtDsCJSCSBwkXSLIRiYaY6GqHInmmYguhgIppFIHoSDsJxmBGBhomoeo2hOK4OkqQoyiuaxDjGIxhhiAoSjoIJZnaIo+i+WhGH6OgpBiBAEIC")
		oExFileView:HasCheckBox := 1/*PartialCheckBox*/
		oExFileView:ExpandFolders := .T.
		oExFileView:SetProperty("Background",87/*exTreeGlyphOpen*/,0x1000000)
		oExFileView:SetProperty("Background",88/*exTreeGlyphClose*/,0x2000000)
		oExFileView:Indent := 19
		oExFileView:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
147:
How can I change the +/- button's images (method 1)

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:BeginUpdate()
		oExFileView:LoadIconsKey := 1234
		oExFileView:LoadIcons("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/C0MQlCkFNUx8IwnCsLxJEUSxlGkQxtDkTxdFTJQcozJPmYhhOUW5aFif8iFlI5aST" +;
		"JElSZJcnSjJsiSNILlPm0j6StJUjSnKEvSfMMpS/Ip/y3LDFx6orJEE9hjmIYZ/lmWBXTlOk7TrOc6ooik9TxP8/TfOM2vhLNCQlOFATvP1GUXR080fP9BH/Q8eTUoc2PYZRjmKf5WlUVFPVBUVQ0/UM+IhU1SVXVVN07SrV0PV1WVHVVbVrXFS1zVdZ1gx9L0wxZBTaf5mGUZB/lOUZQn+UhQk8f5RE+Ttok+TlUIhaVr2lalnWhZVmWNZFh0LWNiXFZNl2bZ9q2pbVq23a14Xbddv3VdFyMnYChTZYZ/mgZxmn+UBOE1bGD4RhGCYNgGBWGQUV0pf2G4HguE4vjGF3/gOJYhS19p/fuIGoaRon+TZMP5jGV2xlD+ZJk2H4jmWYZPlOWZwimXNpkuO31kGQ2FfxtGyax/k0S5KH/lJJn/pJI6cSeoYOS+pacSmoaZo+kn/omjZlQ2h6Lrela1p+o6hqu06ttWr6ySum6RpWvZ9j+gJ4yRA70f5wm8bu" +;
		"l7hmxLH+ThMcHlHB4PxHCcNwXAabvu/70QOI8nvm/cfx3C8PxvF89xvN8drXIn/y27bunW872cxynIf5JkgR2rklzOtYPrWzEp2nYdl1nXdM1fLd91/Y9n2vA9x5HlabpPd+L4fgV/1CePFyx3Hadh/kaRJDn+SBGkWf5I/B8XyfH8Pz/L9Hye/8Pt+76/s8s8Xq73+Pte573zf39f+/U/99r+H4PYdK3tBr0ydmzPm/eBkBIGvZgeP+CME4CHzOaYWBcDoNQQg3BKDsFIOQhPobOBBOzPikhQeo86B4WH3QTC4+sK4UCkM8YKE8KRBwrhhDtA0PIXwyhSbCEpOSLA+JXEYjxICREkAASUlETicEQiHFMpxAQ")
		oExFileView:HasCheckBox := -1/*CheckBox*/
		oExFileView:ExpandFolders := .T.
		oExFileView:SetProperty("Background",87/*exTreeGlyphOpen*/,AutomationTranslateColor( GraMakeRGBColor  ( { 210,4,0 } )  , .F. ))
		oExFileView:SetProperty("Background",88/*exTreeGlyphClose*/,AutomationTranslateColor( GraMakeRGBColor  ( { 211,4,0 } )  , .F. ))
		oExFileView:Indent := 19
		oExFileView:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
146:
How can I change the check box button's images (method 2)

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:BeginUpdate()
		oExFileView:LoadIconsKey := 1234
		oExFileView:LoadIcons("gBJJgBAICAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1JJuBAGBJuDwWEw2FxGLw+Nws8xmKx2JymRyuCv9dy2byecyWfyk0z2X0Gj0eZqmWLmrADE1wAfexmuxfet15e3Gkluq1muYmw2U02m23+4L261FPyzJ5lF5jJ5Er5fNonP6PJpmW4dE4eWlna4MzYfjACi80t7uT7HrorR9wALXxABW+gAYv33fq9n7njb/wANWLj5vq+grAAMUEAAdcFpQ7z+KRBylQjBr9JUc8LgAMkNQA1hFQ9AcDQKAA+RI4DawnB6iRQo8VozFoADZGIADhGgAHDG6UFXHUQR4UkfAAacgwzDcUxYyZ8yQoskHy" +;
		"68KNBJaUExKQAHvKqYlvLEeREZsuSpK0iqMyxlzGosxmXJqNzFMigGDNoACxOEDwTBZ1zBMLJjBPIAOsnjrTyME0I0y0/z26idn7RFCug+ItAAP1Hx5O0VM7SjS0q3TENFS7TUuPtPAAeFQgAWNSTfOMRUlI1LVXTFLshTdYVZTKNRFVFU1upVbVxXdeK+iwfJXYCPJAkSSAAkqUWQnCIV6mxgAfZ6NkAA9po2A5B2ujYPnHbdtHGDwxo2h5+BncR/nwCaNh+eYYAHdR5hjdyNW2CZB28D5ho2B5hgeYNpWpZQAWeYAE3Mf5+4Mf6NoCA")
		oExFileView:HasCheckBox := -1/*CheckBox*/
		oExFileView:ExpandFolders := .T.
		oExFileView:SetProperty("Background",70/*exCheckBoxState0*/,AutomationTranslateColor( GraMakeRGBColor  ( { 210,4,0 } )  , .F. ))
		oExFileView:SetProperty("Background",71/*exCheckBoxState1*/,AutomationTranslateColor( GraMakeRGBColor  ( { 211,4,0 } )  , .F. ))
		oExFileView:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
145:
Is it possible to show the entire line when selecting files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:FullRowSelect := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
144:
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:BeginUpdate()
		oExFileView:SetProperty("ScrollPartVisible",0/*exVScroll*/,65536/*exExtentThumbPart*/,.T.)
		oExFileView:SetProperty("ScrollPartVisible",1/*exHScroll*/,65536/*exExtentThumbPart*/,.T.)
		oExFileView:SetProperty("ScrollPartVisible",2/*0x2+*/,65536/*exExtentThumbPart*/,.T.)
		oExFileView:ScrollWidth := 4
		oExFileView:SetProperty("Background",276/*exVSBack*/,AutomationTranslateColor( GraMakeRGBColor  ( { 240,240,240 } )  , .F. ))
		oExFileView:SetProperty("Background",260/*exVSThumb*/,AutomationTranslateColor( GraMakeRGBColor  ( { 128,128,128 } )  , .F. ))
		oExFileView:ScrollHeight := 4
		oExFileView:SetProperty("Background",404/*exHSBack*/,oExFileView:Background(276/*exVSBack*/))
		oExFileView:SetProperty("Background",388/*exHSThumb*/,oExFileView:Background(260/*exVSThumb*/))
		oExFileView:SetProperty("Background",511/*exScrollSizeGrip*/,oExFileView:Background(276/*exVSBack*/))
		oExFileView:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
143:
How can I change the check box button's images (method 1)

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oAppearance

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:BeginUpdate()
		oAppearance := oExFileView:VisualAppearance()
			oAppearance:Add(1,"gBFLBCJwBAEHhEJAEGg4BgsHQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxDMKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLAAYRVjSH5OAADcI1FLUEyUf6sAArB74XiCIAIQiUBomGahajkMoYZAAaDCCI2a4aDZCIoVHalKgxC5oKSqCJqbptMZ/HrgJQYGRuC4NQ7CcDKDATbr9MZ9ZBCNZoPimEYtS7MMLyRB8QpyAytaBhRaaGwmSr3U7Oc50d69FYTIxcYZoCq1XBOGYMZLcNR3La9YYnBqMbRAeJYNped6NSDVcKxLgaa4fTrOZZzHL9HpviMWYBnWOr+kwJ4zlqY53CAZQ/B4GZzmab5qHyT4cDeDInkwPp8DCTI/h+Iw7nMZZhj4B5eGKL57gYGAgAadZoG8sgBgYfxKjcSRYCCYJGGYDoDmCQgNh0ZIZAaSB2gW" +;
		"YJ2F4FwdhsJpuBQfRiAWdQJEAQCAg")
			oAppearance:Add(2,"gBFLBCJwBAEHhEJAEGg4BVUMQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxDMKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLAAYRVjSH5OAADcI1FLUEyUf6sAArB74XiCIAIQiUBomGahajkMoYZAAaDCCI2a4aDZCIoVHalKgxC5oKSqCJqbptMZ/HrgJQYGRuC4NQ7CcDKDATbr9MZ9ZBCNZoPimEYtS7MMLQXK8QpyAytaBhRaaGwmSr3U7Oc50d69FYQXqvYZoCq1XBOGYMZLcNR3La9YYnBqMbRAeJYNpedy2YbkFC5LStHwbCrBVpxWotDxQjWVgrHYGI9iybhbiGUo+jafA6DKZxjkoVgxHoHR+iqXx2jMA52l8XJ/CMJ5TkaCp7nmOwHk+XovmECR8BWMYyAIHAgEOBgGFaSo4CWeQVgoSA0lOA5fEGEZQBSYRGBi" +;
		"eYFlWMhiBoPZhkabI3geYIzDYIoHA8dxAH2CZYGMLgqHeW4zAYLgWCMB4gGIeoOjcQgJCqWBhgIOhvGKRhAn2D5blcWBaB+JBGi2EhWAgOQlhmEpYgiHB9DwJQCloUgWmUQoOFaEZXlaSB2haZJGF4WwdhsJRslmGJGDmFhYg8ZoHBiZYalCFAEIC")
		oExFileView:HasCheckBox := 1/*PartialCheckBox*/
		oExFileView:ExpandFolders := .T.
		oExFileView:SetProperty("Background",70/*exCheckBoxState0*/,0x1000000)
		oExFileView:SetProperty("Background",71/*exCheckBoxState1*/,0x2000000)
		oExFileView:SetProperty("Background",72/*exCheckBoxState2*/,0x2d7f7f2)
		oExFileView:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
142:
Is it possible to displays only KB, MB, GB when case, so with no Bytes

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:SetProperty("Option",5/*exSizeFormat*/,14)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
141:
Is it possible to displays Bytes, KB, MB, GB when case

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:SetProperty("Option",5/*exSizeFormat*/,15)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
140:
Is it possible to displays Bytes combined with Mega-Bytes(MB) in the Size column

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:SetProperty("Option",5/*exSizeFormat*/,5)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
139:
Is it possible to displays Giga-Bytes(GB) only in the Size column

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:SetProperty("Option",5/*exSizeFormat*/,8)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
138:
Is it possible to displays Mega-Bytes(MB) only in the Size column

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:SetProperty("Option",5/*exSizeFormat*/,4)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
137:
Is it possible to displays Kilo-Bytes(KB) only in the Size column

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:SetProperty("Option",5/*exSizeFormat*/,2)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
136:
Is it possible to displays Bytes only in the Size column

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:SetProperty("Option",5/*exSizeFormat*/,1)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
135:
How can I simulate a go back or navigating to the parent folder

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:BrowseFolderPath := "C:\Program Files"
		oExFileView:BrowseFolderPath := ".."

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
134:
Does your control support runtime filter

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:BeginUpdate()
		oExFileView:SetProperty("ColumnFilterButton","Name",.T.)
		oExFileView:AddColumnCustomFilter("Name","All  Project Files (*.sln, *.dsw)","*.sln|*.dsw")
		oExFileView:AddColumnCustomFilter("Name","Solution Files (*.sln)","*.sln")
		oExFileView:AddColumnCustomFilter("Name","Compatible Workspace Files (*.dsw)","*.dsw")
		oExFileView:SetProperty("FilterBarDropDownWidth","Name",-212)
		oExFileView:SetProperty("ColumnFilterButton","Type",.T.)
		oExFileView:SetProperty("FilterBarDropDownWidth","Type",-128)
		oExFileView:SetProperty("ColumnFilterButton","Modified",.T.)
		oExFileView:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
133:
How can I reffer a folder or a file, without using the wild characters

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("TEMP")
			oFileType:HasPattern := .F.
			oFileType:Folder := .T.
			oFileType:Bold := .T.
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
132:
How do I change the text being diplayed in the Type column for specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("*.bat")
			oFileType:Folder := .F.
			oFileType:Type := "__newtype__"
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
131:
How do I change the text being diplayed in the Type column for specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("*")
			oFileType:Folder := .F.
			oFileType:Type := "__newtype__"
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
130:
How do I change the text being diplayed in the Type column for specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("W*")
			oFileType:Folder := .T.
			oFileType:Type := "__newtype__"
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
129:
How do I change the text being diplayed in the Type column for specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("*")
			oFileType:Folder := .T.
			oFileType:Type := "__newtype__"
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
128:
How do I underline specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("*.bat")
			oFileType:Folder := .F.
			oFileType:Underline := .T.
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
127:
How do I underline specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("*")
			oFileType:Folder := .F.
			oFileType:Underline := .T.
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
126:
How do I underline specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("W*")
			oFileType:Folder := .T.
			oFileType:Underline := .T.
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
125:
How do I underline specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("*")
			oFileType:Folder := .T.
			oFileType:Underline := .T.
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
124:
How do I draw as strikeout specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("*.bat")
			oFileType:Folder := .F.
			oFileType:StrikeOut := .T.
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
123:
How do I draw as strikeout specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("*")
			oFileType:Folder := .F.
			oFileType:StrikeOut := .T.
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
122:
How do I draw as strikeout specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("W*")
			oFileType:Folder := .T.
			oFileType:StrikeOut := .T.
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
121:
How do I draw as strikeout specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("*")
			oFileType:Folder := .T.
			oFileType:StrikeOut := .T.
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
120:
How do I draw as italic specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("*.bat")
			oFileType:Folder := .F.
			oFileType:Italic := .T.
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
119:
How do I draw as italic specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("*")
			oFileType:Folder := .F.
			oFileType:Italic := .T.
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
118:
How do I draw as italic specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("W*")
			oFileType:Folder := .T.
			oFileType:Italic := .T.
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
117:
How do I draw as italic specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("*")
			oFileType:Folder := .T.
			oFileType:Italic := .T.
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
116:
How do I bold specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("*.bat")
			oFileType:Folder := .F.
			oFileType:Bold := .T.
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
115:
How do I bold specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("*")
			oFileType:Folder := .F.
			oFileType:Bold := .T.
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
114:
How do I bold specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("W*")
			oFileType:Folder := .T.
			oFileType:Bold := .T.
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
113:
How do I bold specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("*")
			oFileType:Folder := .T.
			oFileType:Bold := .T.
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
112:
How do I change the background color for specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("*.bat")
			oFileType:Folder := .F.
			oFileType:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
111:
How do I change the background color for specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("*")
			oFileType:Folder := .F.
			oFileType:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
110:
How do I change the background color for specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("W*")
			oFileType:Folder := .T.
			oFileType:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
109:
How do I change the background color for specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("*")
			oFileType:Folder := .T.
			oFileType:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
108:
How do I change the foreground color for specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("*.bat")
			oFileType:Folder := .F.
			oFileType:SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
107:
How do I change the foreground color for specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("*")
			oFileType:Folder := .F.
			oFileType:SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
106:
How do I change the foreground color for specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("W*")
			oFileType:Folder := .T.
			oFileType:SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
105:
How do I change the foreground color for specified files or folders

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL oFileType

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oFileType := oExFileView:FileTypes():Add("*")
			oFileType:Folder := .T.
			oFileType:SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
			oFileType:Apply()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
104:
How do I get the count of all items
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL var_Count

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		var_Count := oExFileView:Get(3/*VisibleItems*/):Count()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
103:
How do I get the count oc checked items

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL var_Count

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		oExFileView:HasCheckBox := -1/*CheckBox*/
		var_Count := oExFileView:Get(2/*CheckItems*/):Count()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
102:
How do I get the count of all items
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL var_Count

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		var_Count := oExFileView:Get(1/*AllItems*/):Count()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
101:
How do I get the selected folder

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExFileView
	LOCAL var_Count

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExFileView := XbpActiveXControl():new( oForm:drawingArea )
	oExFileView:CLSID  := "Exontrol.ExFileView.1" /*{F26C97E5-3E86-4CE4-935B-A997AB3DDBE4}*/
	oExFileView:create(,, {10,60},{610,370} )

		var_Count := oExFileView:Get(0/*SelItems*/):Count()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN