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

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComExpandFolders to True
	Set ComColumnFilterButton "Name" to True
	Set ComOption OLEexModifiedDaysAgo to "(((valueS left ( valueS rfind `:` )) + (valueS right ( len(valueS) - ( valueS rfind ` ` ) )) replace ` ` with `<fgcolor=808080><font ;6> ` ))"
	Set ComColumnsVisible to (OLEexFileColumnModified + OLEexFileColumnType + OLEexFileColumnName)
	Set ComModifiedDaysAgo to -1
	Send ComEndUpdate
End_Procedure
268:
Displays the date-time with no seconds part

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComExpandFolders to True
	Set ComColumnFilterButton "Name" to True
	Set ComOption OLEexModifiedDaysAgo to "(valueS left ( valueS rfind `:` )) + (valueS right ( len(valueS) - ( valueS rfind ` ` ) ))"
	Set ComColumnsVisible to (OLEexFileColumnModified + OLEexFileColumnType + OLEexFileColumnName)
	Set ComModifiedDaysAgo to -1
	Send ComEndUpdate
End_Procedure
267:
Displays the Modified column in long date format, as specified in the control's panel ( no time is displayed )

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComExpandFolders to True
	Set ComColumnFilterButton "Name" to True
	Set ComOption OLEexModifiedDaysAgo to "longdate(value)"
	Set ComColumnsVisible to (OLEexFileColumnModified + OLEexFileColumnType + OLEexFileColumnName)
	Set ComModifiedDaysAgo to -1
	Send ComEndUpdate
End_Procedure
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

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComExpandFolders to True
	Set ComColumnFilterButton "Name" to True
	Set ComOption OLEexModifiedDaysAgo to "dateF(value)"
	Set ComColumnsVisible to (OLEexFileColumnModified + OLEexFileColumnType + OLEexFileColumnName)
	Set ComModifiedDaysAgo to -1
	Send ComEndUpdate
End_Procedure
265:
Displays the modified date without the time

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComExpandFolders to True
	Set ComColumnFilterButton "Name" to True
	Set ComOption OLEexModifiedDaysAgo to "date(int(value))"
	Set ComColumnsVisible to (OLEexFileColumnModified + OLEexFileColumnType + OLEexFileColumnName)
	Set ComModifiedDaysAgo to -1
	Send ComEndUpdate
End_Procedure
264:
Displayes the modified time with a different color

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComExpandFolders to True
	Set ComColumnFilterButton "Name" to True
	Set ComOption OLEexModifiedDaysAgo to "valueS replace ` ` with `<off -4><fgcolor=808080><font ;6> `"
	Set ComColumnsVisible to (OLEexFileColumnModified + OLEexFileColumnType + OLEexFileColumnName)
	Set ComModifiedDaysAgo to -1
	Send ComEndUpdate
End_Procedure
263:
Displays all files/folders modified n days ago, with white on a black background

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComExpandFolders to True
	Set ComColumnFilterButton "Name" to True
	Set ComOption OLEexModifiedDaysAgo to "`<bgcolor=000000><fgcolor=FFFFFF>` + valueS"
	Set ComModifiedDaysAgo to 31
	Set ComColumnsVisible to (OLEexFileColumnModified + OLEexFileColumnType + OLEexFileColumnName)
	Send ComEndUpdate
End_Procedure
262:
Displays today for all files/folders modified today, yesterday for all files modified yesterday, else "%i day(s) ago"

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComExpandFolders to True
	Set ComColumnFilterButton "Name" to True
	Set ComOption OLEexModifiedDaysAgo to "daysago = 0 ? `today` : (daysago = 1 ? `yesterday` : (daysago + ` day(s) ago`))"
	Set ComModifiedDaysAgo to 31
	Set ComColumnsVisible to (OLEexFileColumnModified + OLEexFileColumnType + OLEexFileColumnName)
	Send ComEndUpdate
End_Procedure
261:
Displays today for all files/folders else "%i day(s) ago"

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComExpandFolders to True
	Set ComColumnFilterButton "Name" to True
	Set ComModifiedDaysAgo to 31
	Set ComColumnsVisible to (OLEexFileColumnModified + OLEexFileColumnType + OLEexFileColumnName)
	Send ComEndUpdate
End_Procedure
260:
FilterBarCaption ALL Keyword ( sample 2, result )

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComFilterBarFont to (ComFont(Self))
	Set ComDescription (|CI$8 + OLEexFilterBarPatternFilterTitle) to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,(|CI$8 + OLEexFilterBarPatternFilterTitle))),Nothing,Nothing))
	Set ComFilterBarCaption to "(( ( 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)`) )))"
	Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
	Send ComEndUpdate
End_Procedure
259:
FilterBarCaption ALL Keyword ( sample 1 )

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComFilterBarFont to (ComFont(Self))
	Set ComDescription (|CI$8 + OLEexFilterBarPatternFilterTitle) to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,(|CI$8 + OLEexFilterBarPatternFilterTitle))),Nothing,Nothing))
	Set ComFilterBarCaption to "all"
	Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
	Send ComEndUpdate
End_Procedure
258:
FilterBarCaption ALLUI Keyword ( sample 2, result )

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComFilterBarFont to (ComFont(Self))
	Set ComDescription (|CI$8 + OLEexFilterBarPatternFilterTitle) to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,(|CI$8 + OLEexFilterBarPatternFilterTitle))),Nothing,Nothing))
	Set ComFilterBarCaption to "(( ( 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)`) )))"
	Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
	Send ComEndUpdate
End_Procedure
257:
FilterBarCaption ALLUI Keyword ( sample 1 )

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComFilterBarFont to (ComFont(Self))
	Set ComDescription (|CI$8 + OLEexFilterBarPatternFilterTitle) to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,(|CI$8 + OLEexFilterBarPatternFilterTitle))),Nothing,Nothing))
	Set ComFilterBarCaption to "allui"
	Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
	Send ComEndUpdate
End_Procedure
256:
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComFilterBarFont to (ComFont(Self))
	Set ComDescription (|CI$8 + OLEexFilterBarPatternFilterTitle) to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,(|CI$8 + OLEexFilterBarPatternFilterTitle))),Nothing,Nothing))
	Set ComFilterBarCaption to "(( ( 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)`) )))"
	Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
	Send ComEndUpdate
End_Procedure
255:
FilterBarCaption AVAILABLE Keyword ( sample 1 )

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComFilterBarFont to (ComFont(Self))
	Set ComDescription (|CI$8 + OLEexFilterBarPatternFilterTitle) to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,(|CI$8 + OLEexFilterBarPatternFilterTitle))),Nothing,Nothing))
	Set ComFilterBarCaption to "value + ` ` + available"
	Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
	Send ComEndUpdate
End_Procedure
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 )

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComFilterBarFont to (ComFont(Self))
	Set ComDescription (|CI$8 + OLEexFilterBarPatternFilterTitle) to (ComFormatABC(Self,"`<fgcolor=808080>` + value + `</fgcolor>`",(ComDescription(Self,(|CI$8 + OLEexFilterBarPatternFilterTitle))),Nothing,Nothing))
	Set ComFilterBarCaption to "(`<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>`"
	Set ComFilterBarPromptVisible to OLEexFilterBarToggle
	Send ComEndUpdate
End_Procedure
253:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComFilterBarFont to (ComFont(Self))
	Set ComDescription (|CI$8 + OLEexFilterBarPatternFilterTitle) to (ComFormatABC(Self,"`<fgcolor=808080>` + value + `</fgcolor>`",(ComDescription(Self,(|CI$8 + OLEexFilterBarPatternFilterTitle))),Nothing,Nothing))
	Set ComFilterBarCaption to "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
	Set ComFilterBarPromptVisible to OLEexFilterBarToggle
	Send ComEndUpdate
End_Procedure
252:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComDescription (|CI$8 + OLEexFilterBarPatternFilterTitle) to (ComFormatABC(Self,"`<fgcolor=808080>` + value + `</fgcolor>`",(ComDescription(Self,(|CI$8 + OLEexFilterBarPatternFilterTitle))),Nothing,Nothing))
	Set ComFilterBarCaption to "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
	Set ComFilterBarPromptVisible to OLEexFilterBarToggle
	Send ComEndUpdate
End_Procedure
251:
How can I get the number of results/items being shown in the control's filter bar (sample 4)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComFilterBarFont to (ComFont(Self))
	Set ComFilterBarPrompt to (ComFormatABC(Self,"`<b>` + value",(ComFilterBarPrompt(Self)),Nothing,Nothing))
	Set ComFilterBarCaption to "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
	Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarShowCloseOnRight + OLEexFilterBarShowCloseIfRequired + OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
	Send ComEndUpdate
End_Procedure
250:
FilterBarCaption Predefined Keywords

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComFilterInclude to OLEexItemsWithChilds
	Set ComFilterBarFont to (ComFont(Self))
	Set ComFilterBarCaption to "`<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>`"
	Set ComFilterBarPromptVisible to (OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
	Send ComEndUpdate
End_Procedure
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

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComFilterBarFont to (ComFont(Self))
	Set ComFilterBarCaption to "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
	Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarSingleLine + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
	Send ComEndUpdate
End_Procedure
248:
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComFilterBarPromptVisible to (OLEexFilterBarShowCloseOnRight + OLEexFilterBarToggle + OLEexFilterBarPromptVisible)
	Set ComFilterBarPrompt to (ComFormatABC(Self,"`<r>` + value",(ComFilterBarPrompt(Self)),Nothing,Nothing))
	Send ComEndUpdate
End_Procedure
247:
How can I change the visual appearance of the filter bar's close button (EBN)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJjyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmSZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OROicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXAiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaKJDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEAkjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSMRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ" to Nothing
	Send Destroy to hoAppearance
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComFilterBarPromptVisible to (OLEexFilterBarToggle + OLEexFilterBarPromptVisible)
	Set ComBackground OLEexFooterFilterBarButton to |CI$1000000
	Send ComEndUpdate
End_Procedure
246:
How can I change the visual appearance of the filter bar's close button (solid)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
	Set ComBackground OLEexFooterFilterBarButton to (RGB(255,0,0))
	Send ComEndUpdate
End_Procedure
245:
Is it possible to prevent definitely showing the filter bar's close button

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
	Set ComBackground OLEexFooterFilterBarButton to -1
	Send ComEndUpdate
End_Procedure
244:
Is it possible to show the close button only if there is a filter applied

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComFilterBarPromptVisible to (OLEexFilterBarShowCloseIfRequired + OLEexFilterBarPromptVisible)
	Send ComEndUpdate
End_Procedure
243:
The control's filter bar is not closed once I click the close button (toggle)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComFilterBarCaption to "`<r><fgcolor=808080>` + value"
	Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarToggle + OLEexFilterBarSingleLine + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
	Send ComEndUpdate
End_Procedure
242:
How can I display the control's filter on a single line

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComFilterBarCaption to "len(value) ? `filter for: <fgcolor 808080>` + value  : `<fgcolor 808080>no filter`"
	Set ComFilterBarPromptVisible to (OLEexFilterBarSingleLine + OLEexFilterBarVisible)
	Send ComEndUpdate
End_Procedure
241:
How can I display the control's filter on a single line (prompt-combined)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComFilterBarCaption to "`<r>` + value"
	Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarSingleLine + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
	Send ComEndUpdate
End_Procedure
240:
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
	Send ComEndUpdate
End_Procedure
239:
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
	Send ComEndUpdate
End_Procedure
238:
Is it possible to prevent closing the control's filter bar, so it is always shown

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Set ComColumnFilterButton "Name" to True
	Set ComFilterBarCaption to "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
	Set ComFilterBarPromptVisible to OLEexFilterBarVisible
	Send ComEndUpdate
End_Procedure
237:
Is it possible to show the selection with a different color, when the control loses the focus

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSingleSel to False
	Set ComExploreFromHere to ""
	Set ComHideSelection to False
	Set ComBackground OLEexSelBackColorHide to (RGB(224,224,224))
	Set ComBackground OLEexSelForeColorHide to (RGB(64,64,64))
	Send ComEndUpdate
End_Procedure
236:
Predefined Keywords of ShowContextMenu property

// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum   llState
	Forward Send OnComStateChange llState
	Set ComExecuteContextMenu to 0
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComExploreFromHere to ""
	Set ComShowContextMenu to "`menu(` + menu + `)` + `,filecount=` + filecount + `,fileattr=` + hex(fileattr) + `,filename=` + filename + `,fileparsename=` + fileparsename + `,filefullname=` + filefullname"
End_Procedure
235:
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpandFolders to True
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "XP:TREEVIEW 2 1" to Nothing
		Get ComAdd of hoAppearance 2 "XP:TREEVIEW 2 2" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexTreeGlyphOpen to |CI$1000000
	Set ComBackground OLEexTreeGlyphClose to |CI$2000000
	Send ComEndUpdate
End_Procedure
234:
How can I find if the control is running in DPI mode
Procedure OnCreate
	Forward Send OnCreate
	Showln (ComFormatABC(Self,"dpi = 1 ? `normal/stretch mode` : `dpi mode`",Nothing,Nothing,Nothing))
End_Procedure
233:
How can I change the visual appearance of the +/- buttons

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpandFolders to True
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgXIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRgwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMINCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=" to Nothing
		Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEeBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOFSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexTreeGlyphOpen to |CI$1000000
	Set ComBackground OLEexTreeGlyphClose to |CI$2000000
	Send ComEndUpdate
End_Procedure
232:
How can I copy/execute command a file/folder as path (selection)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSingleSel to False
	Set ComExploreFromHere to ""
	Set ComExpandFolders to True
	Send ComSelect "*"
	Send ComExecuteContextCommand "<selection>" True "Copy As Path"
	Send ComEndUpdate
End_Procedure
231:
How can I programmatically selects all items

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpandFolders to True
	Set ComSingleSel to False
	Set ComExploreFromHere to ""
	Send ComSelect "*"
	Send ComEndUpdate
End_Procedure
230:
How can I clear the current selection
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpandFolders to True
	Set ComExploreFromHere to ""
	Set ComSingleSel to False
	Send ComSelect ""
	Send ComEndUpdate
End_Procedure
229:
I know the Expand method selects a folder, the question is if it is possible to prevent expanding it, so just select it

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpandFolders to True
	Set ComExploreFromHere to "c:\"
	Set ComSingleSel to False
	Send ComSelect "Temp"
	Send ComSelect "Windows"
	Send ComEndUpdate
End_Procedure
228:
How can I display the identifiers of the control's context menu (debug)

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

Procedure OnCreate
	Forward Send OnCreate
	Set ComExploreFromHere to ""
	Set ComSingleSel to False
	Set ComShowContextMenu to "`[debug]` + menu"
End_Procedure
227:
How can I copy/execute command a file/folder (selection)
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSingleSel to False
	Set ComExploreFromHere to "c:\"
	Set ComExpandFolders to True
	Send ComExpand "c:\Temp"
	Send ComExecuteContextCommand "<selection>" True "Copy"
	Send ComEndUpdate
End_Procedure
226:
How can I copy a file/folder (absolute name)
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to "c:\"
	Send ComExecuteContextCommand "c:\Temp" True "Copy"
	Send ComEndUpdate
End_Procedure
225:
How can I copy a file/folder (relative name)
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to "c:\"
	Send ComExecuteContextCommand "Temp" True "Copy"
	Send ComEndUpdate
End_Procedure
224:
ShowContextMenu usage

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

Procedure OnCreate
	Forward Send OnCreate
	Set ComSingleSel to False
	Set ComFullRowSelect to True
	Set ComShowContextMenu to "filecount = 0 ? `Exit[id=1000]` : ( ( ( filecount = 1 ) ? filename : `multiple selection` ) + `[dis],[sep],` + menu)"
End_Procedure
223:
ShowContextMenu usage

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

Procedure OnCreate
	Forward Send OnCreate
	Set ComExploreFromHere to ""
	Set ComSingleSel to False
	Set ComFullRowSelect to True
	Set ComShowContextMenu to "filecount > 1 ? `multiple selection[dis]` : menu"
End_Procedure
222:
ShowContextMenu usage

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

Procedure OnCreate
	Forward Send OnCreate
	Set ComExploreFromHere to ""
	Set ComSingleSel to False
	Set ComFullRowSelect to True
	Set ComShowContextMenu to "filecount > 1 ? `multiple selection[dis]` : menu"
End_Procedure
221:
ShowContextMenu usage

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

Procedure OnCreate
	Forward Send OnCreate
	Set ComExploreFromHere to ""
	Set ComSingleSel to False
	Set ComFullRowSelect to True
	Set ComExpandFolders to True
	Set ComIncludeFilesInFolder to True
	Set ComShowContextMenu to "menu replace `Delete` with `Delete[dis]`"
End_Procedure
220:
ShowContextMenu usage

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

Procedure OnCreate
	Forward Send OnCreate
	Set ComExploreFromHere to ""
	Set ComSingleSel to False
	Set ComFullRowSelect to True
	Set ComExpandFolders to True
	Set ComIncludeFilesInFolder to True
	Set ComShowContextMenu to "menu replace `&Delete` with ``"
End_Procedure
219:
ShowContextMenu usage

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

Procedure OnCreate
	Forward Send OnCreate
	Set ComExploreFromHere to ""
	Set ComSingleSel to False
	Set ComFullRowSelect to True
	Set ComShowContextMenu to "`Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),` + menu + `,Exit[id=1000]`"
End_Procedure
218:
ShowContextMenu usage

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

Procedure OnCreate
	Forward Send OnCreate
	Set ComExploreFromHere to ""
	Set ComSingleSel to False
	Set ComFullRowSelect to True
	Set ComShowContextMenu to "filecount = 0 ? `Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]` : menu"
End_Procedure
217:
ShowContextMenu usage

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

Procedure OnCreate
	Forward Send OnCreate
	Set ComExploreFromHere to ""
	Set ComFullRowSelect to True
	Set ComShowContextMenu to "Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]"
End_Procedure
216:
ShowContextMenu usage
// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum   llState
	Forward Send OnComStateChange llState
	Showln "State" llState
	Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
	Showln "no context menu is generated, so nothing is displayed"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComExploreFromHere to ""
	Set ComFullRowSelect to True
	Set ComShowContextMenu to "``"
End_Procedure
215:
How can I add new items to the default file's context menu

// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum   llState
	Forward Send OnComStateChange llState
	Showln "State " llState
	Showln "ContextMenu" (ComShowContextMenu(Self))
	Set ComShowContextMenu to (ComFormatABC(Self,"B = 20 ? ( `My First Popup[def](A,B,C),[sep],`+ value + `,[sep],My Last Popup[def](A,B,C)` ) : value",(ComShowContextMenu(Self)),llState,Nothing))
	Showln "Execute" (ComExecuteContextMenu(Self))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComExploreFromHere to ""
End_Procedure
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.
Procedure OnComStateChange OLEStateChangeEnum   llState
	Forward Send OnComStateChange llState
	Showln "State " llState
	Showln "ContextMenu" (ComShowContextMenu(Self))
	Set ComShowContextMenu to (ComFormatABC(Self,"B = 20 ? (`[debug]`+ value) : value ",(ComShowContextMenu(Self)),llState,Nothing))
End_Procedure


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

// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum   llState
	Forward Send OnComStateChange llState
	Showln "State " llState
	Showln "ContextMenu" (ComShowContextMenu(Self))
	Set ComShowContextMenu to (ComFormatABC(Self,"value replace `&Delete` with ``",(ComShowContextMenu(Self)),Nothing,Nothing))
End_Procedure


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

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExploreFromHere to ""
	Send ComExecuteContextCommand "C:\" True "20"
	Send ComEndUpdate
End_Procedure
211:
How can I simulate the left-side of the Windows Explorer

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComColumnsVisible to OLEexFileColumnName
	Set ComExpandFolders to True
	Set ComExploreFromHere to "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
	Send ComExpand "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
	Send ComEndUpdate
End_Procedure
210:
How can I add the "Control Panel" folder

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComColumnsVisible to OLEexFileColumnName
	Set ComExpandFolders to True
	Set ComExploreFromHere to "::{26EE0668-A00A-44D7-9371-BEB064C98683}>"
	Send ComEndUpdate
End_Procedure
209:
How can I add the "My Documents"

Procedure OnCreate
	Forward Send OnCreate
	Set ComIncludeFilesInFolder to True
	Set ComExpandFolders to True
	Set ComExploreFromHere to "::{450d8fba-ad25-11d0-98a8-0800361b1103}>"
End_Procedure
208:
How can I add the Printers and Faxes

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpandFolders to True
	Set ComColumnsVisible to OLEexFileColumnName
	Set ComIncludeFilesInFolder to True
	Set ComExploreFromHere to "::{2227a280-3aea-1069-a2de-08002b30309d}>"
End_Procedure
207:
How can I add the Network Connections

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpandFolders to True
	Set ComColumnsVisible to OLEexFileColumnName
	Set ComIncludeFilesInFolder to True
	Set ComExploreFromHere to "::{7007acc7-3202-11d1-aad2-00805fc1270e}>"
	Send ComEndUpdate
End_Procedure
206:
How can I add the "Recycle Bin" folder

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpandFolders to True
	Set ComIncludeFilesInFolder to True
	Set ComExploreFromHere to "::{645FF040-5081-101B-9F08-00AA002F954E}>"
End_Procedure
205:
How can I add the "Documents" folder

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpandFolders to True
	Set ComExploreFromHere to "::{450D8FBA-AD25-11D0-98A8-0800361B1103}>"
End_Procedure
204:
How can I add the "Control Panel" folder

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComColumnsVisible to OLEexFileColumnName
	Set ComExpandFolders to True
	Set ComIncludeFilesInFolder to True
	Set ComExploreFromHere to "::{21EC2020-3AEA-1069-A2DD-08002b30309d}>"
	Send ComEndUpdate
End_Procedure
203:
How can I add the Network folder

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpandFolders to True
	Set ComExploreFromHere to "::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}>"
End_Procedure
202:
How can I add the My Computer

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

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpandFolders to True
	Set ComExploreFromHere to "::{208D2C60-3AEA-1069-A2D7-08002B30309D}>"
End_Procedure