|
48
|
Is there a way to change the header names
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.ColumnNames = "Name(Ime),Date modified(Datum),Item type(Tip),Size(Velikost)"
|
|
47
|
Disable or prevent the header's context-menu
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.AllowContextMenu = 1
|
|
46
|
Disable or prevent the list-view's context-menu
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.AllowContextMenu = 2
|
|
45
|
Disable or prevent the control's context-menu
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.AllowContextMenu = 0
|
|
44
|
How can I add my own items, without the default context menu
/*
with (this.EXSHELLVIEWACTIVEXCONTROL1.nativeObject)
InvokeMenuCommand = class::nativeObject_InvokeMenuCommand
endwith
*/
// Fired when the user selects an item context menu that has been added during QueryContextMenu event.
function nativeObject_InvokeMenuCommand(Command)
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
? Str(Command)
return
/*
with (this.EXSHELLVIEWACTIVEXCONTROL1.nativeObject)
QueryContextMenu = class::nativeObject_QueryContextMenu
endwith
*/
// Fired when the context menu is about to be active. You can supply new items to the context menu.
function nativeObject_QueryContextMenu(Items,Separator)
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
Separator = ","
Items = "My First Item,My Second Item"
return
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.DefaultMenuItems = false
oExShellView.BrowseFolder = "c:\Temp"
|
|
43
|
How can I add my own items
/*
with (this.EXSHELLVIEWACTIVEXCONTROL1.nativeObject)
InvokeMenuCommand = class::nativeObject_InvokeMenuCommand
endwith
*/
// Fired when the user selects an item context menu that has been added during QueryContextMenu event.
function nativeObject_InvokeMenuCommand(Command)
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
? Str(Command)
return
/*
with (this.EXSHELLVIEWACTIVEXCONTROL1.nativeObject)
QueryContextMenu = class::nativeObject_QueryContextMenu
endwith
*/
// Fired when the context menu is about to be active. You can supply new items to the context menu.
function nativeObject_QueryContextMenu(Items,Separator)
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
Separator = ","
Items = ",My First Item,My Second Item"
return
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.BrowseFolder = "c:\Temp"
|
|
42
|
The InvokeCommand("open") will not work on a german. What can I do
/*
with (this.EXSHELLVIEWACTIVEXCONTROL1.nativeObject)
DblClick = class::nativeObject_DblClick
endwith
*/
// Occurs when the user dblclk the left mouse button over an object.
function nativeObject_DblClick()
/* Objects(0).InvokeCommand("Open") */
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.Objects.Get(1)
return
/*
with (this.EXSHELLVIEWACTIVEXCONTROL1.nativeObject)
InvokeItemMenu = class::nativeObject_InvokeItemMenu
endwith
*/
// Notifies the application once the user selects a command in the context menu.
function nativeObject_InvokeItemMenu(Command)
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
? Str(Command)
return
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.BrowseFolder = "c:\Temp"
|
|
41
|
How can I open the file's properties when user double clicks it
/*
with (this.EXSHELLVIEWACTIVEXCONTROL1.nativeObject)
DblClick = class::nativeObject_DblClick
endwith
*/
// Occurs when the user dblclk the left mouse button over an object.
function nativeObject_DblClick()
/* Objects(0).InvokeCommand("Properties") */
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.Objects.Get(1)
return
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.BrowseFolder = "c:\Temp"
|
|
40
|
We're looking for a control to show files, just like the eXShellView, but than we would like to specify the files themselves. Is that possible using your control
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.ViewMode = 1
oExShellView.HeaderVisible = false
oExShellView.BrowseFiles = "C:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\devenv.exe|C:\Program Files\Microsoft Visual FoxPro 9\vfp9.exe"
|
|
39
|
How do I prevent pressing the Backspace, or go up to the parent
/*
with (this.EXSHELLVIEWACTIVEXCONTROL1.nativeObject)
KeyDown = class::nativeObject_KeyDown
endwith
*/
// Occurs when the user presses a key while an object has the focus.
function nativeObject_KeyDown(KeyCode,Shift)
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
? "Set the KeyCode = 0, if the KeyCode is 8 "
KeyCode = 0
return
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.ViewMode = 4
oExShellView.BrowseFolder = "c:\Temp"
oExShellView.Refresh()
|
|
38
|
How can I show grid lines around items
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.ViewMode = 4
oExShellView.DrawGridLines = true
oExShellView.Refresh()
|
|
37
|
How can I prevent shwoing the overlay icons (shortcut icons have a small arrow in lower-left corner, shared folders have a hand that shows that folder is shared, etc. )
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.ViewMode = 1
oExShellView.OverlayIcons = false
oExShellView.Refresh()
|
|
36
|
I need to provide my own context menu but I am not able to find RClick event. What can be done
/*
with (this.EXSHELLVIEWACTIVEXCONTROL1.nativeObject)
QueryContextMenu = class::nativeObject_QueryContextMenu
endwith
*/
// Fired when the context menu is about to be active. You can supply new items to the context menu.
function nativeObject_QueryContextMenu(Items,Separator)
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
? "Show here your popup/context menu"
return
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.DefaultMenuItems = false
|
|
35
|
How can I provide my own context menu (RClick event is missing)
/*
with (this.EXSHELLVIEWACTIVEXCONTROL1.nativeObject)
InvokeMenuCommand = class::nativeObject_InvokeMenuCommand
endwith
*/
// Fired when the user selects an item context menu that has been added during QueryContextMenu event.
function nativeObject_InvokeMenuCommand(Command)
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
? Str(Command)
return
/*
with (this.EXSHELLVIEWACTIVEXCONTROL1.nativeObject)
QueryContextMenu = class::nativeObject_QueryContextMenu
endwith
*/
// Fired when the context menu is about to be active. You can supply new items to the context menu.
function nativeObject_QueryContextMenu(Items,Separator)
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
Separator = ","
Items = "First,Second,Third"
return
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.DefaultMenuItems = false
|
|
34
|
Is it possible to specify the "Extra Large Icons" view
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.ViewMode = 13
|
|
33
|
Is it possible to specify the "Large Icons" view
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.ViewMode = 14
|
|
32
|
Is it possible to specify the "Medium Icons" view
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.ViewMode = 15
|
|
31
|
How can I hide the file names
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.HideFileNames = true
oExShellView.ViewMode = 5
|
|
30
|
Is it possible to set the Auto Arrange and Align To Grid flags by code
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.AutoArrange = true
oExShellView.AlignToGrid = true
oExShellView.ViewMode = 5
|
|
29
|
Is it possible to set the Auto Arrange flag by code
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.AutoArrange = true
oExShellView.ViewMode = 5
|
|
28
|
How do I specify the current folder
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.CurrentFolder = "c:\windows"
|
|
27
|
Is it possible to disable showing tooltips for files and folders
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.HideToolTips = true
|
|
26
|
Is it possible to hide the control's header
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.HeaderVisible = false
|
|
25
|
How can I get the name of file being double clicked
/*
with (this.EXSHELLVIEWACTIVEXCONTROL1.nativeObject)
ObjectSelect = class::nativeObject_ObjectSelect
endwith
*/
// Fired when the user selects a new object for browsing.
function nativeObject_ObjectSelect(Object)
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.CancelObjectSelect()
? Str(Object)
return
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
|
|
24
|
How can I prevent opening or selecting a folder or zip files when user double click it
/*
with (this.EXSHELLVIEWACTIVEXCONTROL1.nativeObject)
ObjectSelect = class::nativeObject_ObjectSelect
endwith
*/
// Fired when the user selects a new object for browsing.
function nativeObject_ObjectSelect(Object)
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.CancelObjectSelect()
return
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
|
|
23
|
Is it possible to list only files, no folders
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.ModifyFolderFlags(128,0)
|
|
22
|
How can I enable multiple selection
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.ModifyFolderFlags(0,64)
oExShellView.Refresh()
|
|
21
|
How can I select a file or a folder
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.Objects.Get(2)
oExShellView.Objects.Item(0).SelectItem(1)
|
|
20
|
How can I get all files and folders as they are listed
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.Objects.Get(18 /*AsDisplayed | AllItems*/)
? Str(oExShellView.Objects.Count)
|
|
19
|
How can I get all files and folders being displayed
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.Objects.Get(2)
? Str(oExShellView.Objects.Count)
|
|
18
|
How do I get the selected files or folders as they are displayed
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.Objects.Get(17 /*AsDisplayed | SelectedItems*/)
? Str(oExShellView.Objects.Count)
|
|
17
|
How do I get the selected files or folders
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.Objects.Get(1)
? Str(oExShellView.Objects.Count)
|
|
16
|
How can I disable or enable the control's context menu
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.DefaultMenuItems = false
|
|
15
|
How can I include only files that match a pattern
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.IncludeObjectType = 3
oExShellView.FilePattern = "*.exe *.lnk"
|
|
14
|
How can I include only files that match a pattern
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.IncludeObjectType = 3
oExShellView.FilePattern = "*.bmp"
|
|
13
|
How can I list only folders in the view
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.IncludeObjectType = 2
|
|
12
|
How do I specify what objects files or folders should be included in the list
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.IncludeObjectType = 2
|
|
11
|
How do I browse a special folder
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.BrowseFolder = oExShellView.ShellFolder(oExShellView.SpecialFolder(2))
|
|
10
|
How can I go up to one level, so I can browse the parent folder
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.BrowseFolder = oExShellView.ShellFolder("C:\")
oExShellView.UpOneLevel()
|
|
9
|
How do I browse a specified folder
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.BrowseFolder = oExShellView.ShellFolder("C:\")
|
|
8
|
How can I disable or enable the entire control
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.Enabled = false
|
|
7
|
How do I refresh the control
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.Refresh()
|
|
6
|
How can I change the control's font
local f,oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
f = new OleAutoClient("StdFont")
f.Name = "Verdana"
f.Size = 12
oExShellView.Font = f
|
|
5
|
How can I change the view, so it displays as THUMBNAIL
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.ViewMode = 5
|
|
4
|
How can I change the view, so it displays as a a grid with details
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.ViewMode = 4
|
|
3
|
How can I change the view, so it displays as a list
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.ViewMode = 3
|
|
2
|
How can I change the view, so it displays small icons
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.ViewMode = 2
|
|
1
|
How can I change the view, so it displays large icons
local oExShellView
oExShellView = form.EXSHELLVIEWACTIVEXCONTROL1.nativeObject
oExShellView.ViewMode = 1
|