269:
Displays the time without seconds, smaller and with a different color

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.ExpandFolders = .t.
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "Option(1) = `(((valueS left ( valueS rfind ``:`` )) + (valueS right ( len(valueS) - ( valueS rfind `` `` ) )) replace `` `` with ``<fgcolor=808080><font ;6> `` ))`" // oExFileView.Option(1) = "(((valueS left ( valueS rfind `:` )) + (valueS right ( len(valueS) - ( valueS rfind ` ` ) )) replace ` ` with `<fgcolor=808080><font ;6> ` ))"
oExFileView.ColumnsVisible = 26 'exFileColumnModified + exFileColumnType + exFileColumnName
oExFileView.ModifiedDaysAgo = -1
oExFileView.EndUpdate()

268:
Displays the date-time with no seconds part

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.ExpandFolders = .t.
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "Option(1) = `(valueS left ( valueS rfind ``:`` )) + (valueS right ( len(valueS) - ( valueS rfind `` `` ) ))`" // oExFileView.Option(1) = "(valueS left ( valueS rfind `:` )) + (valueS right ( len(valueS) - ( valueS rfind ` ` ) ))"
oExFileView.ColumnsVisible = 26 'exFileColumnModified + exFileColumnType + exFileColumnName
oExFileView.ModifiedDaysAgo = -1
oExFileView.EndUpdate()

267:
Displays the Modified column in long date format, as specified in the control's panel ( no time is displayed )

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.ExpandFolders = .t.
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "Option(1) = `longdate(value)`" // oExFileView.Option(1) = "longdate(value)"
oExFileView.ColumnsVisible = 26 'exFileColumnModified + exFileColumnType + exFileColumnName
oExFileView.ModifiedDaysAgo = -1
oExFileView.EndUpdate()

266:
Displays the modified date in "MM/DD/YYYY HH:MM:SS" format, so 1/1/2001 will be displayed such as 01/01/2001

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.ExpandFolders = .t.
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "Option(1) = `dateF(value)`" // oExFileView.Option(1) = "dateF(value)"
oExFileView.ColumnsVisible = 26 'exFileColumnModified + exFileColumnType + exFileColumnName
oExFileView.ModifiedDaysAgo = -1
oExFileView.EndUpdate()

265:
Displays the modified date without the time

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.ExpandFolders = .t.
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "Option(1) = `date(int(value))`" // oExFileView.Option(1) = "date(int(value))"
oExFileView.ColumnsVisible = 26 'exFileColumnModified + exFileColumnType + exFileColumnName
oExFileView.ModifiedDaysAgo = -1
oExFileView.EndUpdate()

264:
Displayes the modified time with a different color

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.ExpandFolders = .t.
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "Option(1) = `valueS replace `` `` with ``<off -4><fgcolor=808080><font ;6> ```" // oExFileView.Option(1) = "valueS replace ` ` with `<off -4><fgcolor=808080><font ;6> `"
oExFileView.ColumnsVisible = 26 'exFileColumnModified + exFileColumnType + exFileColumnName
oExFileView.ModifiedDaysAgo = -1
oExFileView.EndUpdate()

263:
Displays all files/folders modified n days ago, with white on a black background

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.ExpandFolders = .t.
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "Option(1) = ```<bgcolor=000000><fgcolor=FFFFFF>`` + valueS`" // oExFileView.Option(1) = "`<bgcolor=000000><fgcolor=FFFFFF>` + valueS"
oExFileView.ModifiedDaysAgo = 31
oExFileView.ColumnsVisible = 26 'exFileColumnModified + exFileColumnType + exFileColumnName
oExFileView.EndUpdate()

262:
Displays today for all files/folders modified today, yesterday for all files modified yesterday, else "%i day(s) ago"

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.ExpandFolders = .t.
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "Option(1) = `daysago = 0 ? ``today`` : (daysago = 1 ? ``yesterday`` : (daysago + `` day(s) ago``))`" // oExFileView.Option(1) = "daysago = 0 ? `today` : (daysago = 1 ? `yesterday` : (daysago + ` day(s) ago`))"
oExFileView.ModifiedDaysAgo = 31
oExFileView.ColumnsVisible = 26 'exFileColumnModified + exFileColumnType + exFileColumnName
oExFileView.EndUpdate()

261:
Displays today for all files/folders else "%i day(s) ago"

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.ExpandFolders = .t.
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.ModifiedDaysAgo = 31
oExFileView.ColumnsVisible = 26 'exFileColumnModified + exFileColumnType + exFileColumnName
oExFileView.EndUpdate()

260:
FilterBarCaption ALL Keyword ( sample 2, result )

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterBarFont = oExFileView.Font
oExFileView.Template = "Description(11) = FormatABC(```<fgcolor=808080> `` + value + `` </fgcolor>```,Description(11))" // oExFileView.Description(11 '8 + exFilterBarPatternFilterTitle) = oExFileView.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oExFileView.Description(11 '8 + exFilterBarPatternFilterTitle))
oExFileView.FilterBarCaption = "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oExFileView.FilterBarPromptVisible = 3 'exFilterBarVisible + exFilterBarPromptVisible
oExFileView.EndUpdate()

259:
FilterBarCaption ALL Keyword ( sample 1 )

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterBarFont = oExFileView.Font
oExFileView.Template = "Description(11) = FormatABC(```<fgcolor=808080> `` + value + `` </fgcolor>```,Description(11))" // oExFileView.Description(11 '8 + exFilterBarPatternFilterTitle) = oExFileView.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oExFileView.Description(11 '8 + exFilterBarPatternFilterTitle))
oExFileView.FilterBarCaption = "all"
oExFileView.FilterBarPromptVisible = 3 'exFilterBarVisible + exFilterBarPromptVisible
oExFileView.EndUpdate()

258:
FilterBarCaption ALLUI Keyword ( sample 2, result )

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterBarFont = oExFileView.Font
oExFileView.Template = "Description(11) = FormatABC(```<fgcolor=808080> `` + value + `` </fgcolor>```,Description(11))" // oExFileView.Description(11 '8 + exFilterBarPatternFilterTitle) = oExFileView.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oExFileView.Description(11 '8 + exFilterBarPatternFilterTitle))
oExFileView.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oExFileView.FilterBarPromptVisible = 3 'exFilterBarVisible + exFilterBarPromptVisible
oExFileView.EndUpdate()

257:
FilterBarCaption ALLUI Keyword ( sample 1 )

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterBarFont = oExFileView.Font
oExFileView.Template = "Description(11) = FormatABC(```<fgcolor=808080> `` + value + `` </fgcolor>```,Description(11))" // oExFileView.Description(11 '8 + exFilterBarPatternFilterTitle) = oExFileView.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oExFileView.Description(11 '8 + exFilterBarPatternFilterTitle))
oExFileView.FilterBarCaption = "allui"
oExFileView.FilterBarPromptVisible = 3 'exFilterBarVisible + exFilterBarPromptVisible
oExFileView.EndUpdate()

256:
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterBarFont = oExFileView.Font
oExFileView.Template = "Description(11) = FormatABC(```<fgcolor=808080> `` + value + `` </fgcolor>```,Description(11))" // oExFileView.Description(11 '8 + exFilterBarPatternFilterTitle) = oExFileView.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oExFileView.Description(11 '8 + exFilterBarPatternFilterTitle))
oExFileView.FilterBarCaption = "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( available replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oExFileView.FilterBarPromptVisible = 3 'exFilterBarVisible + exFilterBarPromptVisible
oExFileView.EndUpdate()

255:
FilterBarCaption AVAILABLE Keyword ( sample 1 )

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterBarFont = oExFileView.Font
oExFileView.Template = "Description(11) = FormatABC(```<fgcolor=808080> `` + value + `` </fgcolor>```,Description(11))" // oExFileView.Description(11 '8 + exFilterBarPatternFilterTitle) = oExFileView.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oExFileView.Description(11 '8 + exFilterBarPatternFilterTitle))
oExFileView.FilterBarCaption = "value + ` ` + available"
oExFileView.FilterBarPromptVisible = 3 'exFilterBarVisible + exFilterBarPromptVisible
oExFileView.EndUpdate()

254:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results )

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterBarFont = oExFileView.Font
oExFileView.Template = "Description(11) = FormatABC(```<fgcolor=808080>`` + value + ``</fgcolor>```,Description(11))" // oExFileView.Description(11 '8 + exFilterBarPatternFilterTitle) = oExFileView.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oExFileView.Description(11 '8 + exFilterBarPatternFilterTitle))
oExFileView.FilterBarCaption = "(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
oExFileView.FilterBarPromptVisible = 256
oExFileView.EndUpdate()

253:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterBarFont = oExFileView.Font
oExFileView.Template = "Description(11) = FormatABC(```<fgcolor=808080>`` + value + ``</fgcolor>```,Description(11))" // oExFileView.Description(11 '8 + exFilterBarPatternFilterTitle) = oExFileView.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oExFileView.Description(11 '8 + exFilterBarPatternFilterTitle))
oExFileView.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
oExFileView.FilterBarPromptVisible = 256
oExFileView.EndUpdate()

252:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "Description(11) = FormatABC(```<fgcolor=808080>`` + value + ``</fgcolor>```,Description(11))" // oExFileView.Description(11 '8 + exFilterBarPatternFilterTitle) = oExFileView.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oExFileView.Description(11 '8 + exFilterBarPatternFilterTitle))
oExFileView.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
oExFileView.FilterBarPromptVisible = 256
oExFileView.EndUpdate()

251:
How can I get the number of results/items being shown in the control's filter bar (sample 4)

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterBarFont = oExFileView.Font
oExFileView.FilterBarPrompt = oExFileView.FormatABC("`<b>` + value",oExFileView.FilterBarPrompt)
oExFileView.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
oExFileView.FilterBarPromptVisible = 3591 'exFilterBarCompact + exFilterBarShowCloseOnRight + exFilterBarShowCloseIfRequired + exFilterBarCaptionVisible + exFilterBarVisible + exFilterBarPromptVisible
oExFileView.EndUpdate()

250:
FilterBarCaption Predefined Keywords

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterInclude = 1
oExFileView.FilterBarFont = oExFileView.Font
oExFileView.FilterBarCaption = "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>: ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=808080>` + promptpattern + `</fgcolor>`"
oExFileView.FilterBarPromptVisible = 7 'exFilterBarCaptionVisible + exFilterBarVisible + exFilterBarPromptVisible
oExFileView.EndUpdate()

249:
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterBarFont = oExFileView.Font
oExFileView.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
oExFileView.FilterBarPromptVisible = 2067 'exFilterBarCompact + exFilterBarSingleLine + exFilterBarVisible + exFilterBarPromptVisible
oExFileView.EndUpdate()

248:
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterBarPromptVisible = 1281 'exFilterBarShowCloseOnRight + exFilterBarToggle + exFilterBarPromptVisible
oExFileView.FilterBarPrompt = oExFileView.FormatABC("`<r>` + value",oExFileView.FilterBarPrompt)
oExFileView.EndUpdate()

247:
How can I change the visual appearance of the filter bar's close button (EBN)

Dim oExFileView as P
Dim var_Appearance as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
var_Appearance = oExFileView.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJjyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmSZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OROicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXAiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaKJDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEAkjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSMRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ")
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterBarPromptVisible = 257 'exFilterBarToggle + exFilterBarPromptVisible
oExFileView.Template = "Background(1) = 16777216" // oExFileView.Background(1) = 16777216
oExFileView.EndUpdate()

246:
How can I change the visual appearance of the filter bar's close button (solid)

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterBarPromptVisible = 1
oExFileView.Template = "Background(1) = 255" // oExFileView.Background(1) = 255
oExFileView.EndUpdate()

245:
Is it possible to prevent definitely showing the filter bar's close button

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterBarPromptVisible = 1
oExFileView.Template = "Background(1) = -1" // oExFileView.Background(1) = -1
oExFileView.EndUpdate()

244:
Is it possible to show the close button only if there is a filter applied

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterBarPromptVisible = 513 'exFilterBarShowCloseIfRequired + exFilterBarPromptVisible
oExFileView.EndUpdate()

243:
The control's filter bar is not closed once I click the close button (toggle)

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterBarCaption = "`<r><fgcolor=808080>` + value"
oExFileView.FilterBarPromptVisible = 2323 'exFilterBarCompact + exFilterBarToggle + exFilterBarSingleLine + exFilterBarVisible + exFilterBarPromptVisible
oExFileView.EndUpdate()

242:
How can I display the control's filter on a single line

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterBarCaption = "len(value) ? `filter for: <fgcolor 808080>` + value  : `<fgcolor 808080>no filter`"
oExFileView.FilterBarPromptVisible = 18 'exFilterBarSingleLine + exFilterBarVisible
oExFileView.EndUpdate()

241:
How can I display the control's filter on a single line (prompt-combined)

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterBarCaption = "`<r>` + value"
oExFileView.FilterBarPromptVisible = 2067 'exFilterBarCompact + exFilterBarSingleLine + exFilterBarVisible + exFilterBarPromptVisible
oExFileView.EndUpdate()

240:
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterBarPromptVisible = 3 'exFilterBarVisible + exFilterBarPromptVisible
oExFileView.EndUpdate()

239:
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterBarPromptVisible = 1
oExFileView.EndUpdate()

238:
Is it possible to prevent closing the control's filter bar, so it is always shown

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterBarCaption = "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
oExFileView.FilterBarPromptVisible = 2
oExFileView.EndUpdate()

237:
Is it possible to show the selection with a different color, when the control loses the focus

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.SingleSel = .f.
oExFileView.ExploreFromHere = ""
oExFileView.HideSelection = .f.
oExFileView.Template = "Background(166) = 14737632" // oExFileView.Background(166) = 14737632
oExFileView.Template = "Background(167) = 4210752" // oExFileView.Background(167) = 4210752
oExFileView.EndUpdate()

236:
Predefined Keywords of ShowContextMenu property

' Fired while the control's state has been changed.
function StateChange as v (State  as  OLE::Exontrol.ExFileView.1::StateChangeEnum)
	oExFileView = topparent:CONTROL_ACTIVEX1.activex
	oExFileView.ExecuteContextMenu = 0
end function

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExploreFromHere = ""
oExFileView.ShowContextMenu = "`menu(` + menu + `)` + `,filecount=` + filecount + `,fileattr=` + hex(fileattr) + `,filename=` + filename + `,fileparsename=` + fileparsename + `,filefullname=` + filefullname"

235:
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme

Dim oExFileView as P
Dim var_Appearance as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExpandFolders = .t.
var_Appearance = oExFileView.VisualAppearance
	var_Appearance.Add(1,"XP:TREEVIEW 2 1")
	var_Appearance.Add(2,"XP:TREEVIEW 2 2")
oExFileView.Template = "Background(180) = 16777216" // oExFileView.Background(180) = 16777216
oExFileView.Template = "Background(181) = 33554432" // oExFileView.Background(181) = 33554432
oExFileView.EndUpdate()

234:
How can I find if the control is running in DPI mode
Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
? oExFileView.FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`") 

233:
How can I change the visual appearance of the +/- buttons

Dim oExFileView as P
Dim var_Appearance as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExpandFolders = .t.
var_Appearance = oExFileView.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgXIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRgwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMINCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=")
	var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEeBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOFSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=")
oExFileView.Template = "Background(180) = 16777216" // oExFileView.Background(180) = 16777216
oExFileView.Template = "Background(181) = 33554432" // oExFileView.Background(181) = 33554432
oExFileView.EndUpdate()

232:
How can I copy/execute command a file/folder as path (selection)

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.SingleSel = .f.
oExFileView.ExploreFromHere = ""
oExFileView.ExpandFolders = .t.
oExFileView.Select("*")
oExFileView.ExecuteContextCommand("<selection>",.t.,"Copy As Path")
oExFileView.EndUpdate()

231:
How can I programmatically selects all items

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExpandFolders = .t.
oExFileView.SingleSel = .f.
oExFileView.ExploreFromHere = ""
oExFileView.Select("*")
oExFileView.EndUpdate()

230:
How can I clear the current selection
Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExpandFolders = .t.
oExFileView.ExploreFromHere = ""
oExFileView.SingleSel = .f.
oExFileView.Select("")
oExFileView.EndUpdate()

229:
I know the Expand method selects a folder, the question is if it is possible to prevent expanding it, so just select it

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExpandFolders = .t.
oExFileView.ExploreFromHere = "c:\"
oExFileView.SingleSel = .f.
oExFileView.Select("Temp")
oExFileView.Select("Windows")
oExFileView.EndUpdate()

228:
How can I display the identifiers of the control's context menu (debug)

' Fired while the control's state has been changed.
function StateChange as v (State  as  OLE::Exontrol.ExFileView.1::StateChangeEnum)
	oExFileView = topparent:CONTROL_ACTIVEX1.activex
	? "State" 
	? State 
	? "ExecuteContextMenu" 
	? oExFileView.ExecuteContextMenu 
end function

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExploreFromHere = ""
oExFileView.SingleSel = .f.
oExFileView.ShowContextMenu = "`[debug]` + menu"

227:
How can I copy/execute command a file/folder (selection)
Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.SingleSel = .f.
oExFileView.ExploreFromHere = "c:\"
oExFileView.ExpandFolders = .t.
oExFileView.Expand("c:\Temp")
oExFileView.ExecuteContextCommand("<selection>",.t.,"Copy")
oExFileView.EndUpdate()

226:
How can I copy a file/folder (absolute name)
Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = "c:\"
oExFileView.ExecuteContextCommand("c:\Temp",.t.,"Copy")
oExFileView.EndUpdate()

225:
How can I copy a file/folder (relative name)
Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = "c:\"
oExFileView.ExecuteContextCommand("Temp",.t.,"Copy")
oExFileView.EndUpdate()

224:
ShowContextMenu usage

' Fired while the control's state has been changed.
function StateChange as v (State  as  OLE::Exontrol.ExFileView.1::StateChangeEnum)
	oExFileView = topparent:CONTROL_ACTIVEX1.activex
	? "State" 
	? State 
	? "ExecuteContextMenu" 
	? oExFileView.ExecuteContextMenu 
end function

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.SingleSel = .f.
oExFileView.FullRowSelect = .t.
oExFileView.ShowContextMenu = "filecount = 0 ? `Exit[id=1000]` : ( ( ( filecount = 1 ) ? filename : `multiple selection` ) + `[dis],[sep],` + menu)"

223:
ShowContextMenu usage

' Fired while the control's state has been changed.
function StateChange as v (State  as  OLE::Exontrol.ExFileView.1::StateChangeEnum)
	oExFileView = topparent:CONTROL_ACTIVEX1.activex
	? "State" 
	? State 
	? "ExecuteContextMenu" 
	? oExFileView.ExecuteContextMenu 
end function

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExploreFromHere = ""
oExFileView.SingleSel = .f.
oExFileView.FullRowSelect = .t.
oExFileView.ShowContextMenu = "filecount > 1 ? `multiple selection[dis]` : menu"

222:
ShowContextMenu usage

' Fired while the control's state has been changed.
function StateChange as v (State  as  OLE::Exontrol.ExFileView.1::StateChangeEnum)
	oExFileView = topparent:CONTROL_ACTIVEX1.activex
	? "State" 
	? State 
	? "ExecuteContextMenu" 
	? oExFileView.ExecuteContextMenu 
end function

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExploreFromHere = ""
oExFileView.SingleSel = .f.
oExFileView.FullRowSelect = .t.
oExFileView.ShowContextMenu = "filecount > 1 ? `multiple selection[dis]` : menu"

221:
ShowContextMenu usage

' Fired while the control's state has been changed.
function StateChange as v (State  as  OLE::Exontrol.ExFileView.1::StateChangeEnum)
	oExFileView = topparent:CONTROL_ACTIVEX1.activex
	? "State" 
	? State 
	? "ExecuteContextMenu" 
	? oExFileView.ExecuteContextMenu 
end function

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExploreFromHere = ""
oExFileView.SingleSel = .f.
oExFileView.FullRowSelect = .t.
oExFileView.ExpandFolders = .t.
oExFileView.IncludeFilesInFolder = .t.
oExFileView.ShowContextMenu = "menu replace `Delete` with `Delete[dis]`"

220:
ShowContextMenu usage

' Fired while the control's state has been changed.
function StateChange as v (State  as  OLE::Exontrol.ExFileView.1::StateChangeEnum)
	oExFileView = topparent:CONTROL_ACTIVEX1.activex
	? "State" 
	? State 
	? "ExecuteContextMenu" 
	? oExFileView.ExecuteContextMenu 
end function

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExploreFromHere = ""
oExFileView.SingleSel = .f.
oExFileView.FullRowSelect = .t.
oExFileView.ExpandFolders = .t.
oExFileView.IncludeFilesInFolder = .t.
oExFileView.ShowContextMenu = "menu replace `&Delete` with ``"

219:
ShowContextMenu usage

' Fired while the control's state has been changed.
function StateChange as v (State  as  OLE::Exontrol.ExFileView.1::StateChangeEnum)
	oExFileView = topparent:CONTROL_ACTIVEX1.activex
	? "State" 
	? State 
	? "ExecuteContextMenu" 
	? oExFileView.ExecuteContextMenu 
end function

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExploreFromHere = ""
oExFileView.SingleSel = .f.
oExFileView.FullRowSelect = .t.
oExFileView.ShowContextMenu = "`Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),` + menu + `,Exit[id=1000]`"

218:
ShowContextMenu usage

' Fired while the control's state has been changed.
function StateChange as v (State  as  OLE::Exontrol.ExFileView.1::StateChangeEnum)
	oExFileView = topparent:CONTROL_ACTIVEX1.activex
	? "State" 
	? State 
	? "ExecuteContextMenu" 
	? oExFileView.ExecuteContextMenu 
end function

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExploreFromHere = ""
oExFileView.SingleSel = .f.
oExFileView.FullRowSelect = .t.
oExFileView.ShowContextMenu = "filecount = 0 ? `Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]` : menu"

217:
ShowContextMenu usage

' Fired while the control's state has been changed.
function StateChange as v (State  as  OLE::Exontrol.ExFileView.1::StateChangeEnum)
	oExFileView = topparent:CONTROL_ACTIVEX1.activex
	? "State" 
	? State 
	? "ExecuteContextMenu" 
	? oExFileView.ExecuteContextMenu 
end function

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExploreFromHere = ""
oExFileView.FullRowSelect = .t.
oExFileView.ShowContextMenu = "Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]"

216:
ShowContextMenu usage
' Fired while the control's state has been changed.
function StateChange as v (State  as  OLE::Exontrol.ExFileView.1::StateChangeEnum)
	oExFileView = topparent:CONTROL_ACTIVEX1.activex
	? "State" 
	? State 
	? "ExecuteContextMenu" 
	? oExFileView.ExecuteContextMenu 
	? "no context menu is generated, so nothing is displayed" 
end function

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExploreFromHere = ""
oExFileView.FullRowSelect = .t.
oExFileView.ShowContextMenu = "``"

215:
How can I add new items to the default file's context menu

' Fired while the control's state has been changed.
function StateChange as v (State  as  OLE::Exontrol.ExFileView.1::StateChangeEnum)
	oExFileView = topparent:CONTROL_ACTIVEX1.activex
	? "State " 
	? State 
	? "ContextMenu" 
	? oExFileView.ShowContextMenu 
	oExFileView.ShowContextMenu = oExFileView.FormatABC("B = 20 ? ( `My First Popup[def](A,B,C),[sep],`+ value + `,[sep],My Last Popup[def](A,B,C)` ) : value",oExFileView.ShowContextMenu,State)
	? "Execute" 
	? oExFileView.ExecuteContextMenu 
end function

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExploreFromHere = ""

214:
Is it possible to display the item's identifiers in the file's context menu

' Fired while the control's state has been changed.
function StateChange as v (State  as  OLE::Exontrol.ExFileView.1::StateChangeEnum)
	oExFileView = topparent:CONTROL_ACTIVEX1.activex
	? "State " 
	? State 
	? "ContextMenu" 
	? oExFileView.ShowContextMenu 
	oExFileView.ShowContextMenu = oExFileView.FormatABC("B = 20 ? (`[debug]`+ value) : value ",oExFileView.ShowContextMenu,State)
end function

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex

213:
How can I remove the Delete command from the file's context menu

' Fired while the control's state has been changed.
function StateChange as v (State  as  OLE::Exontrol.ExFileView.1::StateChangeEnum)
	oExFileView = topparent:CONTROL_ACTIVEX1.activex
	? "State " 
	? State 
	? "ContextMenu" 
	? oExFileView.ShowContextMenu 
	oExFileView.ShowContextMenu = oExFileView.FormatABC("value replace `&Delete` with ``",oExFileView.ShowContextMenu)
end function

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex

212:
How do I execute a command from the file's content menu (sample 2)

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.ExecuteContextCommand("C:\",.t.,"20")
oExFileView.EndUpdate()

211:
How can I simulate the left-side of the Windows Explorer

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ColumnsVisible = 2
oExFileView.ExpandFolders = .t.
oExFileView.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
oExFileView.Expand("::{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
oExFileView.EndUpdate()

210:
How can I add the "Control Panel" folder

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ColumnsVisible = 2
oExFileView.ExpandFolders = .t.
oExFileView.ExploreFromHere = "::{26EE0668-A00A-44D7-9371-BEB064C98683}>"
oExFileView.EndUpdate()

209:
How can I add the "My Documents"

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.IncludeFilesInFolder = .t.
oExFileView.ExpandFolders = .t.
oExFileView.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}>"

208:
How can I add the Printers and Faxes

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.ColumnsVisible = 2
oExFileView.IncludeFilesInFolder = .t.
oExFileView.ExploreFromHere = "::{2227a280-3aea-1069-a2de-08002b30309d}>"

207:
How can I add the Network Connections

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExpandFolders = .t.
oExFileView.ColumnsVisible = 2
oExFileView.IncludeFilesInFolder = .t.
oExFileView.ExploreFromHere = "::{7007acc7-3202-11d1-aad2-00805fc1270e}>"
oExFileView.EndUpdate()

206:
How can I add the "Recycle Bin" folder

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.IncludeFilesInFolder = .t.
oExFileView.ExploreFromHere = "::{645FF040-5081-101B-9F08-00AA002F954E}>"

205:
How can I add the "Documents" folder

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.ExploreFromHere = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}>"

204:
How can I add the "Control Panel" folder

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ColumnsVisible = 2
oExFileView.ExpandFolders = .t.
oExFileView.IncludeFilesInFolder = .t.
oExFileView.ExploreFromHere = "::{21EC2020-3AEA-1069-A2DD-08002b30309d}>"
oExFileView.EndUpdate()

203:
How can I add the Network folder

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.ExploreFromHere = "::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}>"

202:
How can I add the My Computer

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.ExploreFromHere = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}>"

201:
How can I add the My Network Places folder

Dim oExFileView as P

oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.ExploreFromHere = "::{208D2C60-3AEA-1069-A2D7-08002B30309D}>"