How-To XBasic (Alpha Five) (exfolderview)

48	Small icons Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.SmallIcons = .t.
49	Large icons Dim f as P Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.SmallIcons = .f. f = OLE.Create("StdFont") f.Size = 16 oExFolderView.Font = f oExFolderView.ItemHeight = 32
21	Is there any function or property to get the first visible folder Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.HasCheckBoxes = .t. oExFolderView.FirstVisibleFolder.Check = .t.
46	Is it possible to re-call the ExploreFromHere without re-selecting/expanding any previously item ' Occurs when the user presses and then releases the left mouse button over the control. function Click as v () oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.ExploreFromHere = "\|reset" end function Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.ExploreFromHere = "c:\"
50	Is it possible to display information about the firing events ' Notifies the application once the control fires an event. function Event as v (EventID as N) oExFolderView = topparent:CONTROL_ACTIVEX1.activex ? oExFolderView.EventParam(-2) end function Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex
18	How do I select and expand a folder Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.SelectedFolder = oExFolderView.SpecialFolderPath(2)
17	How do I select and expand a folder Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.SelectedFolder = "c:\"
16	How do I select a folder Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.SelectedFolder = "c:\"
6	How do I remove the lines that link the root items Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.HasLinesAtRoot = .f.
4	How do I remove the lines between items Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.HasLines = .f.
3	How do I remove the control's border Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.Appearance = 0
5	How do I remove the buttons to expand or collapse the folders Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.HasButtons = .f.
22	How do I refresh the control Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.Refresh()
10	How do I hide the overlay icons Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.OverlayIcons = .f.
44	How do I get the subfolders of specified folder Dim oExFolderView as P Dim var_ShellFolders as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex var_ShellFolders = oExFolderView.ShellFolder("C:\").Folders
42	How do I get the name of folder, as it is displayed in the control Dim oExFolderView as P Dim var_DisplayName as oExFolderView = topparent:CONTROL_ACTIVEX1.activex var_DisplayName = oExFolderView.FirstVisibleFolder.DisplayName
15	How do I get the checked folders or files Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.HasCheckBoxes = .t. oExFolderView.FirstVisibleFolder.Check = .t. ? oExFolderView.FoldersCheck.Count
19	How do I find a special folder, like My Computer Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.SelectedFolder = oExFolderView.SpecialFolderPath(17)
20	How do I find a special folder, like My Computer Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.SelectedFolder = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
11	How do I enable or disable the control's context menu Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.EnableShellMenu = .f.
8	How do I display the share name for folders and files Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.DisplayShareName = .t.
9	How do I display the overlay icons Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.OverlayIcons = .t.
43	How do I check a folder Dim oExFolderView as P Dim var_ExShellFolder as local oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.HasCheckBoxes = .t. ' oExFolderView.ShellFolder("C:\").Check = .t. var_ExShellFolder = oExFolderView.ShellFolder("C:\") oExFolderView.TemplateDef = "dim var_ExShellFolder" oExFolderView.TemplateDef = var_ExShellFolder oExFolderView.Template = "var_ExShellFolder.Check = True"
2	How do I change the control's foreground color Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.ForeColor = 255
1	How do I change the control's background color Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.BackColor = 255
7	How do I assign a checkbox for each folder/file in the control Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.HasCheckBoxes = .t.
41	How can I specify the folders being displayed in the control ' Occurs when the user includes folders to the control. function IncludeFolder as v (Folder as OLE::Exontrol.FolderView.1::IExShellFolder, Include as L) oExFolderView = topparent:CONTROL_ACTIVEX1.activex Include = .f. end function Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.IncludeFolder = .t.
34	How can I remove the control's scroll bars Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex ? oExFolderView.Scrollbars
12	How can I refresh the control as soon as the user renames a folder in Windows Explorer Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.AutoUpdate = .t.
40	How can I include the files and folders in the control Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.IncludeAttributeMask = 2147483703
26	How can I hide the icons Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.IconsVisible = .f.
35	How can I get width of the vertical scroll bar Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex ? oExFolderView.VerticalWidth
31	How can I get the vertical scroll range Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex ? oExFolderView.VerticalOversize
30	How can I get the vertical scroll position Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex ? oExFolderView.VerticalOffset
33	How can I get the horizontal scroll range Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex ? oExFolderView.HorizontalOversize
32	How can I get the horizontal scroll position Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex ? oExFolderView.HorizontalOffset
13	How can I get the folder or the file from the point ' Fired when the user move the mouse over the ExFolderView control. function MouseMove as v (Button as N, Shift as N, X as OLE::Exontrol.FolderView.1::OLE_XPOS_PIXELS, Y as OLE::Exontrol.FolderView.1::OLE_YPOS_PIXELS) oExFolderView = topparent:CONTROL_ACTIVEX1.activex ? oExFolderView.FolderFromPoint(-1,-1) end function Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex
36	How can I get height of the horizontal scroll bar Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex ? oExFolderView.HorizontalHeight
45	How can I expand a folder Dim oExFolderView as P Dim var_ExShellFolder as local oExFolderView = topparent:CONTROL_ACTIVEX1.activex ' oExFolderView.ShellFolder("C:\").Expanded = .t. var_ExShellFolder = oExFolderView.ShellFolder("C:\") oExFolderView.TemplateDef = "dim var_ExShellFolder" oExFolderView.TemplateDef = var_ExShellFolder oExFolderView.Template = "var_ExShellFolder.Expanded = True"
24	How can I expand a folder Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.EnsureVisible(oExFolderView.SpecialFolderPath(11))
23	How can I ensure that a specified folder fits the contrl's client area Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.EnsureVisible(oExFolderView.SpecialFolderPath(11))
28	How can I drop files to control Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.AllowDropFiles = .t.
14	How can I display the hidden folders Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.HiddenFolders = .t.
25	How can I disable or enable the entire control Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.Enabled = .f.
37	How can I change the shape of the cursor Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.MousePointer = 2
39	How can I change the control's font Dim f as P Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex f = OLE.Create("StdFont") f.Name = "Verdana" f.Size = 12 oExFolderView.Font = f
47	Folder icons are very close together vertically. Can you change the icon or increase the separation Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.ItemHeight = 24
27	Can I explore only a folder, so the user can't see the parent folder Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.ExploreFromHere = "c:\"
29	Can I assign partial check boxes to folders, so the sub folders get checked when the user checks the parent folder Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.HasCheckBoxes = .t. oExFolderView.PartialCheck = .t. oExFolderView.FirstVisibleFolder.Check = .t.
38	Can I add a rename to the control's context menu Dim oExFolderView as P oExFolderView = topparent:CONTROL_ACTIVEX1.activex oExFolderView.CanRename = .t.