Skip to content

Commit 07e68a6

Browse files
fafalonefafalone
authored
v2.9.2 **ALPHA**
'v2.9.2 (ALPHA, 29 Jan 2024) '-New FileExtensions property to choose between following Explorer's setting for hiding ' known extensions, over forcing them to always show. ' '-Added property CheckedPathCount. ' '-Added UserOption mNeverExpandZip, to prevent expansion of .zip when ShowFiles = True. ' '-(Bug fix) Border property not restored correctly due to re-reading it with the wrong ' name from the property bag. ' '-(Bug fix) Opening to a custom root would add the root as a child of itself.
1 parent 6586dac commit 07e68a6

File tree

5 files changed

+9460
-0
lines changed

5 files changed

+9460
-0
lines changed

‎ucShellTree2-9-2-a/ShellTreeDemo.tbform‎

Lines changed: 284 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,284 @@
1+
[
2+
{
3+
"AlwaysShowKeyboardCues": false,
4+
"Appearance": "vbAppear3d",
5+
"AutoRedraw": false,
6+
"BackColor": -2147483633,
7+
"BorderStyle": "vbSizable",
8+
"Caption": "ucShellTree Demo",
9+
"ClipControls": true,
10+
"ControlBox": true,
11+
"DrawMode": "vbCopyPen",
12+
"DrawStyle": "vbSolid",
13+
"DrawWidth": 1,
14+
"Enabled": true,
15+
"FillColor": 0,
16+
"FillStyle": "vbFSTransparent",
17+
"FontBold": false,
18+
"FontItalic": false,
19+
"FontName": "Segoe UI",
20+
"FontSize": 8,
21+
"FontStrikethru": false,
22+
"FontTransparent": true,
23+
"FontUnderline": false,
24+
"ForeColor": -2147483630,
25+
"FormDesignerId": "{66B02E82-E553-4CBF-BFBE-BDD5AB49C2E8}",
26+
"HasDC": true,
27+
"Height": 410,
28+
"HelpContextID": 0,
29+
"Icon": "",
30+
"Index": -1,
31+
"KeyPreview": false,
32+
"Left": 0,
33+
"LinkMode": "vbLinkNone",
34+
"LinkTopic": null,
35+
"MDIChild": false,
36+
"MaxButton": true,
37+
"MaxHeight": 0,
38+
"MaxWidth": 0,
39+
"MinButton": true,
40+
"MinHeight": 0,
41+
"MinWidth": 0,
42+
"MouseIcon": "",
43+
"MousePointer": "vbDefault",
44+
"Moveable": true,
45+
"Name": "ShellTreeDemo",
46+
"NegotiateMenus": false,
47+
"OLEDropMode": "vbOLEDropNone",
48+
"Opacity": 100,
49+
"Palette": "",
50+
"PaletteMode": "vbPaletteModeHalftone",
51+
"Picture": "",
52+
"PictureDpiScaling": true,
53+
"RightToLeft": false,
54+
"ScaleHeight": 410,
55+
"ScaleLeft": 0,
56+
"ScaleMode": "vbPixels",
57+
"ScaleTop": 0,
58+
"ScaleWidth": 336,
59+
"ShowInTaskbar": true,
60+
"StartupPosition": "vbStartUpScreen",
61+
"TabFocusAutoSelect": false,
62+
"Tag": null,
63+
"Top": 0,
64+
"TopMost": false,
65+
"TransparencyKey": -1,
66+
"Visible": true,
67+
"WhatsThisButton": false,
68+
"WhatsThisHelp": false,
69+
"Width": 336,
70+
"WindowState": "vbNormal",
71+
"__IDEOptions": {
72+
"alignToGrid": false,
73+
"gridHeight": 10,
74+
"gridWidth": 10,
75+
"lockedControls": [],
76+
"multiColoredGrabbers": false,
77+
"showGrid": true,
78+
"showOutlines": false
79+
},
80+
"__lastUpdateMarker": 3097860488,
81+
"_children": [
82+
{
83+
"ActiveDropHoverTime": 2500,
84+
"Align": false,
85+
"AlwaysShowExtendedVerbs": false,
86+
"Anchors": {
87+
"Bottom": false,
88+
"Left": true,
89+
"Right": false,
90+
"Top": true,
91+
"_className": "Anchors",
92+
"_clsid": "{8524D4B5-72A9-40A9-A189-29E7905C40CA}"
93+
},
94+
"AutoExpandComputer": true,
95+
"AutoExpandLibraries": true,
96+
"AutoHScroll": true,
97+
"Autocheck": false,
98+
"BackColor": -2147483643,
99+
"BorderStyle": "STBS_Standard",
100+
"CausesValidation": false,
101+
"Checkboxes": false,
102+
"ComputerAsRoot": false,
103+
"CustomRoot": "",
104+
"DisableDragDrop": false,
105+
"DisableWow64Redirect": false,
106+
"Dock": "vbDockNone",
107+
"DragIcon": "",
108+
"DragMode": "vbManual",
109+
"EnableShellMenu": true,
110+
"Enabled": true,
111+
"ExclusionChecks": false,
112+
"ExpandZip": false,
113+
"ExplorerStyle": true,
114+
"ExtendedOverlays": false,
115+
"FadingExpandos": true,
116+
"FileExtensions": "STEP_UseExplorer",
117+
"Font": {
118+
"Bold": false,
119+
"Italic": false,
120+
"Name": "MS Sans Serif",
121+
"Size": 8.25,
122+
"Strikethru": false,
123+
"Underline": false
124+
},
125+
"ForeColor": -2147483640,
126+
"FullRowSelect": true,
127+
"HasButtons": true,
128+
"Height": 354,
129+
"HelpContextID": 0,
130+
"HorizontalScroll": true,
131+
"IconSize": 24,
132+
"Index": -1,
133+
"InfoTipOnFiles": true,
134+
"InfoTipOnFolders": false,
135+
"ItemFilter": "*.*",
136+
"ItemFilterFilesOnly": true,
137+
"LabelEditRename": true,
138+
"Left": 7,
139+
"MonitorDirChanges": true,
140+
"MultiSelect": false,
141+
"Name": "ucShellTree1",
142+
"NameColors": true,
143+
"NoIndentState": false,
144+
"PlayNavigationSound": true,
145+
"RootHasCheckbox": false,
146+
"ShowFavorites": false,
147+
"ShowFiles": true,
148+
"ShowHiddenItems": "STHP_UseExplorer",
149+
"ShowLines": false,
150+
"ShowQuickAccessOnWin10": false,
151+
"ShowSelAlways": true,
152+
"ShowSuperHidden": "STSHP_UseExplorer",
153+
"SingleClickExpand": false,
154+
"SingleExpand": false,
155+
"TabIndex": 1,
156+
"TabStop": true,
157+
"Tag": null,
158+
"ToolTipText": null,
159+
"Top": 44,
160+
"TrackSelect": true,
161+
"Visible": true,
162+
"WhatsThisHelpID": 0,
163+
"Width": 322,
164+
"_IPersistStreamData": "6urq6pOyAADsAAAACwAJAB8nd/YgAAAAcwBoAG8AdwBmAGkAbABlAHMA//8LAA0AlHPl4SgAAABzAGgAbwB3AGYAYQB2AG8AcgBpAHQAZQBzAAAACwAJALc1ITogAAAAYQB1AHQAbwBjAGgAZQBjAGsAAAALABYAIikuNDwAAABzAGgAbwB3AHEAdQBpAGMAawBhAGMAYwBlAHMAcwBvAG4AdwBpAG4AMQAwAAAAAAADAAgAC/JXRyAAAABfAGUAeAB0AGUAbgB0AHgASCEAAAMACAAK8ldHPP///18AZQB4AHQAZQBuAHQAeQCWJAAA",
165+
"_className": "tbShellTree.ucShellTree",
166+
"_clsid": "{43C02F35-3CE8-4D19-A139-028E05C7EBE5}"
167+
},
168+
{
169+
"Alignment": "vbLeftJustify",
170+
"Anchors": {
171+
"Bottom": false,
172+
"Left": true,
173+
"Right": false,
174+
"Top": true,
175+
"_className": "Anchors",
176+
"_clsid": "{8524D4B5-72A9-40A9-A189-29E7905C40CA}"
177+
},
178+
"Appearance": "vbAppear3d",
179+
"AutoSize": true,
180+
"BackColor": -2147483633,
181+
"BackStyle": "vbBFOpaque",
182+
"BorderStyle": "vbNoBorder",
183+
"Caption": "",
184+
"DataField": null,
185+
"DataFormat": null,
186+
"DataMember": null,
187+
"DataSource": null,
188+
"Dock": "vbDockNone",
189+
"DragIcon": "",
190+
"DragMode": "vbManual",
191+
"Enabled": true,
192+
"FontBold": false,
193+
"FontItalic": false,
194+
"FontName": "Segoe UI",
195+
"FontSize": 8.25,
196+
"FontStrikethru": false,
197+
"FontUnderline": false,
198+
"ForeColor": -2147483630,
199+
"Height": 18,
200+
"Index": -1,
201+
"Left": 3,
202+
"LinkItem": null,
203+
"LinkMode": "vbLinkNone",
204+
"LinkTimeout": 50,
205+
"LinkTopic": null,
206+
"MouseIcon": "",
207+
"MousePointer": "vbDefault",
208+
"Name": "Label1",
209+
"OLEDropMode": "vbOLEDropNone",
210+
"RightToLeft": false,
211+
"TabIndex": 2,
212+
"Tag": null,
213+
"ToolTipText": null,
214+
"Top": 25,
215+
"UseMnemonic": true,
216+
"Visible": true,
217+
"WhatsThisHelpID": 0,
218+
"Width": 272,
219+
"WordWrap": false,
220+
"_className": "Label",
221+
"_clsid": "{33AD4ED8-6699-11CF-B70C-00AA0060D393}",
222+
"_paintedByParent": true
223+
},
224+
{
225+
"Anchors": {
226+
"Bottom": false,
227+
"Left": true,
228+
"Right": false,
229+
"Top": true,
230+
"_className": "Anchors",
231+
"_clsid": "{8524D4B5-72A9-40A9-A189-29E7905C40CA}"
232+
},
233+
"Appearance": "vbAppear3d",
234+
"BackColor": -2147483633,
235+
"Cancel": false,
236+
"Caption": "Open to Windows",
237+
"CausesValidation": true,
238+
"Default": false,
239+
"DisabledPicture": "",
240+
"Dock": "vbDockNone",
241+
"DownPicture": "",
242+
"DragIcon": "",
243+
"DragMode": "vbManual",
244+
"Enabled": true,
245+
"FontBold": false,
246+
"FontItalic": false,
247+
"FontName": "Segoe UI",
248+
"FontSize": 8,
249+
"FontStrikethru": false,
250+
"FontUnderline": false,
251+
"ForeColor": -2147483630,
252+
"Height": 26,
253+
"HelpContextID": 0,
254+
"Index": -1,
255+
"Left": 7,
256+
"MaskColor": 12632256,
257+
"MouseIcon": "",
258+
"MousePointer": "vbDefault",
259+
"Name": "Command1",
260+
"OLEDropMode": "vbOLEDropNone",
261+
"Padding": 2,
262+
"Picture": "",
263+
"PictureAlignment": "vbAlignTop",
264+
"PictureDpiScaling": false,
265+
"RightToLeft": false,
266+
"Style": "vbButtonStandard",
267+
"TabIndex": 3,
268+
"TabStop": true,
269+
"Tag": null,
270+
"ToolTipText": null,
271+
"Top": 1,
272+
"UseMaskColor": false,
273+
"Visible": true,
274+
"VisualStyles": true,
275+
"WhatsThisHelpID": 0,
276+
"Width": 110,
277+
"_className": "CommandButton",
278+
"_clsid": "{33AD4EF0-6699-11CF-B70C-00AA0060D393}"
279+
}
280+
],
281+
"_className": "Form",
282+
"_clsid": "{33AD4F38-6699-11CF-B70C-00AA0060D393}"
283+
}
284+
]

‎ucShellTree2-9-2-a/ShellTreeDemo.twin‎

Lines changed: 25 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,25 @@
1+
[ Description ("") ]
2+
[ FormDesignerId ("66B02E82-E553-4CBF-BFBE-BDD5AB49C2E8") ]
3+
[ PredeclaredId ]
4+
Class ShellTreeDemo
5+
6+
Private Sub Form_Resize() Handles Form.Resize
7+
ucShellTree1.Width = Me.ScaleWidth - 10
8+
ucShellTree1.Height = Me.ScaleHeight - 68
9+
End Sub
10+
11+
12+
Private Sub ucShellTree1_ItemSelect(sName As String, sFullPath As String, bFolder As Boolean, hItem As LongPtr) Handles ucShellTree1.ItemSelect
13+
Label1.Caption = "Selected: " & sName & " (" & sFullPath & ")"
14+
End Sub
15+
16+
Private Sub Command1_Click() Handles Command1.Click
17+
ucShellTree1.OpenToPath "C:\Windows", False
18+
End Sub
19+
20+
Private Sub Form_Load() Handles Form.Load
21+
'ucShellTree1.Checkboxes = True
22+
End Sub
23+
24+
25+
End Class

‎ucShellTree2-9-2-a/tbShellTree.twinproj‎

9.42 MB
Binary file not shown.

0 commit comments

Comments
 (0)