125
Explorer control (browse for the folder being double-clicked)

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = 2
oThumbnail.Mode = 32768
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

124
Can I display the size of the files, using 1 decimal, such as 10.2 KB instead of 10 KB

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.Caption = "ffolder ? ( fname + ( len( 22:=(int(0:=(1:=fsize)/1024/1024/1024) ? round(=:0*10)/10 + ` GB` : (int(0:==:1/1024/1024) ? round(=:0*10)/10 + ` MB` : (int(0:==:1/1024) ? round(=:0*10)/10 + ` KB` : =:1 + ` B`))) ) ? `, ` + =:22 : `` ) ) : ffile"
oThumbnail.ToolTipText = "ffolder ? ( `Name: <b>` + fname + `</b>` + `<br>` + ( len( 0:= ftype ) ? `Type: <b>` + =:0 + `</b>` + `<br>` : `` ) + ( ffolder = 1 ? `Size: <b>` + (int(0:=(1:=fsize)/1024/1024/1024) ? round(=:0*10)/10 + ` GB` : (int(0:==:1/1024/1024) ? round(=:0*10)/10 + ` MB` : (int(0:==:1/1024) ? round(=:0*10)/10 + ` KB` : =:1 + ` B`))) + `</b>` + `<br>` : `` ) + `Created: <b>` + fcreated_local + `</b>` + `<br>` + `Modified: <b>` + fmodified_local + `</b>`+ `<br>` + `Last Opened: <b>` + fopened_local + `</b>`+ (fpicture ? (`<br>Dimensions: <b>` + fwidth + ` x ` + fheight + `</b>` ) : ``) ) : ffile"
oThumbnail.EndUpdate()

123
It appears that Created, Modified and Last Opened values are not correct (local)
local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.Padding = ""
oThumbnail.Alignment = 33
oThumbnail.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
oThumbnail.Caption = "`Created: <b><r>` + fcreated_local + `</b>` + `<br>` + `Modified: <b><r>` + fmodified_local + `</b>`+ `<br>` + `Last Opened: <r><b>` + fopened_local + `</b>`"
oThumbnail.SingleCaption = oThumbnail.Caption
oThumbnail.EndUpdate()

122
It appears that Created, Modified and Last Opened values are not correct (bias)
local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.Padding = ""
oThumbnail.Alignment = 33
oThumbnail.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
oThumbnail.Caption = "`Created: <b><r>` + date(fcreated - bias/24/60) + `</b>` + `<br>` + `Modified: <b><r>` + date(fmodified - bias/24/60) + `</b>`+ `<br>` + `Last Opened: <r><b>` + date(fopened - bias/24/60) + `</b>`"
oThumbnail.SingleCaption = oThumbnail.Caption
oThumbnail.EndUpdate()

121
How can I sort the thumbnails, case insensitive

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.Sort = 514 /*exThumbailSortInsensitive | exThumbailSortByName*/
oThumbnail.EndUpdate()

120
How can I select programatically multiple files
/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	StateChange = class::nativeObject_StateChange
endwith
*/
// Fired while the control's state has been changed.
function nativeObject_StateChange(State)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? Str(State) 
	? oThumbnail.Select 
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.SingleSel = false
oThumbnail.Select = "Brazil.png\r\ncordova.png"
oThumbnail.EndUpdate()

119
Does your control support multiple-selection

/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	StateChange = class::nativeObject_StateChange
endwith
*/
// Fired while the control's state has been changed.
function nativeObject_StateChange(State)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? Str(State) 
	? oThumbnail.Select 
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.SingleSel = false
oThumbnail.Select = "Brazil.png\r\ncordova.png"
oThumbnail.EndUpdate()

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

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = 2
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.Template = [Background(179) = 65536] // oThumbnail.Background(179) = 0x10000
oThumbnail.Select = "Access2007"
oThumbnail.EndUpdate()

117
Predefined Keywords of ShowContextMenu property

/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	StateChange = class::nativeObject_StateChange
endwith
*/
// Fired while the control's state has been changed.
function nativeObject_StateChange(State)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	oThumbnail.ExecuteContextMenu = 0
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.ShowContextMenu = "`menu(` + menu + `)` + `,filecount=` + filecount + `,fileattr=` + hex(fileattr) + `,filename=` + filename + `,fileparsename=` + fileparsename + `,filefullname=` + filefullname"
oThumbnail.EndUpdate()

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

/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	StateChange = class::nativeObject_StateChange
endwith
*/
// Fired while the control's state has been changed.
function nativeObject_StateChange(State)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? "State" 
	? Str(State) 
	? "ExecuteContextMenu" 
	? Str(oThumbnail.ExecuteContextMenu) 
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.ShowContextMenu = "`[debug]` + menu"
oThumbnail.EndUpdate()

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

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.Select = "Brazil.png"
oThumbnail.ExecuteContextCommand("<selection>",true,"Copy As Path")
oThumbnail.EndUpdate()

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

/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	StateChange = class::nativeObject_StateChange
endwith
*/
// Fired while the control's state has been changed.
function nativeObject_StateChange(State)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? "State " 
	? Str(State) 
	? "ContextMenu" 
	? oThumbnail.ShowContextMenu 
	oThumbnail.ShowContextMenu = Str(oThumbnail.FormatABC("B = 20 ? (`[debug]`+ value) : value ",oThumbnail.ShowContextMenu,State))
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

113
How can I copy/execute command a file/folder (selection)
local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.Select = "Brazil.png"
oThumbnail.ExecuteContextCommand("<selection>",true,"Copy")
oThumbnail.EndUpdate()

112
How can I copy a file/folder (absolute name)
local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.ExecuteContextCommand("c:\Temp",true,"Copy")
oThumbnail.EndUpdate()

111
How can I copy a file/folder (relative name)
local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.ExecuteContextCommand("Belgium.png",true,"Copy")
oThumbnail.EndUpdate()

110
ShowContextMenu usage

/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	StateChange = class::nativeObject_StateChange
endwith
*/
// Fired while the control's state has been changed.
function nativeObject_StateChange(State)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? "State" 
	? Str(State) 
	? "ExecuteContextMenu" 
	? Str(oThumbnail.ExecuteContextMenu) 
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.ShowContextMenu = "filecount = 0 ? `Exit[id=1000]` : ( ( ( filecount = 1 ) ? filename : `multiple selection` ) + `[dis],[sep],` + menu)"
oThumbnail.EndUpdate()

109
ShowContextMenu usage
/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	StateChange = class::nativeObject_StateChange
endwith
*/
// Fired while the control's state has been changed.
function nativeObject_StateChange(State)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? "State" 
	? Str(State) 
	? "ExecuteContextMenu" 
	? Str(oThumbnail.ExecuteContextMenu) 
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.ShowContextMenu = "filecount > 1 ? `multiple selection[dis]` : menu"
oThumbnail.EndUpdate()

108
ShowContextMenu usage
/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	StateChange = class::nativeObject_StateChange
endwith
*/
// Fired while the control's state has been changed.
function nativeObject_StateChange(State)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? "State" 
	? Str(State) 
	? "ExecuteContextMenu" 
	? Str(oThumbnail.ExecuteContextMenu) 
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.ShowContextMenu = "filecount > 1 ? `multiple selection[dis]` : menu"
oThumbnail.EndUpdate()

107
ShowContextMenu usage

/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	StateChange = class::nativeObject_StateChange
endwith
*/
// Fired while the control's state has been changed.
function nativeObject_StateChange(State)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? "State" 
	? Str(State) 
	? "ExecuteContextMenu" 
	? Str(oThumbnail.ExecuteContextMenu) 
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.ShowContextMenu = "menu replace `&Delete` with ``"
oThumbnail.EndUpdate()

106
ShowContextMenu usage

/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	StateChange = class::nativeObject_StateChange
endwith
*/
// Fired while the control's state has been changed.
function nativeObject_StateChange(State)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? "State" 
	? Str(State) 
	? "ExecuteContextMenu" 
	? Str(oThumbnail.ExecuteContextMenu) 
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.ShowContextMenu = "`Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),` + menu + `,Exit[id=1000]`"
oThumbnail.EndUpdate()

105
ShowContextMenu usage

/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	StateChange = class::nativeObject_StateChange
endwith
*/
// Fired while the control's state has been changed.
function nativeObject_StateChange(State)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? "State" 
	? Str(State) 
	? "ExecuteContextMenu" 
	? Str(oThumbnail.ExecuteContextMenu) 
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.ShowContextMenu = "filecount = 0 ? `Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]` : menu"
oThumbnail.EndUpdate()

104
ShowContextMenu usage

/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	StateChange = class::nativeObject_StateChange
endwith
*/
// Fired while the control's state has been changed.
function nativeObject_StateChange(State)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? "State" 
	? Str(State) 
	? "ExecuteContextMenu" 
	? Str(oThumbnail.ExecuteContextMenu) 
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.ShowContextMenu = "Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]"
oThumbnail.EndUpdate()

103
ShowContextMenu usage
/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	StateChange = class::nativeObject_StateChange
endwith
*/
// Fired while the control's state has been changed.
function nativeObject_StateChange(State)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? "State" 
	? Str(State) 
	? "ExecuteContextMenu" 
	? Str(oThumbnail.ExecuteContextMenu) 
	? "no context menu is generated, so nothing is displayed" 
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.ShowContextMenu = "``"
oThumbnail.EndUpdate()

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

/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	StateChange = class::nativeObject_StateChange
endwith
*/
// Fired while the control's state has been changed.
function nativeObject_StateChange(State)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? "State " 
	? Str(State) 
	? "ContextMenu" 
	? oThumbnail.ShowContextMenu 
	oThumbnail.ShowContextMenu = Str(oThumbnail.FormatABC("B = 20 ? ( `My First Popup[def](A,B,C),[sep],`+ value + `,[sep],My Last Popup[def](A,B,C)` ) : value",oThumbnail.ShowContextMenu,State))
	? "Execute" 
	? Str(oThumbnail.ExecuteContextMenu) 
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

101
How can I disable the Delete command from the file's context menu

/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	StateChange = class::nativeObject_StateChange
endwith
*/
// Fired while the control's state has been changed.
function nativeObject_StateChange(State)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? "State " 
	? Str(State) 
	? "ContextMenu" 
	? oThumbnail.ShowContextMenu 
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.ShowContextMenu = "menu replace `Delete` with `Delete[dis]`"
oThumbnail.EndUpdate()

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

/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	StateChange = class::nativeObject_StateChange
endwith
*/
// Fired while the control's state has been changed.
function nativeObject_StateChange(State)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? "State " 
	? Str(State) 
	? "ContextMenu" 
	? oThumbnail.ShowContextMenu 
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.ShowContextMenu = "menu replace `&Delete` with ``"
oThumbnail.EndUpdate()

99
How can I provide my own context menu

/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	StateChange = class::nativeObject_StateChange
endwith
*/
// Fired while the control's state has been changed.
function nativeObject_StateChange(State)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? "State " 
	? Str(State) 
	? "ContextMenu" 
	? oThumbnail.ShowContextMenu 
	oThumbnail.ShowContextMenu = "Item 1[id=1][def],Item 2[id=2],[sep][id=3],Popup[id=4](Item 3[id=5],Item 4[id=6])"
	? "ExecuteContextMenu" 
	? Str(oThumbnail.ExecuteContextMenu) 
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

98
Is it possible to prevent executing a specific command from the object's context menu
/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	StateChange = class::nativeObject_StateChange
endwith
*/
// Fired while the control's state has been changed.
function nativeObject_StateChange(State)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? "State " 
	? Str(State) 
	? "ContextMenu" 
	? oThumbnail.ShowContextMenu 
	? "ExecuteContextMenu" 
	? Str(oThumbnail.ExecuteContextMenu) 
	oThumbnail.ExecuteContextMenu = 0
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

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

/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	StateChange = class::nativeObject_StateChange
endwith
*/
// Fired while the control's state has been changed.
function nativeObject_StateChange(State)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? "State " 
	? Str(State) 
	? "ContextMenu" 
	? oThumbnail.ShowContextMenu 
	oThumbnail.ShowContextMenu = Str(oThumbnail.FormatABC("value replace `&Delete` with `&Delete[dis]`",oThumbnail.ShowContextMenu))
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

96
How can I programmatically selects a file

/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	StateChange = class::nativeObject_StateChange
endwith
*/
// Fired while the control's state has been changed.
function nativeObject_StateChange(State)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? Str(State) 
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = 2
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.Template = [Background(178) = 255] // oThumbnail.Background(178) = 0xff
oThumbnail.Template = [Background(179) = Background(178)] // oThumbnail.Background(179) = oThumbnail.Background(178)
oThumbnail.Select = "Access2007"
oThumbnail.EndUpdate()

95
How can I programmatically unselect the file
/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	StateChange = class::nativeObject_StateChange
endwith
*/
// Fired while the control's state has been changed.
function nativeObject_StateChange(State)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? Str(State) 
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = 2
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.Template = [Background(178) = 255] // oThumbnail.Background(178) = 0xff
oThumbnail.Template = [Background(179) = Background(178)] // oThumbnail.Background(179) = oThumbnail.Background(178)
oThumbnail.Select = ""
oThumbnail.EndUpdate()

94
How can I change the color to show the selected frame

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = 2
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.Template = [Background(178) = 255] // oThumbnail.Background(178) = 0xff
oThumbnail.EndUpdate()

93
How can I remove the frame being selected when the control loses the focus (hidesel)
local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = 2
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.Template = [Background(179) = -1] // oThumbnail.Background(179) = -1
oThumbnail.EndUpdate()

92
When I drop a folder, can I include all its content, files and sub-folders

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = 2
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

91
When I drop a folder, can I include sub-folders only

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = 1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

90
I've noticed that if I drop a single file I get a different caption. How can I change that (sample 2)

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample\Brazil.png")
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample\Romania.png")
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample\USA.png")
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample\Venezuela.png")
oThumbnail.Caption = "`<sha ;;0><fgcolor=808080>` + upper(fname replace `.` + fext with ``)"
oThumbnail.SingleCaption = ""
oThumbnail.FilterBarPromptPattern = "USA"
oThumbnail.EndUpdate()

89
I've noticed that if I drop a single file I get a different caption. How can I change that (sample 1)

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.InputFile = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
oThumbnail.SingleCaption = oThumbnail.Caption

88
Can I somehow show the close button of the control's filter bar to the right, only if required

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.FilterBarVisible = 1537 /*exFilterBarShowCloseOnRight | exFilterBarShowCloseIfRequired | exFilterBarVisible*/
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.FilterBarBackColor = 0x0
oThumbnail.FilterBarForeColor = 0xffffff
oThumbnail.FilterBarPromptPattern = "elogo"
oThumbnail.EndUpdate()

87
I have a filter being applied, the question is how can I display the number/count of results (sample 3)

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.FilterBarPromptPattern = "el"
oThumbnail.StatusCaption = "(len(ffilter) = 0) ? `` : ( `<fgcolor=808080>` + ( fvcount ? ( fvcount format `0` ) + ` result(s).` : `No results.` ) )"
oThumbnail.EndUpdate()

86
Just icons are shown when droping the file into the control. What can I check

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.ThumbnailType = 255
oThumbnail.ExtractMethod = "ThumbnailCache,ThumbnailProvider,ExtractImage"
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

85
How can I turn on the auto-update, so the thumbnails updates automatically once the user changes the files
local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AllowContextMenu = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.StatusCaption = "<c><font ;10><sha ;;0>Open the Windows Explorer, and delete or edit any of these files."
oThumbnail.EndUpdate()

84
I am using the control's default context menu to delete the file, and the file still shows in the control with no thumbnail. What can I do so it won't be shown
local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoUpdate = true
oThumbnail.AllowContextMenu = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.StatusCaption = "<c><font ;10><sha ;;0>Open the Windows Explorer, and delete or edit any of these files."
oThumbnail.EndUpdate()

83
Is it possible to displays the file's context menu

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AllowContextMenu = true
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

82
How can I programmatically get the number of results

/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	Click = class::nativeObject_Click
endwith
*/
// Occurs when the user presses and then releases the left mouse button over the control.
function nativeObject_Click()
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? "Results:" 
	? Str(oThumbnail.FormatABC("fvcount")) 
	? "Total:" 
	? Str(oThumbnail.FormatABC("fcount")) 
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.FilterBarPromptPattern = "el"
oThumbnail.StatusCaption = "(fvcount = fcount) ? `` : ( `<fgcolor=808080>` + ( fvcount ? ( fvcount format `0` ) + ` result(s).` : `No results.` ) )"
oThumbnail.EndUpdate()

81
I have a filter being applied, the question is how can I display the number/count of results (sample 2)

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.FilterBarPromptPattern = "el"
oThumbnail.StatusCaption = "(fvcount = fcount) ? `` : ( `<fgcolor=808080>` + ( fvcount ? ( fvcount format `0` ) + ` result(s).` : `No results.` ) )"
oThumbnail.EndUpdate()

80
I have a filter being applied, the question is how can I display the number of results (sample 1)

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.FilterBarPromptPattern = "e"
oThumbnail.StatusCaption = "not (fcount = fvcount ) ? (`<r><font ;6><fgcolor=808080><sha ;;0>Found: <b>` + (len(fvcount) ? fvcount format `0` : 0)) : ``"
oThumbnail.EndUpdate()

79
Is it possible to display the number of files that are currently in the list

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.StatusCaption = "`<r><font ;6><fgcolor=808080><sha ;;0>Count: <b>` + (len(fvcount) ? fvcount : 0)"
oThumbnail.EndUpdate()

78
How can I specify the number of files to be displayed

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.LimitInputFiles = 4
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

77
Is it possible to limit the number of files to be shown to one

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.LimitInputFiles = 1
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

76
I've seen that you can magnify the view once the user draggs the control while middle-mouse button is pressed. How can I disable that
local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.Mode = 26368 /*exThumbnailKeepAspectRatio | exThumbnailAutoFitOnDblClk | exThumbnailCenter | exThumbnailStretch | exThumbnailAutoFit*/
oThumbnail.EndUpdate()

75
How can I display the name on a line, and the size on the other line

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.Padding = "0 0 0 36"
oThumbnail.Margins = "4 0"
oThumbnail.Sort = 4
oThumbnail.WordWrap = true
oThumbnail.Caption = "ffolder ? ( lower(fname) + ( len( 0:=fsizeF ) ? `<br><c>` + =:0 : `` ) ) : ffile"
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

74
Can I display the name of the thumbnails without the extension

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.Template = [Background(177) = 1] // oThumbnail.Background(177) = 0x1
oThumbnail.AcceptFolders = -1
oThumbnail.WordWrap = false
oThumbnail.Caption = "ffolder ? ( lower(fname replace `.` + fext with ``) + ( len( 0:=fsizeF ) ? `, ` + =:0 : `` ) ) : ffile"
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

73
I am trying to use the DblClick event, but the control switch the view to a different mode. Can I open the file, when user double clicks the control
/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	DblClick = class::nativeObject_DblClick
endwith
*/
// Occurs when the user dblclk the left mouse button over an object.
function nativeObject_DblClick(Shift,X,Y)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? Str(oThumbnail.ThumbnailFromPoint(-1,-1)) 
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.Mode = 22272 /*exThumbnailKeepAspectRatio | exThumbnailAllowResize | exThumbnailCenter | exThumbnailStretch | exThumbnailAutoFit*/
oThumbnail.EndUpdate()

72
How can I hide/prevent showing the control's filter

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.FilterBarVisible = 0
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

71
The thumbnails get resized as soon as I change the filter. Can I make it fixed

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.Template = [ScrollPartVisible(0,65536) = True] // oThumbnail.ScrollPartVisible(0,65536) = true
oThumbnail.Template = [ScrollPartVisible(1,65536) = True] // oThumbnail.ScrollPartVisible(1,65536) = true
oThumbnail.Template = [ScrollPartVisible(2,65536) = True] // oThumbnail.ScrollPartVisible(2 /*0x2 | */,65536) = true
oThumbnail.ScrollWidth = 4
oThumbnail.Template = [Background(276) = 15790320] // oThumbnail.Background(276) = 0xf0f0f0
oThumbnail.Template = [Background(260) = 8421504] // oThumbnail.Background(260) = 0x808080
oThumbnail.ScrollHeight = 4
oThumbnail.Template = [Background(404) = Background(276)] // oThumbnail.Background(404) = oThumbnail.Background(276)
oThumbnail.Template = [Background(388) = Background(260)] // oThumbnail.Background(388) = oThumbnail.Background(260)
oThumbnail.Template = [Background(511) = Background(276)] // oThumbnail.Background(511) = oThumbnail.Background(276)
oThumbnail.Mode = 30208 /*exThumbnailKeepAspectRatio | exThumbnailAutoFitOnDblClk | exThumbnailAllowResize | exThumbnailCenter | exThumbnailStretch*/
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

70
Is it possible to display the names in lower-case, and with a different color the size

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.Caption = "lower(ffolder ? ( fname : ffile)) + ( len( 0:=fsizeF ) ? `, <fgcolor=A0A0A0>` + =:0 + `</fgcolor>` : `` )"
oThumbnail.EndUpdate()

69
Is it possible to display the names in upper-case

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.Caption = "upper(ffolder ? ( fname + ( len( 0:=fsizeF ) ? `, ` + =:0 : `` ) ) : ffile)"
oThumbnail.EndUpdate()

68
How can I programmatically apply a filter to the control

/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	Click = class::nativeObject_Click
endwith
*/
// Occurs when the user presses and then releases the left mouse button over the control.
function nativeObject_Click()
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	oThumbnail.FilterBarPromptPattern = "jpg"
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

67
How can I clear programmatically the control's filter

/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	Click = class::nativeObject_Click
endwith
*/
// Occurs when the user presses and then releases the left mouse button over the control.
function nativeObject_Click()
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	oThumbnail.FilterBarPromptPattern = ""
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.FilterBarPromptPattern = "jpg"
oThumbnail.EndUpdate()

66
Is the "Start Filter ..." customizable, so I can change to my language

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.FilterBarBackColor = 0x0
oThumbnail.FilterBarForeColor = 0xffffff
oThumbnail.FilterBarPrompt = "<i><b>Click here to start filter for...</b></i>"
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

65
How can I define what to filter for. For instance, just the name, extension. Is it possible

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.FilterBarFor = "fname"
oThumbnail.FilterBarPromptPattern = "jpg"
oThumbnail.EndUpdate()

64
It is possible to turn-on case-sensitive for the control's filter

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.FilterBarPromptType = 257 /*exFilterPromptCaseSensitive | exFilterPromptContainsAll*/
oThumbnail.FilterBarPromptPattern = "el"
oThumbnail.EndUpdate()

63
Can I filter the thumbnails that starts with instead contains typed characters

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.FilterBarPromptType = 3
oThumbnail.FilterBarPromptPattern = "el"
oThumbnail.EndUpdate()

62
Can I use wild characters in the filter

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.FilterBarPromptType = 16
oThumbnail.FilterBarFor = "fname"
oThumbnail.FilterBarPromptPattern = "*.jpg"
oThumbnail.EndUpdate()

61
I've noticed that If I type more words on filter bar all should be included, the question is can I display thumbnails that contains any of these words

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.FilterBarPromptType = 2
oThumbnail.FilterBarPromptPattern = "elogo or something that you won't find"
oThumbnail.EndUpdate()

60
How can I change the filter's bar foreground/background color

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.FilterBarBackColor = 0x0
oThumbnail.FilterBarForeColor = 0xffffff
oThumbnail.FilterBarPrompt = "<i>Start Filter...</i>"
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

59
The question is can I somehow show the close button of the control's filter bar to the right

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.FilterBarVisible = 1025 /*exFilterBarShowCloseOnRight | exFilterBarVisible*/
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

58
Is it possible to change the color to show the close button of the control's filter bar

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.Template = [Background(1) = 65280] // oThumbnail.Background(1) = 0xff00
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

57
How can I prevent showing the close button, in the control's filter bar

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.Template = [Background(1) = -1] // oThumbnail.Background(1) = -1
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

56
Is it possible to show the close button, only if there is a filter applied

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.FilterBarVisible = 513 /*exFilterBarShowCloseIfRequired | exFilterBarVisible*/
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

55
How can I close/hide the filter once the user clicks the close button
local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.FilterBarVisible = 257 /*exFilterBarToggle | exFilterBarVisible*/
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

54
How can I disable the control's filter bar

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.FilterBarVisible = 0
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

53
How can I enable the control's filter bar

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.FilterBarVisible = 1
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

52
How can I enable alternate background/foreground colors

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.Template = [Background(175) = 15790320] // oThumbnail.Background(175) = 0xf0f0f0
oThumbnail.Template = [Background(176) = 8421504] // oThumbnail.Background(176) = 0x808080
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

51
How can I remove all margins, so I have a compact view

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.Margins = "0 0"
oThumbnail.Padding = "0 0 0 0"
oThumbnail.Borders = "0 0 0 0"
oThumbnail.Template = [Background(177) = 1] // oThumbnail.Background(177) = 0x1
oThumbnail.Alignment = 33
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

50
The thumbnail's caption gets wrapped, the question is can I disable that

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.Margins = "16 16"
oThumbnail.ThumbnailMinWidth = 32
oThumbnail.ThumbnailMinHeight = 32
oThumbnail.Mode = 30208 /*exThumbnailKeepAspectRatio | exThumbnailAutoFitOnDblClk | exThumbnailAllowResize | exThumbnailCenter | exThumbnailStretch*/
oThumbnail.AcceptFolders = -1
oThumbnail.WordWrap = false
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

49
How can I display the thumbnail's caption on the right rather than bottom

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.Margins = "0 16"
oThumbnail.Padding = "0 0 16 0"
oThumbnail.Borders = "16 16 16 16"
oThumbnail.CaptionRotate = 17 /*exHTMLMirror | exHTMLVertical*/
oThumbnail.Template = [Background(177) = 1] // oThumbnail.Background(177) = 0x1
oThumbnail.AcceptFolders = -1
oThumbnail.WordWrap = false
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

48
How can I display the thumbnail's caption on the left rather than bottom

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.Margins = "0 16"
oThumbnail.Padding = "16 0 0 0"
oThumbnail.Borders = "16 16 16 16"
oThumbnail.CaptionRotate = 1
oThumbnail.Template = [Background(177) = 1] // oThumbnail.Background(177) = 0x1
oThumbnail.AcceptFolders = -1
oThumbnail.WordWrap = false
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

47
How can I display the thumbnail's caption on the top rather than bottom

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.Margins = "16 0"
oThumbnail.Padding = "0 16 0 0"
oThumbnail.Borders = "16 16 16 16"
oThumbnail.Template = [Background(177) = 1] // oThumbnail.Background(177) = 0x1
oThumbnail.AcceptFolders = -1
oThumbnail.WordWrap = false
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

46
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.Template = [ScrollPartVisible(0,65536) = True] // oThumbnail.ScrollPartVisible(0,65536) = true
oThumbnail.Template = [ScrollPartVisible(1,65536) = True] // oThumbnail.ScrollPartVisible(1,65536) = true
oThumbnail.Template = [ScrollPartVisible(2,65536) = True] // oThumbnail.ScrollPartVisible(2 /*0x2 | */,65536) = true
oThumbnail.ScrollWidth = 4
oThumbnail.Template = [Background(276) = 15790320] // oThumbnail.Background(276) = 0xf0f0f0
oThumbnail.Template = [Background(260) = 8421504] // oThumbnail.Background(260) = 0x808080
oThumbnail.ScrollHeight = 4
oThumbnail.Template = [Background(404) = Background(276)] // oThumbnail.Background(404) = oThumbnail.Background(276)
oThumbnail.Template = [Background(388) = Background(260)] // oThumbnail.Background(388) = oThumbnail.Background(260)
oThumbnail.Template = [Background(511) = Background(276)] // oThumbnail.Background(511) = oThumbnail.Background(276)
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

45
How can I prevent showing the control's scroll bars
local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoDrag = 0
oThumbnail.ScrollWidth = 0
oThumbnail.ScrollHeight = 0
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

44
How can I modify the margins of the thumbnail

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.Margins = "16 0"
oThumbnail.Padding = "0 16 0 0"
oThumbnail.Borders = "16 16 16 16"
oThumbnail.WordWrap = false
oThumbnail.Template = [Background(177) = 1] // oThumbnail.Background(177) = 0x1
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

43
The thumbnail view gets scrolled when user clicks it. Can I disable that
local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AutoDrag = 0
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

42
The thumbnail get maximized as soon as the user double clicks it. May I prevent that
local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.Mode = 22272 /*exThumbnailKeepAspectRatio | exThumbnailAllowResize | exThumbnailCenter | exThumbnailStretch | exThumbnailAutoFit*/
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

41
Can I limit the thumbnail size when the user resizes it

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.Margins = "16 16"
oThumbnail.ThumbnailMinWidth = 64
oThumbnail.ThumbnailMinHeight = 64
oThumbnail.ThumbnailMaxWidth = 64
oThumbnail.ThumbnailMaxHeight = 64
oThumbnail.Mode = 30208 /*exThumbnailKeepAspectRatio | exThumbnailAutoFitOnDblClk | exThumbnailAllowResize | exThumbnailCenter | exThumbnailStretch*/
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.Caption = "fname"
oThumbnail.EndUpdate()

40
I've seen that that the thumbnail can be resized up to 120 points, can I change that

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.Margins = "8 8"
oThumbnail.Padding = "0 0 0 8"
oThumbnail.ThumbnailMinWidth = 32
oThumbnail.ThumbnailMinHeight = 32
oThumbnail.Mode = 30208 /*exThumbnailKeepAspectRatio | exThumbnailAutoFitOnDblClk | exThumbnailAllowResize | exThumbnailCenter | exThumbnailStretch*/
oThumbnail.AcceptFolders = -1
oThumbnail.WordWrap = false
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.Caption = "`<font ;4>` + fname replace `.` + fext with ``"
oThumbnail.EndUpdate()

39
How can I change the thumbnail's mode to stack

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.VirtualMode = false
oThumbnail.Margins = "16 16"
oThumbnail.Mode = 14081 /*exThumbnailAutoFitOnDblClk | exThumbnailAllowResize | exThumbnailCenter | exThumbnailStretch | exThumbnailAutoFit | exThumbnailStack*/
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

38
How do I sort the thumbnails

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.Sort = 260 /*exThumbailSortReverse | exThumbailSortBySize*/
oThumbnail.EndUpdate()

37
How can I get thumbnailed all sub-files within the folder

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

36
How can I hide the thumbnail's frame
local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.Padding = ""
oThumbnail.Alignment = 33
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg")
oThumbnail.Caption = "ffolder ? ( `Name: <b>` + fname + `</b>` + `<br>` + ( len( 0:= ftype ) ? `Type: <b>` + =:0 + `</b>` + `<br>` : `` ) + ( ffolder = 1 ? `Size: <b>` + fsizeF + `</b>` + `<br>` : `` ) + `Created: <b>` + date(fcreated - bias/24/60) + `</b>` + `<br>` + `Modified: <b>` + date(fmodified - bias/24/60) + `</b>`+ `<br>` + `Last Opened: <b>` + date(fopened - bias/24/60) + `</b>`+ (fpicture ? (`<br>Dimensions: <b>` + fwidth + ` x ` + fheight + `</b>` ) : ``) ) : ffile"
oThumbnail.Template = [Background(177) = 0] // oThumbnail.Background(177) = 0x0
oThumbnail.EndUpdate()

35
How do I get the thumbnail from the cursor
/*
with (this.EXTHUMBNAILACTIVEXCONTROL1.nativeObject)
	MouseMove = class::nativeObject_MouseMove
endwith
*/
// Occurs when the user moves the mouse.
function nativeObject_MouseMove(Button,Shift,X,Y)
	oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
	? Str(oThumbnail.ThumbnailFromPoint(-1,-1)) 
return

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.EndUpdate()

34
I've noticed that the thumbnail's tooltip is displaying more information. How can I change that

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.ToolTipTitle = "File"
oThumbnail.ToolTipText = "ffile replace fname with (`<b>` + fname + `</b>`)"
oThumbnail.EndUpdate()

33
How can I display more information about the thumbnail

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.Padding = ""
oThumbnail.Alignment = 33
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample\EndangeredAnimals.png")
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample\logocanary.png")
oThumbnail.Caption = "ffolder ? ( `Name: <b>` + fname + `</b>` + `<br>` + ( len( 0:= ftype ) ? `Type: <b>` + =:0 + `</b>` + `<br>` : `` ) + ( ffolder = 1 ? `Size: <b>` + fsizeF + `</b>` + `<br>` : `` ) + `Created: <b>` + date(fcreated - bias/24/60) + `</b>` + `<br>` + `Modified: <b>` + date(fmodified - bias/24/60) + `</b>`+ `<br>` + `Last Opened: <b>` + date(fopened - bias/24/60) + `</b>`+ (fpicture ? (`<br>Dimensions: <b>` + fwidth + ` x ` + fheight + `</b>` ) : ``) ) : ffile"
oThumbnail.SingleCaption = oThumbnail.Caption
oThumbnail.EndUpdate()

32
Can I display the thumbnail's caption based on the size of the view
local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.InputFile = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
oThumbnail.Caption = "width < 256 ? fname : ffile"
oThumbnail.EndUpdate()

31
How do I know the thumbnail's size (sample 2)

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.Caption = "`View: ` + width + ` x ` + height"
oThumbnail.EndUpdate()

30
How do I know the thumbnail's size (sample 1)

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.InputFile = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
oThumbnail.EndUpdate()
? "Width: " 
? Str(oThumbnail.ThumbnailWidth) 
? "Height: " 
? Str(oThumbnail.ThumbnailHeight) 

29
Is it possible to get the dimensions of the picture file

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
oThumbnail.Caption = "`Dimensions: <b>` + fwidth + ` x ` + fheight"
oThumbnail.EndUpdate()

28
Is there any function to determine whether the file is a picture

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg")
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg.2")
oThumbnail.Caption = "`IsPicture: <b>` + (fpicture ? `Yes` : `No`)"
oThumbnail.EndUpdate()

27
How can I get the type of the file, like JPG File, and so on...

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
oThumbnail.Caption = "`Type: <b>` + ftype"
oThumbnail.EndUpdate()

26
How do I get the file/folder's attributes

local oThumbnail

oThumbnail = form.EXTHUMBNAILACTIVEXCONTROL1.nativeObject
oThumbnail.BeginUpdate()
oThumbnail.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
oThumbnail.Caption = "`Attributes: <b>0x` + hex(fattr)"
oThumbnail.EndUpdate()