├── .gitattributes
├── .gitignore
├── CBuilder
├── 11AndAbove
│ ├── CBuilder.groupproj
│ ├── VirtualShellToolsC.cbproj
│ ├── VirtualShellToolsC.cpp
│ ├── VirtualShellToolsC.ico
│ ├── VirtualShellToolsCD.cbproj
│ ├── VirtualShellToolsCD.cpp
│ └── VirtualShellToolsCD.ico
├── Berlin
│ ├── CBuilder.groupproj
│ ├── VirtualShellToolsC.cbproj
│ ├── VirtualShellToolsC.cpp
│ ├── VirtualShellToolsC.ico
│ ├── VirtualShellToolsC.res
│ ├── VirtualShellToolsCD.cbproj
│ ├── VirtualShellToolsCD.cpp
│ ├── VirtualShellToolsCD.ico
│ └── VirtualShellToolsCD.res
├── Rio
│ ├── CBuilder.groupproj
│ ├── VirtualShellToolsC.cbproj
│ ├── VirtualShellToolsC.cpp
│ ├── VirtualShellToolsC.ico
│ ├── VirtualShellToolsC.res
│ ├── VirtualShellToolsCD.cbproj
│ ├── VirtualShellToolsCD.cpp
│ ├── VirtualShellToolsCD.ico
│ └── VirtualShellToolsCD.res
├── Sydney
│ ├── CBuilder.groupproj
│ ├── VirtualShellToolsC.cbproj
│ ├── VirtualShellToolsC.cpp
│ ├── VirtualShellToolsC.ico
│ ├── VirtualShellToolsC.res
│ ├── VirtualShellToolsCD.cbproj
│ ├── VirtualShellToolsCD.cpp
│ ├── VirtualShellToolsCD.ico
│ └── VirtualShellToolsCD.res
└── Tokyo
│ ├── CBuilder.groupproj
│ ├── VirtualShellToolsC.cbproj
│ ├── VirtualShellToolsC.cpp
│ ├── VirtualShellToolsC.ico
│ ├── VirtualShellToolsC.res
│ ├── VirtualShellToolsCD.cbproj
│ ├── VirtualShellToolsCD.cpp
│ ├── VirtualShellToolsCD.ico
│ └── VirtualShellToolsCD.res
├── Delphi
├── 11AndAbove
│ ├── Delphi.groupproj
│ ├── VirtualShellToolsD.dpk
│ ├── VirtualShellToolsD.dproj
│ ├── VirtualShellToolsDD.dpk
│ └── VirtualShellToolsDD.dproj
├── Berlin
│ ├── Delphi.groupproj
│ ├── VirtualShellToolsD.dpk
│ ├── VirtualShellToolsD.dproj
│ ├── VirtualShellToolsD.res
│ ├── VirtualShellToolsDD.dpk
│ ├── VirtualShellToolsDD.dproj
│ └── VirtualShellToolsDD.res
├── Jam-VT
│ ├── Delphi.groupproj
│ ├── VirtualShellToolsD.dpk
│ ├── VirtualShellToolsD.dproj
│ ├── VirtualShellToolsD.res
│ ├── VirtualShellToolsDD.dpk
│ ├── VirtualShellToolsDD.dproj
│ ├── VirtualShellToolsDD.res
│ └── readme.md
├── Rio
│ ├── Delphi.groupproj
│ ├── VirtualShellToolsD.dpk
│ ├── VirtualShellToolsD.dproj
│ ├── VirtualShellToolsD.res
│ ├── VirtualShellToolsDD.dpk
│ ├── VirtualShellToolsDD.dproj
│ └── VirtualShellToolsDD.res
├── Sydney
│ ├── Delphi.groupproj
│ ├── VirtualShellToolsD.dpk
│ ├── VirtualShellToolsD.dproj
│ ├── VirtualShellToolsD.res
│ ├── VirtualShellToolsDD.dpk
│ ├── VirtualShellToolsDD.dproj
│ └── VirtualShellToolsDD.res
└── Tokyo
│ ├── Delphi.groupproj
│ ├── VirtualShellToolsD.dpk
│ ├── VirtualShellToolsD.dproj
│ ├── VirtualShellToolsD.res
│ ├── VirtualShellToolsDD.dpk
│ ├── VirtualShellToolsDD.dproj
│ └── VirtualShellToolsDD.res
├── Demos
├── Adding Custom Columns Using ShellDetails
│ ├── ShellDetailsCustomColumns.dpr
│ ├── ShellDetailsCustomColumns.res
│ ├── Unit1.dfm
│ └── Unit1.pas
├── Applet and Wizard Launcher
│ ├── AppletWizardLauncher.dpr
│ ├── AppletWizardLauncher.res
│ ├── Unit1.dfm
│ └── Unit1.pas
├── AutoComplete Component
│ ├── AutoCompleteComponentProject.dpr
│ ├── AutoCompleteComponentProject.res
│ ├── Unit1.dfm
│ └── Unit1.pas
├── AutoCompleteObject
│ ├── AutoCompleteObject.dpr
│ ├── AutoCompleteObject.res
│ ├── Unit1.dfm
│ └── Unit1.pas
├── Backgnd Menu
│ ├── BkGndMenuProject.dpr
│ ├── Unit1.dfm
│ └── Unit1.pas
├── CheckBoxes
│ ├── CheckBoxes.dpr
│ ├── CheckBoxes.res
│ ├── TEST.TXT
│ ├── Unit1.dfm
│ └── Unit1.pas
├── Custom Columns
│ ├── CustomColumnProject.dpr
│ ├── CustomColumnProject.res
│ ├── Unit1.dfm
│ └── Unit1.pas
├── Custom Sorting
│ ├── CustomSortProject.dpr
│ ├── Unit1.dfm
│ └── Unit1.pas
├── DOS Shell CommandLine
│ ├── DOSCommandLineProject.dpr
│ ├── DOSCommandLineProject.res
│ ├── Unit1.dfm
│ └── Unit1.pas
├── Explorer CheckBoxes
│ ├── ExplorerCheckboxes.dpr
│ ├── ExplorerCheckboxes.res
│ ├── InfoForm.dfm
│ ├── InfoForm.pas
│ ├── Tree.dat
│ ├── Unit1.dfm
│ ├── Unit1.pas
│ └── VirtualCheckboxesSynchronizer.pas
├── File Search
│ ├── FileSearch.dpr
│ ├── FindFile.pas
│ ├── ReadMe.txt
│ ├── uWndSearchFiles.dfm
│ └── uWndSearchFiles.pas
├── FileSearch
│ ├── FileSearchProject.cfg
│ ├── FileSearchProject.dof
│ ├── FileSearchProject.dpr
│ ├── Unit1.dfm
│ └── Unit1.pas
├── FolderSize
│ ├── FolderSizeDemo.dpr
│ ├── FolderSizeDemo.res
│ ├── Unit1.dfm
│ └── Unit1.pas
├── KnownFolders
│ ├── KnwonwFoldersProject.dpr
│ ├── Unit1.dfm
│ └── Unit1.pas
├── Namespace Browser
│ ├── NamespaceBrowserProject.dpr
│ ├── NamespaceBrowserProject.res
│ ├── Unit1.dfm
│ └── Unit1.pas
├── Overview
│ ├── InfoForm.dfm
│ ├── InfoForm.pas
│ ├── Unit1.dfm
│ ├── Unit1.pas
│ ├── VET.dpr
│ ├── VET.dproj
│ ├── VET.res
│ └── VETBkgnd.bmp
├── PrevDirNode EasyListview
│ ├── EasyListviewPrevFolderProject.dpr
│ ├── Unit1.dfm
│ └── Unit1.pas
├── PrevDirNode
│ ├── Project1.dpr
│ ├── Project1.res
│ ├── Unit1.dfm
│ └── Unit1.pas
├── Readme.txt
├── SendTo Menu
│ ├── Back.bmp
│ ├── Fwd.bmp
│ ├── SendTo Menu TBX
│ │ ├── Back.bmp
│ │ ├── Fwd.bmp
│ │ ├── SendToMenuProject.dpr
│ │ ├── SendToMenuProject.res
│ │ ├── Unit1.dfm
│ │ ├── Unit1.pas
│ │ └── folder.bmp
│ ├── SendToMenuProject.dpr
│ ├── SendToMenuProject.res
│ ├── Unit1.dfm
│ ├── Unit1.pas
│ └── folder.bmp
├── Shell History
│ ├── ShellHistory.dpr
│ ├── ShellHistory.res
│ ├── TBX Enabled Demo
│ │ ├── ShellHistoryTBX.dpr
│ │ ├── ShellHistoryTBX.res
│ │ ├── Unit1.dfm
│ │ └── Unit1.pas
│ ├── Unit1.dfm
│ └── Unit1.pas
├── Shell Link Shortcuts
│ ├── ShellLinkShortcuts.dpr
│ ├── ShellLinkShortcuts.res
│ ├── Unit1.dfm
│ └── Unit1.pas
├── Shell Notify
│ ├── ShellNotify.dpr
│ ├── ShellNotify.res
│ ├── Unit1.dfm
│ ├── Unit1.pas
│ ├── Unit2.dfm
│ └── Unit2.pas
├── ShellColumn State Storing
│ ├── ShellColumnStateStoring.dpr
│ ├── ShellColumnStateStoring.res
│ ├── Unit1.dfm
│ └── Unit1.pas
├── ShellNew (New File) Menu
│ ├── ShellNew_NewFileMenu.dpr
│ ├── ShellNew_NewFileMenu.res
│ ├── TBX Enabled Demo
│ │ ├── ShellNew_NewFileMenuTBX.dpr
│ │ ├── ShellNew_NewFileMenuTBX.res
│ │ ├── Unit1.dfm
│ │ └── Unit1.pas
│ ├── Unit1.dfm
│ └── Unit1.pas
├── ShellToolbars
│ ├── ShellToolbars.dpr
│ ├── ShellToolbars.res
│ ├── Unit1.dfm
│ └── Unit1.pas
├── User Data
│ ├── Unit1.dfm
│ ├── Unit1.pas
│ ├── UserDataProject.dpr
│ └── UserDataProject.res
├── Vertical Icons Custom Draw
│ ├── ProjectVerticalIcons.cfg
│ ├── ProjectVerticalIcons.dof
│ ├── ProjectVerticalIcons.dpr
│ ├── ProjectVerticalIcons.res
│ ├── Unit1.dfm
│ └── Unit1.pas
├── Virtual Explorer
│ ├── About.dfm
│ ├── About.pas
│ ├── Event.log
│ ├── Unit1.dfm
│ ├── Unit1.pas
│ ├── VST Logo 1.bmp
│ ├── VirtualExplorer.cfg
│ ├── VirtualExplorer.dof
│ ├── VirtualExplorer.dpr
│ ├── VirtualExplorer.res
│ └── bugreport.txt
├── VirtualDropStack
│ ├── DropStackProject.cfg
│ ├── DropStackProject.dof
│ ├── DropStackProject.dpr
│ ├── DropStackProject.res
│ ├── Unit1.dfm
│ └── Unit1.pas
├── VirtualEasyListModeView
│ ├── EasyListModeViewProjectGroup.bpg
│ ├── Unit1.dfm
│ ├── Unit1.pas
│ ├── VirtualExplorerListModeViewProject.dpr
│ └── VirtualExplorerListModeViewProject.res
├── VirtualEasyListviewCustomContextMenu
│ ├── Unit1.dfm
│ ├── Unit1.pas
│ └── VirtaulExplorerEasyListviewMEnuProject.dpr
├── VirtualExplorerEasyListview
│ ├── Unit1.dfm
│ ├── Unit1.pas
│ ├── VEasyListviewProject.cfg
│ ├── VEasyListviewProject.dof
│ ├── VEasyListviewProject.dpr
│ └── VEasyListviewProject.res
├── VirtualShellToolsDemos.bpg
└── Wow64 File Redirection
│ ├── Unit1.dfm
│ ├── Unit1.pas
│ ├── Wow64FileRedirection.dpr
│ ├── Wow64FileRedirection.dproj
│ └── Wow64FileRedirection.res
├── Design
├── VirtualExplorerListviewExReg.dcr
├── VirtualExplorerListviewExReg.pas
├── VirtualShellToolsReg.dcr
└── VirtualShellToolsReg.pas
├── Docs
├── CBuilder 6 Issues.txt
├── Unicode Compatibilty.txt
├── VirtualShellTools History.txt
└── Whats New.txt
├── Include
├── Addins.inc
└── uxtheme.h
├── LICENCE
├── Resources
└── Images
│ ├── Bkgnd.bmp
│ ├── Folder Funnel 24x24.bmp
│ ├── Setup Gear 24x24.bmp
│ ├── Setup Gear 32x32.bmp
│ ├── VET_Logo.png
│ ├── ViewButton.bmp
│ ├── XDisk.bmp
│ ├── XPBackArrow 24x24.bmp
│ ├── XPBackArrow.bmp
│ ├── XPFolders 16x16.bmp
│ ├── XPFolders 24x24.bmp
│ ├── XPFolders.bmp
│ ├── XPHistory 16x16.bmp
│ ├── XPHistory 24x24.bmp
│ ├── XPListviewStyle.bmp
│ ├── XPNextArrow 24x24.bmp
│ ├── XPNextArrow.bmp
│ ├── XPSearch 24x24.bmp
│ ├── XPSearch.bmp
│ ├── XPSearch2.bmp
│ ├── XPSearch2Small.bmp
│ └── XPUpFolder.bmp
├── Source
├── AppletsAndWizards.pas
├── ColumnForm.dfm
├── ColumnForm.pas
├── ColumnFormSpTBX.pas
├── ColumnFormTBX.dfm
├── VirtualBreadCrumbBar.pas
├── VirtualCommandLine.pas
├── VirtualExplorerEasyListModeview.pas
├── VirtualExplorerEasyListview.pas
├── VirtualExplorerTree.pas
├── VirtualExplorerTreeExt.res
├── VirtualFileSearch.pas
├── VirtualRedirector.pas
├── VirtualResources.pas
├── VirtualScrollbars.pas
├── VirtualSendToMenu.pas
├── VirtualShellAutoComplete.pas
├── VirtualShellHistory.pas
├── VirtualShellNewMenu.pas
├── VirtualShellNotifier.pas
├── VirtualShellToolBar.pas
└── VirtualThumbnails.pas
└── readme.md
/.gitattributes:
--------------------------------------------------------------------------------
1 | # Set the default behavior, in case people don't have core.autocrlf set.
2 | * text=auto
3 |
4 | # Explicitly declare text files you want to always be normalized and converted
5 | # to native line endings on checkout.
6 | *.pas text
7 | *.dfm text
8 | *.md text
9 | *.txt text
10 | *.java text
11 | *.cs text
12 | *.dpk -text
13 | *.dproj -text
14 | *.groupproj -text
15 |
16 | # Declare files that will always have CRLF line endings on checkout.
17 |
18 | # Denote all files that are truly binary and should not be modified.
19 | *.exe binary
20 | *.res binary
21 |
--------------------------------------------------------------------------------
/.gitignore:
--------------------------------------------------------------------------------
1 | # Compiled source #
2 | ###################
3 | *.dcu
4 | *.obj
5 | *.exe
6 | *.bpl
7 | *.bpi
8 | *.dcp
9 | *.rsm
10 | *.stat
11 | *.map
12 | *.lib
13 |
14 | # Generated source #
15 | ###################
16 | *.hpp
17 |
18 | # Backup files #
19 | ###################
20 | *.~*
21 | *.bak
22 | *.#00
23 | *.pch
24 | *.Patch
25 | /__history
26 |
27 | # IDE Files #
28 | ###################
29 | *.dproj.local
30 | *.groupproj.local
31 | *.identcache
32 | *.dsk
33 | *.tvsconfig
34 | *.otares
35 | *.drc
36 | *.rc
37 | *.res
38 | *.local
39 |
40 | # Output Folders #
41 | ###################
42 | /Win32
43 | /Win64
44 | /OSX32
45 |
46 | # C++ Files #
47 | ###################
48 | *.prjmgc
49 |
50 |
--------------------------------------------------------------------------------
/CBuilder/11AndAbove/CBuilder.groupproj:
--------------------------------------------------------------------------------
1 |
2 |
3 | {08E512AA-B6C7-4392-B232-FE72BB50BC69}
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 | Default.Personality.12
15 |
16 |
17 |
18 |
19 |
20 |
21 |
22 |
23 |
24 |
25 |
26 |
27 |
28 |
29 |
30 |
31 |
32 |
33 |
34 |
35 |
36 |
37 |
38 |
39 |
40 |
41 |
42 |
43 |
44 |
45 |
46 |
47 |
48 |
49 |
--------------------------------------------------------------------------------
/CBuilder/11AndAbove/VirtualShellToolsC.cpp:
--------------------------------------------------------------------------------
1 | //---------------------------------------------------------------------------
2 |
3 | #include
4 | #pragma hdrstop
5 | USEFORMNS("..\..\Source\ColumnForm.pas", Columnform, FormColumnSettings);
6 | //---------------------------------------------------------------------------
7 | #pragma package(smart_init)
8 | //---------------------------------------------------------------------------
9 |
10 | // Package source.
11 | //---------------------------------------------------------------------------
12 |
13 | #pragma argsused
14 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
15 | {
16 | return 1;
17 | }
18 | //---------------------------------------------------------------------------
19 |
--------------------------------------------------------------------------------
/CBuilder/11AndAbove/VirtualShellToolsC.ico:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/11AndAbove/VirtualShellToolsC.ico
--------------------------------------------------------------------------------
/CBuilder/11AndAbove/VirtualShellToolsCD.cpp:
--------------------------------------------------------------------------------
1 | //---------------------------------------------------------------------------
2 |
3 | #include
4 | #pragma hdrstop
5 | #pragma package(smart_init)
6 | //---------------------------------------------------------------------------
7 |
8 | // Package source.
9 | //---------------------------------------------------------------------------
10 |
11 | #pragma argsused
12 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
13 | {
14 | return 1;
15 | }
16 | //---------------------------------------------------------------------------
17 |
--------------------------------------------------------------------------------
/CBuilder/11AndAbove/VirtualShellToolsCD.ico:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/11AndAbove/VirtualShellToolsCD.ico
--------------------------------------------------------------------------------
/CBuilder/Berlin/CBuilder.groupproj:
--------------------------------------------------------------------------------
1 |
2 |
3 | {08E512AA-B6C7-4392-B232-FE72BB50BC69}
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 | Default.Personality.12
15 |
16 |
17 |
18 |
19 |
20 |
21 |
22 |
23 |
24 |
25 |
26 |
27 |
28 |
29 |
30 |
31 |
32 |
33 |
34 |
35 |
36 |
37 |
38 |
39 |
40 |
41 |
42 |
43 |
44 |
45 |
46 |
47 |
48 |
49 |
--------------------------------------------------------------------------------
/CBuilder/Berlin/VirtualShellToolsC.cpp:
--------------------------------------------------------------------------------
1 | //---------------------------------------------------------------------------
2 |
3 | #include
4 | #pragma hdrstop
5 | USEFORMNS("..\..\Source\ColumnForm.pas", Columnform, FormColumnSettings);
6 | //---------------------------------------------------------------------------
7 | #pragma package(smart_init)
8 | //---------------------------------------------------------------------------
9 |
10 | // Package source.
11 | //---------------------------------------------------------------------------
12 |
13 | #pragma argsused
14 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
15 | {
16 | return 1;
17 | }
18 | //---------------------------------------------------------------------------
19 |
--------------------------------------------------------------------------------
/CBuilder/Berlin/VirtualShellToolsC.ico:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Berlin/VirtualShellToolsC.ico
--------------------------------------------------------------------------------
/CBuilder/Berlin/VirtualShellToolsC.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Berlin/VirtualShellToolsC.res
--------------------------------------------------------------------------------
/CBuilder/Berlin/VirtualShellToolsCD.cpp:
--------------------------------------------------------------------------------
1 | //---------------------------------------------------------------------------
2 |
3 | #include
4 | #pragma hdrstop
5 | #pragma package(smart_init)
6 | //---------------------------------------------------------------------------
7 |
8 | // Package source.
9 | //---------------------------------------------------------------------------
10 |
11 | #pragma argsused
12 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
13 | {
14 | return 1;
15 | }
16 | //---------------------------------------------------------------------------
17 |
--------------------------------------------------------------------------------
/CBuilder/Berlin/VirtualShellToolsCD.ico:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Berlin/VirtualShellToolsCD.ico
--------------------------------------------------------------------------------
/CBuilder/Berlin/VirtualShellToolsCD.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Berlin/VirtualShellToolsCD.res
--------------------------------------------------------------------------------
/CBuilder/Rio/CBuilder.groupproj:
--------------------------------------------------------------------------------
1 |
2 |
3 | {08E512AA-B6C7-4392-B232-FE72BB50BC69}
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 | Default.Personality.12
15 |
16 |
17 |
18 |
19 |
20 |
21 |
22 |
23 |
24 |
25 |
26 |
27 |
28 |
29 |
30 |
31 |
32 |
33 |
34 |
35 |
36 |
37 |
38 |
39 |
40 |
41 |
42 |
43 |
44 |
45 |
46 |
47 |
48 |
49 |
--------------------------------------------------------------------------------
/CBuilder/Rio/VirtualShellToolsC.cpp:
--------------------------------------------------------------------------------
1 | //---------------------------------------------------------------------------
2 |
3 | #include
4 | #pragma hdrstop
5 | USEFORMNS("..\..\Source\ColumnForm.pas", Columnform, FormColumnSettings);
6 | //---------------------------------------------------------------------------
7 | #pragma package(smart_init)
8 | //---------------------------------------------------------------------------
9 |
10 | // Package source.
11 | //---------------------------------------------------------------------------
12 |
13 | #pragma argsused
14 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
15 | {
16 | return 1;
17 | }
18 | //---------------------------------------------------------------------------
19 |
--------------------------------------------------------------------------------
/CBuilder/Rio/VirtualShellToolsC.ico:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Rio/VirtualShellToolsC.ico
--------------------------------------------------------------------------------
/CBuilder/Rio/VirtualShellToolsC.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Rio/VirtualShellToolsC.res
--------------------------------------------------------------------------------
/CBuilder/Rio/VirtualShellToolsCD.cpp:
--------------------------------------------------------------------------------
1 | //---------------------------------------------------------------------------
2 |
3 | #include
4 | #pragma hdrstop
5 | #pragma package(smart_init)
6 | //---------------------------------------------------------------------------
7 |
8 | // Package source.
9 | //---------------------------------------------------------------------------
10 |
11 | #pragma argsused
12 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
13 | {
14 | return 1;
15 | }
16 | //---------------------------------------------------------------------------
17 |
--------------------------------------------------------------------------------
/CBuilder/Rio/VirtualShellToolsCD.ico:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Rio/VirtualShellToolsCD.ico
--------------------------------------------------------------------------------
/CBuilder/Rio/VirtualShellToolsCD.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Rio/VirtualShellToolsCD.res
--------------------------------------------------------------------------------
/CBuilder/Sydney/CBuilder.groupproj:
--------------------------------------------------------------------------------
1 |
2 |
3 | {08E512AA-B6C7-4392-B232-FE72BB50BC69}
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 | Default.Personality.12
15 |
16 |
17 |
18 |
19 |
20 |
21 |
22 |
23 |
24 |
25 |
26 |
27 |
28 |
29 |
30 |
31 |
32 |
33 |
34 |
35 |
36 |
37 |
38 |
39 |
40 |
41 |
42 |
43 |
44 |
45 |
46 |
47 |
48 |
49 |
--------------------------------------------------------------------------------
/CBuilder/Sydney/VirtualShellToolsC.cpp:
--------------------------------------------------------------------------------
1 | //---------------------------------------------------------------------------
2 |
3 | #include
4 | #pragma hdrstop
5 | USEFORMNS("..\..\Source\ColumnForm.pas", Columnform, FormColumnSettings);
6 | //---------------------------------------------------------------------------
7 | #pragma package(smart_init)
8 | //---------------------------------------------------------------------------
9 |
10 | // Package source.
11 | //---------------------------------------------------------------------------
12 |
13 | #pragma argsused
14 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
15 | {
16 | return 1;
17 | }
18 | //---------------------------------------------------------------------------
19 |
--------------------------------------------------------------------------------
/CBuilder/Sydney/VirtualShellToolsC.ico:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Sydney/VirtualShellToolsC.ico
--------------------------------------------------------------------------------
/CBuilder/Sydney/VirtualShellToolsC.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Sydney/VirtualShellToolsC.res
--------------------------------------------------------------------------------
/CBuilder/Sydney/VirtualShellToolsCD.cpp:
--------------------------------------------------------------------------------
1 | //---------------------------------------------------------------------------
2 |
3 | #include
4 | #pragma hdrstop
5 | #pragma package(smart_init)
6 | //---------------------------------------------------------------------------
7 |
8 | // Package source.
9 | //---------------------------------------------------------------------------
10 |
11 | #pragma argsused
12 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
13 | {
14 | return 1;
15 | }
16 | //---------------------------------------------------------------------------
17 |
--------------------------------------------------------------------------------
/CBuilder/Sydney/VirtualShellToolsCD.ico:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Sydney/VirtualShellToolsCD.ico
--------------------------------------------------------------------------------
/CBuilder/Sydney/VirtualShellToolsCD.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Sydney/VirtualShellToolsCD.res
--------------------------------------------------------------------------------
/CBuilder/Tokyo/CBuilder.groupproj:
--------------------------------------------------------------------------------
1 |
2 |
3 | {08E512AA-B6C7-4392-B232-FE72BB50BC69}
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 | Default.Personality.12
15 |
16 |
17 |
18 |
19 |
20 |
21 |
22 |
23 |
24 |
25 |
26 |
27 |
28 |
29 |
30 |
31 |
32 |
33 |
34 |
35 |
36 |
37 |
38 |
39 |
40 |
41 |
42 |
43 |
44 |
45 |
46 |
47 |
48 |
49 |
--------------------------------------------------------------------------------
/CBuilder/Tokyo/VirtualShellToolsC.cpp:
--------------------------------------------------------------------------------
1 | //---------------------------------------------------------------------------
2 |
3 | #include
4 | #pragma hdrstop
5 | USEFORMNS("..\..\Source\ColumnForm.pas", Columnform, FormColumnSettings);
6 | //---------------------------------------------------------------------------
7 | #pragma package(smart_init)
8 | //---------------------------------------------------------------------------
9 |
10 | // Package source.
11 | //---------------------------------------------------------------------------
12 |
13 | #pragma argsused
14 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
15 | {
16 | return 1;
17 | }
18 | //---------------------------------------------------------------------------
19 |
--------------------------------------------------------------------------------
/CBuilder/Tokyo/VirtualShellToolsC.ico:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Tokyo/VirtualShellToolsC.ico
--------------------------------------------------------------------------------
/CBuilder/Tokyo/VirtualShellToolsC.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Tokyo/VirtualShellToolsC.res
--------------------------------------------------------------------------------
/CBuilder/Tokyo/VirtualShellToolsCD.cpp:
--------------------------------------------------------------------------------
1 | //---------------------------------------------------------------------------
2 |
3 | #include
4 | #pragma hdrstop
5 | #pragma package(smart_init)
6 | //---------------------------------------------------------------------------
7 |
8 | // Package source.
9 | //---------------------------------------------------------------------------
10 |
11 | #pragma argsused
12 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
13 | {
14 | return 1;
15 | }
16 | //---------------------------------------------------------------------------
17 |
--------------------------------------------------------------------------------
/CBuilder/Tokyo/VirtualShellToolsCD.ico:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Tokyo/VirtualShellToolsCD.ico
--------------------------------------------------------------------------------
/CBuilder/Tokyo/VirtualShellToolsCD.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Tokyo/VirtualShellToolsCD.res
--------------------------------------------------------------------------------
/Delphi/11AndAbove/Delphi.groupproj:
--------------------------------------------------------------------------------
1 |
2 |
3 | {89D072DB-A12D-432C-B37E-6B8989CE4962}
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 | Default.Personality.12
15 |
16 |
17 |
18 |
19 |
20 |
21 |
22 |
23 |
24 |
25 |
26 |
27 |
28 |
29 |
30 |
31 |
32 |
33 |
34 |
35 |
36 |
37 |
38 |
39 |
40 |
41 |
42 |
43 |
44 |
45 |
46 |
47 |
48 |
49 |
--------------------------------------------------------------------------------
/Delphi/11AndAbove/VirtualShellToolsD.dpk:
--------------------------------------------------------------------------------
1 | package VirtualShellToolsD;
2 |
3 | {$R *.res}
4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
5 | {$ALIGN 8}
6 | {$ASSERTIONS ON}
7 | {$BOOLEVAL OFF}
8 | {$DEBUGINFO OFF}
9 | {$EXTENDEDSYNTAX ON}
10 | {$IMPORTEDDATA ON}
11 | {$IOCHECKS ON}
12 | {$LOCALSYMBOLS OFF}
13 | {$LONGSTRINGS ON}
14 | {$OPENSTRINGS ON}
15 | {$OPTIMIZATION ON}
16 | {$OVERFLOWCHECKS OFF}
17 | {$RANGECHECKS OFF}
18 | {$REFERENCEINFO OFF}
19 | {$SAFEDIVIDE OFF}
20 | {$STACKFRAMES OFF}
21 | {$TYPEDADDRESS OFF}
22 | {$VARSTRINGCHECKS ON}
23 | {$WRITEABLECONST OFF}
24 | {$MINENUMSIZE 1}
25 | {$IMAGEBASE $400000}
26 | {$DEFINE RELEASE}
27 | {$ENDIF IMPLICITBUILDING}
28 | {$DESCRIPTION 'VirtualShellTools Delphi Runtime Package'}
29 | {$LIBSUFFIX AUTO}
30 | {$RUNONLY}
31 | {$IMPLICITBUILD OFF}
32 |
33 | requires
34 | rtl,
35 | vcl,
36 | vclimg,
37 | EasyListviewD,
38 | MPCommonLibD,
39 | VirtualTreesDR;
40 |
41 | contains
42 | AppletsAndWizards in '..\..\Source\AppletsAndWizards.pas',
43 | VirtualCommandLine in '..\..\Source\VirtualCommandLine.pas',
44 | VirtualExplorerTree in '..\..\Source\VirtualExplorerTree.pas',
45 | VirtualRedirector in '..\..\Source\VirtualRedirector.pas',
46 | VirtualResources in '..\..\Source\VirtualResources.pas',
47 | VirtualScrollbars in '..\..\Source\VirtualScrollbars.pas',
48 | VirtualSendToMenu in '..\..\Source\VirtualSendToMenu.pas',
49 | VirtualShellAutoComplete in '..\..\Source\VirtualShellAutoComplete.pas',
50 | VirtualShellHistory in '..\..\Source\VirtualShellHistory.pas',
51 | VirtualShellNewMenu in '..\..\Source\VirtualShellNewMenu.pas',
52 | VirtualShellNotifier in '..\..\Source\VirtualShellNotifier.pas',
53 | VirtualShellToolBar in '..\..\Source\VirtualShellToolBar.pas',
54 | VirtualThumbnails in '..\..\Source\VirtualThumbnails.pas',
55 | VirtualExplorerEasyListview in '..\..\Source\VirtualExplorerEasyListview.pas',
56 | VirtualExplorerEasyListModeview in '..\..\Source\VirtualExplorerEasyListModeview.pas',
57 | VirtualFileSearch in '..\..\Source\VirtualFileSearch.pas',
58 | ColumnForm in '..\..\Source\ColumnForm.pas' {FormColumnSettings};
59 |
60 | end.
61 |
--------------------------------------------------------------------------------
/Delphi/11AndAbove/VirtualShellToolsDD.dpk:
--------------------------------------------------------------------------------
1 | package VirtualShellToolsDD;
2 |
3 | {$R *.res}
4 | {$R '..\..\Design\VirtualShellToolsReg.dcr'}
5 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
6 | {$ALIGN 8}
7 | {$ASSERTIONS ON}
8 | {$BOOLEVAL OFF}
9 | {$DEBUGINFO OFF}
10 | {$EXTENDEDSYNTAX ON}
11 | {$IMPORTEDDATA ON}
12 | {$IOCHECKS ON}
13 | {$LOCALSYMBOLS OFF}
14 | {$LONGSTRINGS ON}
15 | {$OPENSTRINGS ON}
16 | {$OPTIMIZATION ON}
17 | {$OVERFLOWCHECKS OFF}
18 | {$RANGECHECKS OFF}
19 | {$REFERENCEINFO OFF}
20 | {$SAFEDIVIDE OFF}
21 | {$STACKFRAMES OFF}
22 | {$TYPEDADDRESS OFF}
23 | {$VARSTRINGCHECKS ON}
24 | {$WRITEABLECONST OFF}
25 | {$MINENUMSIZE 1}
26 | {$IMAGEBASE $400000}
27 | {$DEFINE RELEASE}
28 | {$ENDIF IMPLICITBUILDING}
29 | {$DESCRIPTION 'Virtual Shell Tools Delphi Designtime Package'}
30 | {$LIBSUFFIX AUTO}
31 | {$DESIGNONLY}
32 | {$IMPLICITBUILD OFF}
33 |
34 | requires
35 | vcl,
36 | rtl,
37 | designide,
38 | vclactnband,
39 | vclx,
40 | EasyListviewD,
41 | VirtualShellToolsD;
42 |
43 | contains
44 | VirtualShellToolsReg in '..\..\Design\VirtualShellToolsReg.pas';
45 |
46 | end.
47 |
--------------------------------------------------------------------------------
/Delphi/Berlin/Delphi.groupproj:
--------------------------------------------------------------------------------
1 |
2 |
3 | {89D072DB-A12D-432C-B37E-6B8989CE4962}
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 | Default.Personality.12
15 |
16 |
17 |
18 |
19 |
20 |
21 |
22 |
23 |
24 |
25 |
26 |
27 |
28 |
29 |
30 |
31 |
32 |
33 |
34 |
35 |
36 |
37 |
38 |
39 |
40 |
41 |
42 |
43 |
44 |
45 |
46 |
47 |
48 |
49 |
--------------------------------------------------------------------------------
/Delphi/Berlin/VirtualShellToolsD.dpk:
--------------------------------------------------------------------------------
1 | package VirtualShellToolsD;
2 |
3 | {$R *.res}
4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
5 | {$ALIGN 8}
6 | {$ASSERTIONS ON}
7 | {$BOOLEVAL OFF}
8 | {$DEBUGINFO OFF}
9 | {$EXTENDEDSYNTAX ON}
10 | {$IMPORTEDDATA ON}
11 | {$IOCHECKS ON}
12 | {$LOCALSYMBOLS OFF}
13 | {$LONGSTRINGS ON}
14 | {$OPENSTRINGS ON}
15 | {$OPTIMIZATION ON}
16 | {$OVERFLOWCHECKS OFF}
17 | {$RANGECHECKS OFF}
18 | {$REFERENCEINFO OFF}
19 | {$SAFEDIVIDE OFF}
20 | {$STACKFRAMES OFF}
21 | {$TYPEDADDRESS OFF}
22 | {$VARSTRINGCHECKS ON}
23 | {$WRITEABLECONST OFF}
24 | {$MINENUMSIZE 1}
25 | {$IMAGEBASE $400000}
26 | {$DEFINE RELEASE}
27 | {$ENDIF IMPLICITBUILDING}
28 | {$DESCRIPTION 'VirtualShellTools Delphi Runtime Package'}
29 | {$LIBSUFFIX '240'}
30 | {$RUNONLY}
31 | {$IMPLICITBUILD OFF}
32 |
33 | requires
34 | rtl,
35 | vcl,
36 | vclimg,
37 | EasyListviewD,
38 | MPCommonLibD,
39 | VirtualTreesDR;
40 |
41 | contains
42 | AppletsAndWizards in '..\..\Source\AppletsAndWizards.pas',
43 | VirtualCommandLine in '..\..\Source\VirtualCommandLine.pas',
44 | VirtualExplorerTree in '..\..\Source\VirtualExplorerTree.pas',
45 | VirtualRedirector in '..\..\Source\VirtualRedirector.pas',
46 | VirtualResources in '..\..\Source\VirtualResources.pas',
47 | VirtualScrollbars in '..\..\Source\VirtualScrollbars.pas',
48 | VirtualSendToMenu in '..\..\Source\VirtualSendToMenu.pas',
49 | VirtualShellAutoComplete in '..\..\Source\VirtualShellAutoComplete.pas',
50 | VirtualShellHistory in '..\..\Source\VirtualShellHistory.pas',
51 | VirtualShellNewMenu in '..\..\Source\VirtualShellNewMenu.pas',
52 | VirtualShellNotifier in '..\..\Source\VirtualShellNotifier.pas',
53 | VirtualShellToolBar in '..\..\Source\VirtualShellToolBar.pas',
54 | VirtualThumbnails in '..\..\Source\VirtualThumbnails.pas',
55 | VirtualExplorerEasyListview in '..\..\Source\VirtualExplorerEasyListview.pas',
56 | VirtualExplorerEasyListModeview in '..\..\Source\VirtualExplorerEasyListModeview.pas',
57 | VirtualFileSearch in '..\..\Source\VirtualFileSearch.pas',
58 | ColumnForm in '..\..\Source\ColumnForm.pas' {FormColumnSettings};
59 |
60 | end.
61 |
--------------------------------------------------------------------------------
/Delphi/Berlin/VirtualShellToolsD.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Delphi/Berlin/VirtualShellToolsD.res
--------------------------------------------------------------------------------
/Delphi/Berlin/VirtualShellToolsDD.dpk:
--------------------------------------------------------------------------------
1 | package VirtualShellToolsDD;
2 |
3 | {$R *.res}
4 | {$R '..\..\Design\VirtualShellToolsReg.dcr'}
5 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
6 | {$ALIGN 8}
7 | {$ASSERTIONS ON}
8 | {$BOOLEVAL OFF}
9 | {$DEBUGINFO OFF}
10 | {$EXTENDEDSYNTAX ON}
11 | {$IMPORTEDDATA ON}
12 | {$IOCHECKS ON}
13 | {$LOCALSYMBOLS OFF}
14 | {$LONGSTRINGS ON}
15 | {$OPENSTRINGS ON}
16 | {$OPTIMIZATION ON}
17 | {$OVERFLOWCHECKS OFF}
18 | {$RANGECHECKS OFF}
19 | {$REFERENCEINFO OFF}
20 | {$SAFEDIVIDE OFF}
21 | {$STACKFRAMES OFF}
22 | {$TYPEDADDRESS OFF}
23 | {$VARSTRINGCHECKS ON}
24 | {$WRITEABLECONST OFF}
25 | {$MINENUMSIZE 1}
26 | {$IMAGEBASE $400000}
27 | {$DEFINE RELEASE}
28 | {$ENDIF IMPLICITBUILDING}
29 | {$DESCRIPTION 'Virtual Shell Tools Delphi Designtime Package'}
30 | {$LIBSUFFIX '240'}
31 | {$DESIGNONLY}
32 | {$IMPLICITBUILD OFF}
33 |
34 | requires
35 | vcl,
36 | rtl,
37 | designide,
38 | vclactnband,
39 | vclx,
40 | EasyListviewD,
41 | VirtualShellToolsD;
42 |
43 | contains
44 | VirtualShellToolsReg in '..\..\Design\VirtualShellToolsReg.pas';
45 |
46 | end.
47 |
--------------------------------------------------------------------------------
/Delphi/Berlin/VirtualShellToolsDD.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Delphi/Berlin/VirtualShellToolsDD.res
--------------------------------------------------------------------------------
/Delphi/Jam-VT/Delphi.groupproj:
--------------------------------------------------------------------------------
1 |
2 |
3 | {89D072DB-A12D-432C-B37E-6B8989CE4962}
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 | Default.Personality.12
15 |
16 |
17 |
18 |
19 |
20 |
21 |
22 |
23 |
24 |
25 |
26 |
27 |
28 |
29 |
30 |
31 |
32 |
33 |
34 |
35 |
36 |
37 |
38 |
39 |
40 |
41 |
42 |
43 |
44 |
45 |
46 |
47 |
48 |
49 |
--------------------------------------------------------------------------------
/Delphi/Jam-VT/VirtualShellToolsD.dpk:
--------------------------------------------------------------------------------
1 | package VirtualShellToolsD;
2 |
3 | {$R *.res}
4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
5 | {$ALIGN 8}
6 | {$ASSERTIONS ON}
7 | {$BOOLEVAL OFF}
8 | {$DEBUGINFO OFF}
9 | {$EXTENDEDSYNTAX ON}
10 | {$IMPORTEDDATA ON}
11 | {$IOCHECKS ON}
12 | {$LOCALSYMBOLS OFF}
13 | {$LONGSTRINGS ON}
14 | {$OPENSTRINGS ON}
15 | {$OPTIMIZATION ON}
16 | {$OVERFLOWCHECKS OFF}
17 | {$RANGECHECKS OFF}
18 | {$REFERENCEINFO OFF}
19 | {$SAFEDIVIDE OFF}
20 | {$STACKFRAMES OFF}
21 | {$TYPEDADDRESS OFF}
22 | {$VARSTRINGCHECKS ON}
23 | {$WRITEABLECONST OFF}
24 | {$MINENUMSIZE 1}
25 | {$IMAGEBASE $400000}
26 | {$DEFINE RELEASE}
27 | {$ENDIF IMPLICITBUILDING}
28 | {$DESCRIPTION 'VirtualShellTools Delphi Runtime Package'}
29 | {$LIBSUFFIX AUTO}
30 | {$RUNONLY}
31 | {$IMPLICITBUILD OFF}
32 |
33 | requires
34 | rtl,
35 | vcl,
36 | vclimg,
37 | EasyListviewD,
38 | MPCommonLibD,
39 | VirtualTreesR;
40 |
41 | contains
42 | AppletsAndWizards in '..\..\Source\AppletsAndWizards.pas',
43 | VirtualCommandLine in '..\..\Source\VirtualCommandLine.pas',
44 | VirtualExplorerTree in '..\..\Source\VirtualExplorerTree.pas',
45 | VirtualRedirector in '..\..\Source\VirtualRedirector.pas',
46 | VirtualResources in '..\..\Source\VirtualResources.pas',
47 | VirtualScrollbars in '..\..\Source\VirtualScrollbars.pas',
48 | VirtualSendToMenu in '..\..\Source\VirtualSendToMenu.pas',
49 | VirtualShellAutoComplete in '..\..\Source\VirtualShellAutoComplete.pas',
50 | VirtualShellHistory in '..\..\Source\VirtualShellHistory.pas',
51 | VirtualShellNewMenu in '..\..\Source\VirtualShellNewMenu.pas',
52 | VirtualShellNotifier in '..\..\Source\VirtualShellNotifier.pas',
53 | VirtualShellToolBar in '..\..\Source\VirtualShellToolBar.pas',
54 | VirtualThumbnails in '..\..\Source\VirtualThumbnails.pas',
55 | VirtualExplorerEasyListview in '..\..\Source\VirtualExplorerEasyListview.pas',
56 | VirtualExplorerEasyListModeview in '..\..\Source\VirtualExplorerEasyListModeview.pas',
57 | VirtualFileSearch in '..\..\Source\VirtualFileSearch.pas',
58 | ColumnForm in '..\..\Source\ColumnForm.pas' {FormColumnSettings};
59 |
60 | end.
61 |
--------------------------------------------------------------------------------
/Delphi/Jam-VT/VirtualShellToolsD.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Delphi/Jam-VT/VirtualShellToolsD.res
--------------------------------------------------------------------------------
/Delphi/Jam-VT/VirtualShellToolsDD.dpk:
--------------------------------------------------------------------------------
1 | package VirtualShellToolsDD;
2 |
3 | {$R *.res}
4 | {$R '..\..\Design\VirtualShellToolsReg.dcr'}
5 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
6 | {$ALIGN 8}
7 | {$ASSERTIONS ON}
8 | {$BOOLEVAL OFF}
9 | {$DEBUGINFO OFF}
10 | {$EXTENDEDSYNTAX ON}
11 | {$IMPORTEDDATA ON}
12 | {$IOCHECKS ON}
13 | {$LOCALSYMBOLS OFF}
14 | {$LONGSTRINGS ON}
15 | {$OPENSTRINGS ON}
16 | {$OPTIMIZATION ON}
17 | {$OVERFLOWCHECKS OFF}
18 | {$RANGECHECKS OFF}
19 | {$REFERENCEINFO OFF}
20 | {$SAFEDIVIDE OFF}
21 | {$STACKFRAMES OFF}
22 | {$TYPEDADDRESS OFF}
23 | {$VARSTRINGCHECKS ON}
24 | {$WRITEABLECONST OFF}
25 | {$MINENUMSIZE 1}
26 | {$IMAGEBASE $400000}
27 | {$DEFINE RELEASE}
28 | {$ENDIF IMPLICITBUILDING}
29 | {$DESCRIPTION 'Virtual Shell Tools Delphi Designtime Package'}
30 | {$LIBSUFFIX AUTO}
31 | {$DESIGNONLY}
32 | {$IMPLICITBUILD OFF}
33 |
34 | requires
35 | vcl,
36 | rtl,
37 | designide,
38 | vclactnband,
39 | vclx,
40 | EasyListviewD,
41 | VirtualShellToolsD;
42 |
43 | contains
44 | VirtualShellToolsReg in '..\..\Design\VirtualShellToolsReg.pas';
45 |
46 | end.
47 |
--------------------------------------------------------------------------------
/Delphi/Jam-VT/VirtualShellToolsDD.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Delphi/Jam-VT/VirtualShellToolsDD.res
--------------------------------------------------------------------------------
/Delphi/Jam-VT/readme.md:
--------------------------------------------------------------------------------
1 | This directory contains alternative Delphi packages that allow VirtualShellTools to be used with the
2 | [Jam-Software version of Virtual-Treeview](https://github.com/JAM-Software/Virtual-TreeView)
--------------------------------------------------------------------------------
/Delphi/Rio/Delphi.groupproj:
--------------------------------------------------------------------------------
1 |
2 |
3 | {89D072DB-A12D-432C-B37E-6B8989CE4962}
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 | Default.Personality.12
15 |
16 |
17 |
18 |
19 |
20 |
21 |
22 |
23 |
24 |
25 |
26 |
27 |
28 |
29 |
30 |
31 |
32 |
33 |
34 |
35 |
36 |
37 |
38 |
39 |
40 |
41 |
42 |
43 |
44 |
45 |
46 |
47 |
48 |
49 |
--------------------------------------------------------------------------------
/Delphi/Rio/VirtualShellToolsD.dpk:
--------------------------------------------------------------------------------
1 | package VirtualShellToolsD;
2 |
3 | {$R *.res}
4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
5 | {$ALIGN 8}
6 | {$ASSERTIONS ON}
7 | {$BOOLEVAL OFF}
8 | {$DEBUGINFO OFF}
9 | {$EXTENDEDSYNTAX ON}
10 | {$IMPORTEDDATA ON}
11 | {$IOCHECKS ON}
12 | {$LOCALSYMBOLS OFF}
13 | {$LONGSTRINGS ON}
14 | {$OPENSTRINGS ON}
15 | {$OPTIMIZATION ON}
16 | {$OVERFLOWCHECKS OFF}
17 | {$RANGECHECKS OFF}
18 | {$REFERENCEINFO OFF}
19 | {$SAFEDIVIDE OFF}
20 | {$STACKFRAMES OFF}
21 | {$TYPEDADDRESS OFF}
22 | {$VARSTRINGCHECKS ON}
23 | {$WRITEABLECONST OFF}
24 | {$MINENUMSIZE 1}
25 | {$IMAGEBASE $400000}
26 | {$DEFINE RELEASE}
27 | {$ENDIF IMPLICITBUILDING}
28 | {$DESCRIPTION 'VirtualShellTools Delphi Runtime Package'}
29 | {$LIBSUFFIX '260'}
30 | {$RUNONLY}
31 | {$IMPLICITBUILD OFF}
32 |
33 | requires
34 | rtl,
35 | vcl,
36 | vclimg,
37 | EasyListviewD,
38 | MPCommonLibD,
39 | VirtualTreesDR;
40 |
41 | contains
42 | AppletsAndWizards in '..\..\Source\AppletsAndWizards.pas',
43 | VirtualCommandLine in '..\..\Source\VirtualCommandLine.pas',
44 | VirtualExplorerTree in '..\..\Source\VirtualExplorerTree.pas',
45 | VirtualRedirector in '..\..\Source\VirtualRedirector.pas',
46 | VirtualResources in '..\..\Source\VirtualResources.pas',
47 | VirtualScrollbars in '..\..\Source\VirtualScrollbars.pas',
48 | VirtualSendToMenu in '..\..\Source\VirtualSendToMenu.pas',
49 | VirtualShellAutoComplete in '..\..\Source\VirtualShellAutoComplete.pas',
50 | VirtualShellHistory in '..\..\Source\VirtualShellHistory.pas',
51 | VirtualShellNewMenu in '..\..\Source\VirtualShellNewMenu.pas',
52 | VirtualShellNotifier in '..\..\Source\VirtualShellNotifier.pas',
53 | VirtualShellToolBar in '..\..\Source\VirtualShellToolBar.pas',
54 | VirtualThumbnails in '..\..\Source\VirtualThumbnails.pas',
55 | VirtualExplorerEasyListview in '..\..\Source\VirtualExplorerEasyListview.pas',
56 | VirtualExplorerEasyListModeview in '..\..\Source\VirtualExplorerEasyListModeview.pas',
57 | VirtualFileSearch in '..\..\Source\VirtualFileSearch.pas',
58 | ColumnForm in '..\..\Source\ColumnForm.pas' {FormColumnSettings};
59 |
60 | end.
61 |
--------------------------------------------------------------------------------
/Delphi/Rio/VirtualShellToolsD.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Delphi/Rio/VirtualShellToolsD.res
--------------------------------------------------------------------------------
/Delphi/Rio/VirtualShellToolsDD.dpk:
--------------------------------------------------------------------------------
1 | package VirtualShellToolsDD;
2 |
3 | {$R *.res}
4 | {$R '..\..\Design\VirtualShellToolsReg.dcr'}
5 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
6 | {$ALIGN 8}
7 | {$ASSERTIONS ON}
8 | {$BOOLEVAL OFF}
9 | {$DEBUGINFO OFF}
10 | {$EXTENDEDSYNTAX ON}
11 | {$IMPORTEDDATA ON}
12 | {$IOCHECKS ON}
13 | {$LOCALSYMBOLS OFF}
14 | {$LONGSTRINGS ON}
15 | {$OPENSTRINGS ON}
16 | {$OPTIMIZATION ON}
17 | {$OVERFLOWCHECKS OFF}
18 | {$RANGECHECKS OFF}
19 | {$REFERENCEINFO OFF}
20 | {$SAFEDIVIDE OFF}
21 | {$STACKFRAMES OFF}
22 | {$TYPEDADDRESS OFF}
23 | {$VARSTRINGCHECKS ON}
24 | {$WRITEABLECONST OFF}
25 | {$MINENUMSIZE 1}
26 | {$IMAGEBASE $400000}
27 | {$DEFINE RELEASE}
28 | {$ENDIF IMPLICITBUILDING}
29 | {$DESCRIPTION 'Virtual Shell Tools Delphi Designtime Package'}
30 | {$LIBSUFFIX '260'}
31 | {$DESIGNONLY}
32 | {$IMPLICITBUILD OFF}
33 |
34 | requires
35 | vcl,
36 | rtl,
37 | designide,
38 | vclactnband,
39 | vclx,
40 | EasyListviewD,
41 | VirtualShellToolsD;
42 |
43 | contains
44 | VirtualShellToolsReg in '..\..\Design\VirtualShellToolsReg.pas';
45 |
46 | end.
47 |
--------------------------------------------------------------------------------
/Delphi/Rio/VirtualShellToolsDD.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Delphi/Rio/VirtualShellToolsDD.res
--------------------------------------------------------------------------------
/Delphi/Sydney/Delphi.groupproj:
--------------------------------------------------------------------------------
1 |
2 |
3 | {89D072DB-A12D-432C-B37E-6B8989CE4962}
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 | Default.Personality.12
15 |
16 |
17 |
18 |
19 |
20 |
21 |
22 |
23 |
24 |
25 |
26 |
27 |
28 |
29 |
30 |
31 |
32 |
33 |
34 |
35 |
36 |
37 |
38 |
39 |
40 |
41 |
42 |
43 |
44 |
45 |
46 |
47 |
48 |
49 |
--------------------------------------------------------------------------------
/Delphi/Sydney/VirtualShellToolsD.dpk:
--------------------------------------------------------------------------------
1 | package VirtualShellToolsD;
2 |
3 | {$R *.res}
4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
5 | {$ALIGN 8}
6 | {$ASSERTIONS ON}
7 | {$BOOLEVAL OFF}
8 | {$DEBUGINFO OFF}
9 | {$EXTENDEDSYNTAX ON}
10 | {$IMPORTEDDATA ON}
11 | {$IOCHECKS ON}
12 | {$LOCALSYMBOLS OFF}
13 | {$LONGSTRINGS ON}
14 | {$OPENSTRINGS ON}
15 | {$OPTIMIZATION ON}
16 | {$OVERFLOWCHECKS OFF}
17 | {$RANGECHECKS OFF}
18 | {$REFERENCEINFO OFF}
19 | {$SAFEDIVIDE OFF}
20 | {$STACKFRAMES OFF}
21 | {$TYPEDADDRESS OFF}
22 | {$VARSTRINGCHECKS ON}
23 | {$WRITEABLECONST OFF}
24 | {$MINENUMSIZE 1}
25 | {$IMAGEBASE $400000}
26 | {$DEFINE RELEASE}
27 | {$ENDIF IMPLICITBUILDING}
28 | {$DESCRIPTION 'VirtualShellTools Delphi Runtime Package'}
29 | {$LIBSUFFIX '270'}
30 | {$RUNONLY}
31 | {$IMPLICITBUILD OFF}
32 |
33 | requires
34 | rtl,
35 | vcl,
36 | vclimg,
37 | EasyListviewD,
38 | MPCommonLibD,
39 | VirtualTreesDR;
40 |
41 | contains
42 | AppletsAndWizards in '..\..\Source\AppletsAndWizards.pas',
43 | VirtualCommandLine in '..\..\Source\VirtualCommandLine.pas',
44 | VirtualExplorerTree in '..\..\Source\VirtualExplorerTree.pas',
45 | VirtualRedirector in '..\..\Source\VirtualRedirector.pas',
46 | VirtualResources in '..\..\Source\VirtualResources.pas',
47 | VirtualScrollbars in '..\..\Source\VirtualScrollbars.pas',
48 | VirtualSendToMenu in '..\..\Source\VirtualSendToMenu.pas',
49 | VirtualShellAutoComplete in '..\..\Source\VirtualShellAutoComplete.pas',
50 | VirtualShellHistory in '..\..\Source\VirtualShellHistory.pas',
51 | VirtualShellNewMenu in '..\..\Source\VirtualShellNewMenu.pas',
52 | VirtualShellNotifier in '..\..\Source\VirtualShellNotifier.pas',
53 | VirtualShellToolBar in '..\..\Source\VirtualShellToolBar.pas',
54 | VirtualThumbnails in '..\..\Source\VirtualThumbnails.pas',
55 | VirtualExplorerEasyListview in '..\..\Source\VirtualExplorerEasyListview.pas',
56 | VirtualExplorerEasyListModeview in '..\..\Source\VirtualExplorerEasyListModeview.pas',
57 | VirtualFileSearch in '..\..\Source\VirtualFileSearch.pas',
58 | ColumnForm in '..\..\Source\ColumnForm.pas' {FormColumnSettings};
59 |
60 | end.
61 |
--------------------------------------------------------------------------------
/Delphi/Sydney/VirtualShellToolsD.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Delphi/Sydney/VirtualShellToolsD.res
--------------------------------------------------------------------------------
/Delphi/Sydney/VirtualShellToolsDD.dpk:
--------------------------------------------------------------------------------
1 | package VirtualShellToolsDD;
2 |
3 | {$R *.res}
4 | {$R '..\..\Design\VirtualShellToolsReg.dcr'}
5 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
6 | {$ALIGN 8}
7 | {$ASSERTIONS ON}
8 | {$BOOLEVAL OFF}
9 | {$DEBUGINFO OFF}
10 | {$EXTENDEDSYNTAX ON}
11 | {$IMPORTEDDATA ON}
12 | {$IOCHECKS ON}
13 | {$LOCALSYMBOLS OFF}
14 | {$LONGSTRINGS ON}
15 | {$OPENSTRINGS ON}
16 | {$OPTIMIZATION ON}
17 | {$OVERFLOWCHECKS OFF}
18 | {$RANGECHECKS OFF}
19 | {$REFERENCEINFO OFF}
20 | {$SAFEDIVIDE OFF}
21 | {$STACKFRAMES OFF}
22 | {$TYPEDADDRESS OFF}
23 | {$VARSTRINGCHECKS ON}
24 | {$WRITEABLECONST OFF}
25 | {$MINENUMSIZE 1}
26 | {$IMAGEBASE $400000}
27 | {$DEFINE RELEASE}
28 | {$ENDIF IMPLICITBUILDING}
29 | {$DESCRIPTION 'Virtual Shell Tools Delphi Designtime Package'}
30 | {$LIBSUFFIX '270'}
31 | {$DESIGNONLY}
32 | {$IMPLICITBUILD OFF}
33 |
34 | requires
35 | vcl,
36 | rtl,
37 | designide,
38 | vclactnband,
39 | vclx,
40 | EasyListviewD,
41 | VirtualShellToolsD;
42 |
43 | contains
44 | VirtualShellToolsReg in '..\..\Design\VirtualShellToolsReg.pas';
45 |
46 | end.
47 |
--------------------------------------------------------------------------------
/Delphi/Sydney/VirtualShellToolsDD.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Delphi/Sydney/VirtualShellToolsDD.res
--------------------------------------------------------------------------------
/Delphi/Tokyo/Delphi.groupproj:
--------------------------------------------------------------------------------
1 |
2 |
3 | {89D072DB-A12D-432C-B37E-6B8989CE4962}
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 | Default.Personality.12
15 |
16 |
17 |
18 |
19 |
20 |
21 |
22 |
23 |
24 |
25 |
26 |
27 |
28 |
29 |
30 |
31 |
32 |
33 |
34 |
35 |
36 |
37 |
38 |
39 |
40 |
41 |
42 |
43 |
44 |
45 |
46 |
47 |
48 |
49 |
--------------------------------------------------------------------------------
/Delphi/Tokyo/VirtualShellToolsD.dpk:
--------------------------------------------------------------------------------
1 | package VirtualShellToolsD;
2 |
3 | {$R *.res}
4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
5 | {$ALIGN 8}
6 | {$ASSERTIONS ON}
7 | {$BOOLEVAL OFF}
8 | {$DEBUGINFO OFF}
9 | {$EXTENDEDSYNTAX ON}
10 | {$IMPORTEDDATA ON}
11 | {$IOCHECKS ON}
12 | {$LOCALSYMBOLS OFF}
13 | {$LONGSTRINGS ON}
14 | {$OPENSTRINGS ON}
15 | {$OPTIMIZATION ON}
16 | {$OVERFLOWCHECKS OFF}
17 | {$RANGECHECKS OFF}
18 | {$REFERENCEINFO OFF}
19 | {$SAFEDIVIDE OFF}
20 | {$STACKFRAMES OFF}
21 | {$TYPEDADDRESS OFF}
22 | {$VARSTRINGCHECKS ON}
23 | {$WRITEABLECONST OFF}
24 | {$MINENUMSIZE 1}
25 | {$IMAGEBASE $400000}
26 | {$DEFINE RELEASE}
27 | {$ENDIF IMPLICITBUILDING}
28 | {$DESCRIPTION 'VirtualShellTools Delphi Runtime Package'}
29 | {$LIBSUFFIX '250'}
30 | {$RUNONLY}
31 | {$IMPLICITBUILD OFF}
32 |
33 | requires
34 | rtl,
35 | vcl,
36 | vclimg,
37 | EasyListviewD,
38 | MPCommonLibD,
39 | VirtualTreesDR;
40 |
41 | contains
42 | AppletsAndWizards in '..\..\Source\AppletsAndWizards.pas',
43 | VirtualCommandLine in '..\..\Source\VirtualCommandLine.pas',
44 | VirtualExplorerTree in '..\..\Source\VirtualExplorerTree.pas',
45 | VirtualRedirector in '..\..\Source\VirtualRedirector.pas',
46 | VirtualResources in '..\..\Source\VirtualResources.pas',
47 | VirtualScrollbars in '..\..\Source\VirtualScrollbars.pas',
48 | VirtualSendToMenu in '..\..\Source\VirtualSendToMenu.pas',
49 | VirtualShellAutoComplete in '..\..\Source\VirtualShellAutoComplete.pas',
50 | VirtualShellHistory in '..\..\Source\VirtualShellHistory.pas',
51 | VirtualShellNewMenu in '..\..\Source\VirtualShellNewMenu.pas',
52 | VirtualShellNotifier in '..\..\Source\VirtualShellNotifier.pas',
53 | VirtualShellToolBar in '..\..\Source\VirtualShellToolBar.pas',
54 | VirtualThumbnails in '..\..\Source\VirtualThumbnails.pas',
55 | VirtualExplorerEasyListview in '..\..\Source\VirtualExplorerEasyListview.pas',
56 | VirtualExplorerEasyListModeview in '..\..\Source\VirtualExplorerEasyListModeview.pas',
57 | VirtualFileSearch in '..\..\Source\VirtualFileSearch.pas',
58 | ColumnForm in '..\..\Source\ColumnForm.pas' {FormColumnSettings};
59 |
60 | end.
61 |
--------------------------------------------------------------------------------
/Delphi/Tokyo/VirtualShellToolsD.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Delphi/Tokyo/VirtualShellToolsD.res
--------------------------------------------------------------------------------
/Delphi/Tokyo/VirtualShellToolsDD.dpk:
--------------------------------------------------------------------------------
1 | package VirtualShellToolsDD;
2 |
3 | {$R *.res}
4 | {$R '..\..\Design\VirtualShellToolsReg.dcr'}
5 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
6 | {$ALIGN 8}
7 | {$ASSERTIONS ON}
8 | {$BOOLEVAL OFF}
9 | {$DEBUGINFO OFF}
10 | {$EXTENDEDSYNTAX ON}
11 | {$IMPORTEDDATA ON}
12 | {$IOCHECKS ON}
13 | {$LOCALSYMBOLS OFF}
14 | {$LONGSTRINGS ON}
15 | {$OPENSTRINGS ON}
16 | {$OPTIMIZATION ON}
17 | {$OVERFLOWCHECKS OFF}
18 | {$RANGECHECKS OFF}
19 | {$REFERENCEINFO OFF}
20 | {$SAFEDIVIDE OFF}
21 | {$STACKFRAMES OFF}
22 | {$TYPEDADDRESS OFF}
23 | {$VARSTRINGCHECKS ON}
24 | {$WRITEABLECONST OFF}
25 | {$MINENUMSIZE 1}
26 | {$IMAGEBASE $400000}
27 | {$DEFINE RELEASE}
28 | {$ENDIF IMPLICITBUILDING}
29 | {$DESCRIPTION 'Virtual Shell Tools Delphi Designtime Package'}
30 | {$LIBSUFFIX '250'}
31 | {$DESIGNONLY}
32 | {$IMPLICITBUILD OFF}
33 |
34 | requires
35 | vcl,
36 | rtl,
37 | designide,
38 | vclactnband,
39 | vclx,
40 | EasyListviewD,
41 | VirtualShellToolsD;
42 |
43 | contains
44 | VirtualShellToolsReg in '..\..\Design\VirtualShellToolsReg.pas';
45 |
46 | end.
47 |
--------------------------------------------------------------------------------
/Delphi/Tokyo/VirtualShellToolsDD.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Delphi/Tokyo/VirtualShellToolsDD.res
--------------------------------------------------------------------------------
/Demos/Adding Custom Columns Using ShellDetails/ShellDetailsCustomColumns.dpr:
--------------------------------------------------------------------------------
1 | program ShellDetailsCustomColumns;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.RES}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/Adding Custom Columns Using ShellDetails/ShellDetailsCustomColumns.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Adding Custom Columns Using ShellDetails/ShellDetailsCustomColumns.res
--------------------------------------------------------------------------------
/Demos/Adding Custom Columns Using ShellDetails/Unit1.dfm:
--------------------------------------------------------------------------------
1 | object Form1: TForm1
2 | Left = 534
3 | Top = 326
4 | Caption = 'Form1'
5 | ClientHeight = 463
6 | ClientWidth = 844
7 | Color = clBtnFace
8 | Font.Charset = DEFAULT_CHARSET
9 | Font.Color = clWindowText
10 | Font.Height = -11
11 | Font.Name = 'MS Sans Serif'
12 | Font.Style = []
13 | OldCreateOrder = False
14 | PixelsPerInch = 96
15 | TextHeight = 13
16 | object VirtualExplorerListview1: TVirtualExplorerListview
17 | Left = 0
18 | Top = 0
19 | Width = 844
20 | Height = 463
21 | Active = True
22 | Align = alClient
23 | ColumnDetails = cdShellColumns
24 | DefaultNodeHeight = 17
25 | DragHeight = 250
26 | DragWidth = 150
27 | FileObjects = [foFolders, foNonFolders, foHidden, foEnableAsync]
28 | FileSizeFormat = fsfExplorer
29 | FileSort = fsFileType
30 | Header.AutoSizeIndex = -1
31 | Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoShowSortGlyphs, hoVisible]
32 | Header.ParentFont = True
33 | Header.SortColumn = 0
34 | Header.Style = hsFlatButtons
35 | HintMode = hmHint
36 | Indent = 0
37 | ParentColor = False
38 | RootFolder = rfDesktop
39 | TabOrder = 0
40 | TabStop = True
41 | TreeOptions.AutoOptions = [toAutoScroll]
42 | TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toReportMode, toToggleOnDblClick]
43 | TreeOptions.PaintOptions = [toShowTreeLines, toUseBlendedImages, toGhostedIfUnfocused]
44 | TreeOptions.SelectionOptions = [toMultiSelect, toRightClickSelect, toSiblingSelectConstraint]
45 | TreeOptions.VETFolderOptions = [toHideRootFolder, toThreadedExpandMark]
46 | TreeOptions.VETShellOptions = [toRightAlignSizeColumn, toContextMenus, toShellColumnMenu]
47 | TreeOptions.VETSyncOptions = [toCollapseTargetFirst, toExpandTarget, toSelectTarget]
48 | TreeOptions.VETMiscOptions = [toBrowseExecuteFolder, toBrowseExecuteFolderShortcut, toBrowseExecuteZipFolder, toChangeNotifierThread, toExecuteOnDblClk]
49 | TreeOptions.VETImageOptions = [toImages, toThreadedImages, toMarkCutAndCopy]
50 | OnCustomColumnCompare = ExplorerListview1CustomColumnCompare
51 | OnGetVETText = ExplorerListview1GetVETText
52 | ColumnMenuItemCount = 8
53 | OnHeaderRebuild = ExplorerListview1HeaderRebuild
54 | end
55 | end
56 |
--------------------------------------------------------------------------------
/Demos/Adding Custom Columns Using ShellDetails/Unit1.pas:
--------------------------------------------------------------------------------
1 | unit Unit1;
2 |
3 | interface
4 |
5 | uses
6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 | ExtCtrls, VirtualExplorerTree, VirtualTrees, MPShellUtilities,
8 | StdCtrls;
9 |
10 | type
11 | TForm1 = class(TForm)
12 | VirtualExplorerListview1: TVirtualExplorerListview;
13 | procedure ExplorerListview1GetVETText(
14 | Sender: TCustomVirtualExplorerTree; Column: TColumnIndex;
15 | Node: PVirtualNode; Namespace: TNamespace; var Text: string);
16 | procedure ExplorerListview1HeaderRebuild(Sender: TCustomVirtualExplorerTree;
17 | Header: TVTHeader);
18 | procedure ExplorerListview1CustomColumnCompare(
19 | Sender: TCustomVirtualExplorerTree; Column: TColumnIndex; Node1,
20 | Node2: PVirtualNode; var Result: Integer);
21 | private
22 | { Private declarations }
23 | public
24 | { Public declarations }
25 | CustomIndex: integer;
26 | end;
27 |
28 | var
29 | Form1: TForm1;
30 |
31 | implementation
32 |
33 | {$R *.DFM}
34 |
35 | procedure TForm1.ExplorerListview1GetVETText(
36 | Sender: TCustomVirtualExplorerTree; Column: TColumnIndex; Node: PVirtualNode;
37 | Namespace: TNamespace; var Text: string);
38 | var
39 | NS: TNamespace;
40 | begin
41 | if Sender.ValidateNamespace(Node, NS) then
42 | begin
43 | if Column = CustomIndex then
44 | Text := ExtractFileExt(NS.NameParseAddress);
45 | if Column = CustomIndex + 1 then
46 | Text := 'CustomColumn 2'
47 | end;
48 | end;
49 |
50 | procedure TForm1.ExplorerListview1HeaderRebuild(
51 | Sender: TCustomVirtualExplorerTree; Header: TVTHeader);
52 | var
53 | NewColumn: TVETColumn;
54 | begin
55 | CustomIndex := Header.Columns.Count;
56 | NewColumn := TVETColumn(Header.Columns.Add);
57 | NewColumn.ColumnDetails := cdCustom;
58 | NewColumn.Text := 'Extension';
59 | NewColumn.Width := 60;
60 |
61 | NewColumn := TVETColumn( Header.Columns.Add);
62 | NewColumn.ColumnDetails := cdCustom;
63 | NewColumn.Text := 'Second Custom';
64 | end;
65 |
66 | procedure TForm1.ExplorerListview1CustomColumnCompare(
67 | Sender: TCustomVirtualExplorerTree; Column: TColumnIndex; Node1,
68 | Node2: PVirtualNode; var Result: Integer);
69 | var
70 | NS1, NS2: TNamespace;
71 | s1, s2: string;
72 | begin
73 | if Sender.ValidateNamespace(Node1, NS1) and Sender.ValidateNamespace(Node2, NS2) then
74 | begin
75 | if Column = CustomIndex then
76 | begin
77 | { Win9x compatible }
78 | s1 := ExtractFileExt(NS1.NameParseAddress);
79 | s2 := ExtractFileExt(NS2.NameParseAddress);
80 | Result := lstrcmp(PChar(s1), PChar(s2));
81 | { If equal use the name ordering as a secondary sort }
82 | if Result = 0 then
83 | begin
84 | s1 := NS1.NameNormal;
85 | s2 := NS2.NameNormal;
86 | Result := lstrcmp(PChar(s1), PChar(s2));
87 | end;
88 | end
89 | end;
90 | end;
91 |
92 | end.
93 |
--------------------------------------------------------------------------------
/Demos/Applet and Wizard Launcher/AppletWizardLauncher.dpr:
--------------------------------------------------------------------------------
1 | program AppletWizardLauncher;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.RES}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/Applet and Wizard Launcher/AppletWizardLauncher.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Applet and Wizard Launcher/AppletWizardLauncher.res
--------------------------------------------------------------------------------
/Demos/AutoComplete Component/AutoCompleteComponentProject.dpr:
--------------------------------------------------------------------------------
1 | program AutoCompleteComponentProject;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.res}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/AutoComplete Component/AutoCompleteComponentProject.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/AutoComplete Component/AutoCompleteComponentProject.res
--------------------------------------------------------------------------------
/Demos/AutoCompleteObject/AutoCompleteObject.dpr:
--------------------------------------------------------------------------------
1 | program AutoCompleteObject;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.RES}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/AutoCompleteObject/AutoCompleteObject.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/AutoCompleteObject/AutoCompleteObject.res
--------------------------------------------------------------------------------
/Demos/AutoCompleteObject/Unit1.pas:
--------------------------------------------------------------------------------
1 | unit Unit1;
2 |
3 | // Demo of how to custom popuplate the Autocomple drop down
4 |
5 | interface
6 |
7 | uses
8 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
9 | StdCtrls, VirtualExplorerTree, ExtCtrls, VirtualTrees;
10 |
11 | type
12 | TForm1 = class(TForm)
13 | ExplorerTreeview1: TVirtualExplorerTreeview;
14 | ExplorerListview1: TVirtualExplorerListview;
15 | ExplorerComboBox1: TVirtualExplorerCombobox;
16 | CheckBoxCustom: TCheckBox;
17 | Label1: TLabel;
18 | procedure ExplorerComboBox1AutoCompleteUpdateList(Sender: TObject;
19 | const CurrentEditContents: string; EnumList: TStringList;
20 | var Handled: Boolean);
21 | private
22 | { Private declarations }
23 | public
24 | { Public declarations }
25 | end;
26 |
27 | var
28 | Form1: TForm1;
29 |
30 | implementation
31 |
32 | {$R *.DFM}
33 |
34 | procedure TForm1.ExplorerComboBox1AutoCompleteUpdateList(Sender: TObject;
35 | const CurrentEditContents: string; EnumList: TStringList;
36 | var Handled: Boolean);
37 | begin
38 | if CheckBoxCustom.Checked then
39 | begin
40 | Handled := True; // We are handling the autocomplete list
41 | EnumList.Add('C:\');
42 | EnumList.Add('C:\Windows');
43 | EnumList.Add('C:\Windows\System');
44 | EnumList.Add('C:\WinNT');
45 | EnumList.Add('C:\WinNT\System32');
46 | EnumList.Add('D:\');
47 | EnumList.Add('Control Panel');
48 | EnumList.Add('Recycle Bin');
49 | end;
50 | end;
51 |
52 | end.
53 |
--------------------------------------------------------------------------------
/Demos/Backgnd Menu/BkGndMenuProject.dpr:
--------------------------------------------------------------------------------
1 | program BkGndMenuProject;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.res}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/CheckBoxes/CheckBoxes.dpr:
--------------------------------------------------------------------------------
1 | program CheckBoxes;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.res}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
15 |
--------------------------------------------------------------------------------
/Demos/CheckBoxes/CheckBoxes.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/CheckBoxes/CheckBoxes.res
--------------------------------------------------------------------------------
/Demos/CheckBoxes/TEST.TXT:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/CheckBoxes/TEST.TXT
--------------------------------------------------------------------------------
/Demos/Custom Columns/CustomColumnProject.dpr:
--------------------------------------------------------------------------------
1 | program CustomColumnProject;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.res}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/Custom Columns/CustomColumnProject.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Custom Columns/CustomColumnProject.res
--------------------------------------------------------------------------------
/Demos/Custom Columns/Unit1.dfm:
--------------------------------------------------------------------------------
1 | object Form1: TForm1
2 | Left = 316
3 | Top = 110
4 | Width = 667
5 | Height = 480
6 | Caption = 'Form1'
7 | Color = clBtnFace
8 | Font.Charset = DEFAULT_CHARSET
9 | Font.Color = clWindowText
10 | Font.Height = -11
11 | Font.Name = 'MS Sans Serif'
12 | Font.Style = []
13 | OldCreateOrder = False
14 | PixelsPerInch = 96
15 | TextHeight = 13
16 | object VirtualExplorerEasyListview1: TVirtualExplorerEasyListview
17 | Left = 0
18 | Top = 0
19 | Width = 651
20 | Height = 444
21 | Active = True
22 | Align = alClient
23 | CompressedFile.Color = clBlue
24 | CompressedFile.Font.Charset = DEFAULT_CHARSET
25 | CompressedFile.Font.Color = clWindowText
26 | CompressedFile.Font.Height = -11
27 | CompressedFile.Font.Name = 'MS Shell Dlg 2'
28 | CompressedFile.Font.Style = []
29 | DefaultSortColumn = 0
30 | EditManager.Font.Charset = DEFAULT_CHARSET
31 | EditManager.Font.Color = clWindowText
32 | EditManager.Font.Height = -11
33 | EditManager.Font.Name = 'MS Shell Dlg 2'
34 | EditManager.Font.Style = []
35 | EncryptedFile.Color = clGreen
36 | EncryptedFile.Font.Charset = DEFAULT_CHARSET
37 | EncryptedFile.Font.Color = clWindowText
38 | EncryptedFile.Font.Height = -11
39 | EncryptedFile.Font.Name = 'MS Shell Dlg 2'
40 | EncryptedFile.Font.Style = []
41 | FileSizeFormat = vfsfDefault
42 | Font.Charset = DEFAULT_CHARSET
43 | Font.Color = clWindowText
44 | Font.Height = -11
45 | Font.Name = 'MS Shell Dlg 2'
46 | Font.Style = []
47 | Grouped = False
48 | GroupingColumn = 0
49 | GroupFont.Charset = DEFAULT_CHARSET
50 | GroupFont.Color = clWindowText
51 | GroupFont.Height = -11
52 | GroupFont.Name = 'MS Shell Dlg 2'
53 | GroupFont.Style = []
54 | Header.Font.Charset = DEFAULT_CHARSET
55 | Header.Font.Color = clWindowText
56 | Header.Font.Height = -11
57 | Header.Font.Name = 'MS Shell Dlg 2'
58 | Header.Font.Style = []
59 | Header.Visible = True
60 | Options = [eloBrowseExecuteFolder, eloBrowseExecuteFolderShortcut, eloBrowseExecuteZipFolder, eloExecuteOnDblClick, eloThreadedEnumeration, eloThreadedImages, eloThreadedDetails]
61 | PaintInfoGroup.MarginBottom.CaptionIndent = 4
62 | PaintInfoGroup.MarginTop.Visible = False
63 | ParentFont = False
64 | Sort.Algorithm = esaQuickSort
65 | Sort.AutoSort = True
66 | TabOrder = 0
67 | ThumbsManager.StorageFilename = 'Thumbnails.album'
68 | View = elsReport
69 | OnCustomColumnAdd = VirtualExplorerEasyListview1CustomColumnAdd
70 | OnCustomColumnCompare = VirtualExplorerEasyListview1CustomColumnCompare
71 | OnCustomColumnGetCaption = VirtualExplorerEasyListview1CustomColumnGetCaption
72 | end
73 | end
74 |
--------------------------------------------------------------------------------
/Demos/Custom Columns/Unit1.pas:
--------------------------------------------------------------------------------
1 | unit Unit1;
2 |
3 | interface
4 |
5 | uses
6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 | Dialogs, MPCommonObjects, EasyListview, VirtualExplorerEasyListview, Menus,
8 | MPShellUtilities;
9 |
10 | type
11 | TForm1 = class(TForm)
12 | VirtualExplorerEasyListview1: TVirtualExplorerEasyListview;
13 | procedure VirtualExplorerEasyListview1CustomColumnAdd(
14 | Sender: TCustomVirtualExplorerEasyListview;
15 | AddColumnProc: TELVAddColumnProc);
16 | procedure VirtualExplorerEasyListview1CustomColumnCompare(
17 | Sender: TCustomVirtualExplorerEasyListview; Column: TExplorerColumn;
18 | Group: TEasyGroup; Item1, Item2: TExplorerItem;
19 | var CompareResult: Integer);
20 | procedure VirtualExplorerEasyListview1CustomColumnGetCaption(
21 | Sender: TCustomVirtualExplorerEasyListview; Column: TExplorerColumn;
22 | Item: TExplorerItem; var Caption: string);
23 | private
24 | { Private declarations }
25 | public
26 | { Public declarations }
27 | end;
28 |
29 | var
30 | Form1: TForm1;
31 |
32 | implementation
33 |
34 | {$R *.dfm}
35 |
36 | procedure TForm1.VirtualExplorerEasyListview1CustomColumnAdd(
37 | Sender: TCustomVirtualExplorerEasyListview;
38 | AddColumnProc: TELVAddColumnProc);
39 | var
40 | Column: TExplorerColumn;
41 | begin
42 | Column := AddColumnProc;
43 | Column.Caption := 'Custom Column';
44 | Column.Width := 120;
45 | Column.Alignment := taRightJustify;
46 | Column.Visible := True;
47 | end;
48 |
49 | procedure TForm1.VirtualExplorerEasyListview1CustomColumnCompare(
50 | Sender: TCustomVirtualExplorerEasyListview; Column: TExplorerColumn;
51 | Group: TEasyGroup; Item1, Item2: TExplorerItem;
52 | var CompareResult: Integer);
53 | begin
54 | // sort on something silly like the item pointers
55 | CompareResult := NativeInt(Item1) - NativeInt(Item2);
56 | if Column.SortDirection = esdDescending then
57 | CompareResult := -CompareResult;
58 | end;
59 |
60 | procedure TForm1.VirtualExplorerEasyListview1CustomColumnGetCaption(
61 | Sender: TCustomVirtualExplorerEasyListview; Column: TExplorerColumn;
62 | Item: TExplorerItem; var Caption: string);
63 | begin
64 | // Something silly and unique
65 | Caption := IntToStr(NativeInt(Item))
66 | end;
67 |
68 | end.
69 |
--------------------------------------------------------------------------------
/Demos/Custom Sorting/CustomSortProject.dpr:
--------------------------------------------------------------------------------
1 | program CustomSortProject;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.res}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/Custom Sorting/Unit1.dfm:
--------------------------------------------------------------------------------
1 | object Form1: TForm1
2 | Left = 293
3 | Top = 197
4 | Width = 553
5 | Height = 409
6 | Caption = 'Form1'
7 | Color = clBtnFace
8 | Font.Charset = DEFAULT_CHARSET
9 | Font.Color = clWindowText
10 | Font.Height = -11
11 | Font.Name = 'MS Sans Serif'
12 | Font.Style = []
13 | OldCreateOrder = False
14 | PixelsPerInch = 96
15 | TextHeight = 13
16 | object Panel1: TPanel
17 | Left = 0
18 | Top = 41
19 | Width = 545
20 | Height = 334
21 | Align = alClient
22 | BevelOuter = bvNone
23 | TabOrder = 0
24 | object VirtualExplorerTreeview1: TVirtualExplorerTreeview
25 | Left = 0
26 | Top = 0
27 | Width = 200
28 | Height = 315
29 | Active = True
30 | Align = alLeft
31 | ColumnDetails = cdUser
32 | DefaultNodeHeight = 17
33 | DragHeight = 250
34 | DragWidth = 150
35 | FileSizeFormat = fsfExplorer
36 | FileSort = fsFileType
37 | Header.AutoSizeIndex = 0
38 | Header.Font.Charset = DEFAULT_CHARSET
39 | Header.Font.Color = clWindowText
40 | Header.Font.Height = -11
41 | Header.Font.Name = 'MS Sans Serif'
42 | Header.Font.Style = []
43 | Header.MainColumn = -1
44 | Header.Options = [hoColumnResize, hoDrag]
45 | HintMode = hmHint
46 | ParentColor = False
47 | RootFolder = rfDesktop
48 | TabOrder = 0
49 | TabStop = True
50 | TreeOptions.AutoOptions = [toAutoScroll]
51 | TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toToggleOnDblClick]
52 | TreeOptions.PaintOptions = [toShowButtons, toShowTreeLines, toUseBlendedImages, toGhostedIfUnfocused]
53 | TreeOptions.SelectionOptions = [toLevelSelectConstraint]
54 | TreeOptions.VETShellOptions = [toContextMenus]
55 | TreeOptions.VETSyncOptions = [toCollapseTargetFirst, toExpandTarget, toSelectTarget]
56 | TreeOptions.VETMiscOptions = [toBrowseExecuteFolder, toBrowseExecuteFolderShortcut, toBrowseExecuteZipFolder, toChangeNotifierThread, toRemoveContextMenuShortCut]
57 | TreeOptions.VETImageOptions = [toImages, toThreadedImages, toMarkCutAndCopy]
58 | OnFocusChanged = VirtualExplorerTreeview1FocusChanged
59 | Columns = <>
60 | end
61 | object VirtualExplorerEasyListview1: TVirtualExplorerEasyListview
62 | Left = 200
63 | Top = 0
64 | Width = 345
65 | Height = 315
66 | Align = alClient
67 | DefaultSortColumn = 0
68 | DefaultSortDir = esdNone
69 | Font.Charset = DEFAULT_CHARSET
70 | Font.Color = clWindowText
71 | Font.Height = -11
72 | Font.Name = 'MS Shell Dlg 2'
73 | Font.Style = []
74 | Grouped = False
75 | GroupingColumn = 0
76 | GroupFont.Charset = DEFAULT_CHARSET
77 | GroupFont.Color = clWindowText
78 | GroupFont.Height = -11
79 | GroupFont.Name = 'MS Shell Dlg 2'
80 | GroupFont.Style = []
81 | Header.Font.Charset = DEFAULT_CHARSET
82 | Header.Font.Color = clWindowText
83 | Header.Font.Height = -11
84 | Header.Font.Name = 'MS Shell Dlg 2'
85 | Header.Font.Style = []
86 | Header.Visible = True
87 | PaintInfoGroup.MarginBottom.CaptionIndent = 4
88 | ParentFont = False
89 | ShowInactive = False
90 | TabOrder = 1
91 | ThumbsManager.StorageFilename = 'Thumbnails.album'
92 | View = elsIcon
93 | OnEnumFolder = VirtualExplorerEasyListview1EnumFolder
94 | OnItemCompare = VirtualExplorerEasyListview1ItemCompare
95 | end
96 | object StatusBar1: TStatusBar
97 | Left = 0
98 | Top = 315
99 | Width = 545
100 | Height = 19
101 | Panels = <
102 | item
103 | Width = 50
104 | end>
105 | end
106 | end
107 | object Panel2: TPanel
108 | Left = 0
109 | Top = 0
110 | Width = 545
111 | Height = 41
112 | Align = alTop
113 | TabOrder = 1
114 | object CheckBox1: TCheckBox
115 | Left = 16
116 | Top = 8
117 | Width = 281
118 | Height = 17
119 | Caption = 'Assign OnItemCompare'
120 | TabOrder = 0
121 | OnClick = CheckBox1Click
122 | end
123 | object ComboBox1: TComboBox
124 | Left = 320
125 | Top = 8
126 | Width = 145
127 | Height = 21
128 | Style = csDropDownList
129 | ItemHeight = 13
130 | ItemIndex = 0
131 | TabOrder = 1
132 | Text = 'Icon'
133 | OnChange = ComboBox1Change
134 | Items.Strings = (
135 | 'Icon'
136 | 'SmallIcon'
137 | 'List'
138 | 'Details'
139 | 'Thumbnails'
140 | 'Tile')
141 | end
142 | end
143 | end
144 |
--------------------------------------------------------------------------------
/Demos/DOS Shell CommandLine/DOSCommandLineProject.dpr:
--------------------------------------------------------------------------------
1 | program DOSCommandLineProject;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.res}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/DOS Shell CommandLine/DOSCommandLineProject.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/DOS Shell CommandLine/DOSCommandLineProject.res
--------------------------------------------------------------------------------
/Demos/DOS Shell CommandLine/Unit1.dfm:
--------------------------------------------------------------------------------
1 | object Form1: TForm1
2 | Left = 275
3 | Top = 125
4 | Caption = 'Form1'
5 | ClientHeight = 442
6 | ClientWidth = 680
7 | Color = clBtnFace
8 | Font.Charset = DEFAULT_CHARSET
9 | Font.Color = clWindowText
10 | Font.Height = -11
11 | Font.Name = 'MS Shell Dlg 2'
12 | Font.Style = []
13 | OldCreateOrder = False
14 | OnCloseQuery = FormCloseQuery
15 | OnDestroy = FormDestroy
16 | PixelsPerInch = 96
17 | TextHeight = 13
18 | object Panel1: TPanel
19 | Left = 0
20 | Top = 388
21 | Width = 680
22 | Height = 54
23 | Align = alBottom
24 | TabOrder = 0
25 | DesignSize = (
26 | 680
27 | 54)
28 | object Label1: TLabel
29 | Left = 128
30 | Top = 8
31 | Width = 427
32 | Height = 39
33 | Anchors = [akLeft, akTop, akRight, akBottom]
34 | Caption =
35 | 'The handing of the output of the command shell is not fully impl' +
36 | 'emented. This demo just shows how to use the TVirtualCommandLin' +
37 | 'eRedirector. To run other service applications use TVirtualRedi' +
38 | 'rector'
39 | WordWrap = True
40 | end
41 | object Button1: TButton
42 | Left = 8
43 | Top = 8
44 | Width = 105
45 | Height = 25
46 | Caption = 'Run DOS Service...'
47 | TabOrder = 0
48 | OnClick = Button1Click
49 | end
50 | end
51 | object Panel2: TPanel
52 | Left = 0
53 | Top = 0
54 | Width = 680
55 | Height = 388
56 | Align = alClient
57 | Caption = 'Panel2'
58 | TabOrder = 1
59 | object RichEdit1: TRichEdit
60 | Left = 1
61 | Top = 1
62 | Width = 678
63 | Height = 386
64 | Align = alClient
65 | Color = clBlack
66 | Font.Charset = ANSI_CHARSET
67 | Font.Color = clWhite
68 | Font.Height = -13
69 | Font.Name = 'Courier New'
70 | Font.Style = []
71 | ParentFont = False
72 | ScrollBars = ssBoth
73 | TabOrder = 0
74 | OnKeyDown = RichEdit1KeyDown
75 | end
76 | end
77 | object VirtualCommandLineRedirector1: TVirtualCommandLineRedirector
78 | OnChildProcessEnd = VirtualCommandLineRedirector1ChildProcessEnd
79 | OnErrorInput = VirtualCommandLineRedirector1ErrorInput
80 | OnInput = VirtualCommandLineRedirector1Input
81 | Left = 40
82 | Top = 48
83 | end
84 | end
85 |
--------------------------------------------------------------------------------
/Demos/Explorer CheckBoxes/ExplorerCheckboxes.dpr:
--------------------------------------------------------------------------------
1 | program ExplorerCheckboxes;
2 |
3 |
4 |
5 |
6 |
7 | uses
8 | Forms,
9 | Unit1 in 'Unit1.pas' {Form1},
10 | InfoForm in 'InfoForm.pas' {FormInfo},
11 | VirtualCheckboxesSynchronizer in 'VirtualCheckboxesSynchronizer.pas';
12 |
13 | {$R *.res}
14 |
15 | begin
16 | Application.Initialize;
17 | Application.CreateForm(TForm1, Form1);
18 | Application.Run;
19 | end.
20 |
21 |
--------------------------------------------------------------------------------
/Demos/Explorer CheckBoxes/ExplorerCheckboxes.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Explorer CheckBoxes/ExplorerCheckboxes.res
--------------------------------------------------------------------------------
/Demos/Explorer CheckBoxes/Tree.dat:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Explorer CheckBoxes/Tree.dat
--------------------------------------------------------------------------------
/Demos/File Search/FileSearch.dpr:
--------------------------------------------------------------------------------
1 | program FileSearch;
2 |
3 | uses
4 | Forms,
5 | uWndSearchFiles in 'uWndSearchFiles.pas' {WndSearchFiles};
6 |
7 | {$R *.res}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TWndSearchFiles, WndSearchFiles);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/File Search/ReadMe.txt:
--------------------------------------------------------------------------------
1 | This simple file search demo demonstrates how files from
2 | different folders can be shown in a TVirtualExplorerListview
3 |
4 | The demo makes use of TFindFile, an excellent freeware component
5 | created by Kambiz R. Khojasteh. TFindFile can be found in FindFile.pas.
6 | See http://www.delphiarea.com for further information and updates.
7 |
8 | The TFindFile component is dynamically created and need no separate
9 | package installation.
10 |
11 | Known issues
12 | ------------
13 | - The context menu handling is in beta stage
14 | - Status in Statusbar is not affected when files are deleted/created by another app
15 |
--------------------------------------------------------------------------------
/Demos/FileSearch/FileSearchProject.cfg:
--------------------------------------------------------------------------------
1 | -$A8
2 | -$B-
3 | -$C+
4 | -$D+
5 | -$E-
6 | -$F-
7 | -$G+
8 | -$H+
9 | -$I+
10 | -$J-
11 | -$K-
12 | -$L+
13 | -$M-
14 | -$N+
15 | -$O-
16 | -$P+
17 | -$Q-
18 | -$R-
19 | -$S-
20 | -$T-
21 | -$U-
22 | -$V+
23 | -$W-
24 | -$X+
25 | -$YD
26 | -$Z1
27 | -cg
28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
29 | -H+
30 | -W+
31 | -M
32 | -$M16384,1048576
33 | -K$00400000
34 | -LE"d:\borland\delphi7\Projects\Bpl"
35 | -LN"d:\borland\delphi7\Projects\Bpl"
36 | -w-UNSAFE_TYPE
37 | -w-UNSAFE_CODE
38 | -w-UNSAFE_CAST
39 |
--------------------------------------------------------------------------------
/Demos/FileSearch/FileSearchProject.dof:
--------------------------------------------------------------------------------
1 | [FileVersion]
2 | Version=7.0
3 | [Compiler]
4 | A=8
5 | B=0
6 | C=1
7 | D=1
8 | E=0
9 | F=0
10 | G=1
11 | H=1
12 | I=1
13 | J=0
14 | K=0
15 | L=1
16 | M=0
17 | N=1
18 | O=0
19 | P=1
20 | Q=0
21 | R=0
22 | S=0
23 | T=0
24 | U=0
25 | V=1
26 | W=0
27 | X=1
28 | Y=1
29 | Z=1
30 | ShowHints=1
31 | ShowWarnings=1
32 | UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
33 | NamespacePrefix=
34 | SymbolDeprecated=1
35 | SymbolLibrary=1
36 | SymbolPlatform=1
37 | UnitLibrary=1
38 | UnitPlatform=1
39 | UnitDeprecated=1
40 | HResultCompat=1
41 | HidingMember=1
42 | HiddenVirtual=1
43 | Garbage=1
44 | BoundsError=1
45 | ZeroNilCompat=1
46 | StringConstTruncated=1
47 | ForLoopVarVarPar=1
48 | TypedConstVarPar=1
49 | AsgToTypedConst=1
50 | CaseLabelRange=1
51 | ForVariable=1
52 | ConstructingAbstract=1
53 | ComparisonFalse=1
54 | ComparisonTrue=1
55 | ComparingSignedUnsigned=1
56 | CombiningSignedUnsigned=1
57 | UnsupportedConstruct=1
58 | FileOpen=1
59 | FileOpenUnitSrc=1
60 | BadGlobalSymbol=1
61 | DuplicateConstructorDestructor=1
62 | InvalidDirective=1
63 | PackageNoLink=1
64 | PackageThreadVar=1
65 | ImplicitImport=1
66 | HPPEMITIgnored=1
67 | NoRetVal=1
68 | UseBeforeDef=1
69 | ForLoopVarUndef=1
70 | UnitNameMismatch=1
71 | NoCFGFileFound=1
72 | MessageDirective=1
73 | ImplicitVariants=1
74 | UnicodeToLocale=1
75 | LocaleToUnicode=1
76 | ImagebaseMultiple=1
77 | SuspiciousTypecast=1
78 | PrivatePropAccessor=1
79 | UnsafeType=0
80 | UnsafeCode=0
81 | UnsafeCast=0
82 | [Linker]
83 | MapFile=0
84 | OutputObjs=0
85 | ConsoleApp=1
86 | DebugInfo=0
87 | RemoteSymbols=0
88 | MinStackSize=16384
89 | MaxStackSize=1048576
90 | ImageBase=4194304
91 | ExeDescription=
92 | [Directories]
93 | OutputDir=
94 | UnitOutputDir=
95 | PackageDLLOutputDir=
96 | PackageDCPOutputDir=
97 | SearchPath=
98 | Packages=vcl;rtl;vclx;indy;vclie;xmlrtl;inetdbbde;inet;inetdbxpress;dbrtl;soaprtl;dsnap;VclSmp;dbexpress;vcldb;dbxcds;inetdb;bdertl;vcldbx;adortl;teeui;teedb;tee;ibxpress;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOfficeXP;TntUnicodeVcl_R70;tb2k_d7;SpTBXLib_d7
99 | Conditionals=
100 | DebugSourceDirs=
101 | UsePackages=0
102 | [Parameters]
103 | RunParams=
104 | HostApplication=
105 | Launcher=
106 | UseLauncher=0
107 | DebugCWD=
108 | [Language]
109 | ActiveLang=
110 | ProjectLang=
111 | RootDir=D:\Borland\Delphi7\Bin\
112 | [Version Info]
113 | IncludeVerInfo=0
114 | AutoIncBuild=0
115 | MajorVer=1
116 | MinorVer=0
117 | Release=0
118 | Build=0
119 | Debug=0
120 | PreRelease=0
121 | Special=0
122 | Private=0
123 | DLL=0
124 | Locale=1033
125 | CodePage=1252
126 | [Version Info Keys]
127 | CompanyName=
128 | FileDescription=
129 | FileVersion=1.0.0.0
130 | InternalName=
131 | LegalCopyright=
132 | LegalTrademarks=
133 | OriginalFilename=
134 | ProductName=
135 | ProductVersion=1.0.0.0
136 | Comments=
137 | [Excluded Packages]
138 | d:\borland\delphi7\Projects\Bpl\ATViewerD7-UltraExplorer.bpl=ATViewer
139 | [HistoryLists\hlConditionals]
140 | Count=1
141 | Item0=TNTSUPPORT
142 | [HistoryLists\hlUnitAliases]
143 | Count=1
144 | Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
145 |
--------------------------------------------------------------------------------
/Demos/FileSearch/FileSearchProject.dpr:
--------------------------------------------------------------------------------
1 | program FileSearchProject;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.res}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/FolderSize/FolderSizeDemo.dpr:
--------------------------------------------------------------------------------
1 | program FolderSizeDemo;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.RES}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/FolderSize/FolderSizeDemo.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/FolderSize/FolderSizeDemo.res
--------------------------------------------------------------------------------
/Demos/KnownFolders/KnwonwFoldersProject.dpr:
--------------------------------------------------------------------------------
1 | program KnwonwFoldersProject;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.res}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/Namespace Browser/NamespaceBrowserProject.dpr:
--------------------------------------------------------------------------------
1 | program NamespaceBrowserProject;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.res}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/Namespace Browser/NamespaceBrowserProject.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Namespace Browser/NamespaceBrowserProject.res
--------------------------------------------------------------------------------
/Demos/Overview/Unit1.dfm:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Overview/Unit1.dfm
--------------------------------------------------------------------------------
/Demos/Overview/VET.dpr:
--------------------------------------------------------------------------------
1 | // JCL_DEBUG_EXPERT_GENERATEJDBG OFF
2 | // JCL_DEBUG_EXPERT_INSERTJDBG OFF
3 | // JCL_DEBUG_EXPERT_DELETEMAPFILE OFF
4 | program VET;
5 |
6 | uses
7 | Forms,
8 | Unit1 in 'Unit1.pas' {Form1},
9 | InfoForm in 'InfoForm.pas' {Form2};
10 |
11 | {$R *.RES}
12 |
13 | begin
14 | Application.Initialize;
15 | Application.CreateForm(TForm1, Form1);
16 | Application.CreateForm(TFormInfo, FormInfo);
17 | Application.Run;
18 | end.
19 |
--------------------------------------------------------------------------------
/Demos/Overview/VET.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Overview/VET.res
--------------------------------------------------------------------------------
/Demos/Overview/VETBkgnd.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Overview/VETBkgnd.bmp
--------------------------------------------------------------------------------
/Demos/PrevDirNode EasyListview/EasyListviewPrevFolderProject.dpr:
--------------------------------------------------------------------------------
1 | program EasyListviewPrevFolderProject;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.res}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/PrevDirNode EasyListview/Unit1.dfm:
--------------------------------------------------------------------------------
1 | object Form1: TForm1
2 | Left = 100
3 | Top = 89
4 | Caption = 'Form1'
5 | ClientHeight = 349
6 | ClientWidth = 741
7 | Color = clBtnFace
8 | Font.Charset = DEFAULT_CHARSET
9 | Font.Color = clWindowText
10 | Font.Height = -11
11 | Font.Name = 'Tahoma'
12 | Font.Style = []
13 | OldCreateOrder = False
14 | PixelsPerInch = 96
15 | TextHeight = 13
16 | object LV: TVirtualExplorerEasyListview
17 | Left = 0
18 | Top = 56
19 | Width = 741
20 | Height = 250
21 | Active = True
22 | Align = alClient
23 | BevelKind = bkTile
24 | CompressedFile.Color = clRed
25 | CompressedFile.Font.Charset = DEFAULT_CHARSET
26 | CompressedFile.Font.Color = clWindowText
27 | CompressedFile.Font.Height = -11
28 | CompressedFile.Font.Name = 'MS Shell Dlg 2'
29 | CompressedFile.Font.Style = []
30 | DefaultSortColumn = 0
31 | EditManager.Font.Charset = DEFAULT_CHARSET
32 | EditManager.Font.Color = clWindowText
33 | EditManager.Font.Height = -11
34 | EditManager.Font.Name = 'MS Shell Dlg 2'
35 | EditManager.Font.Style = []
36 | EncryptedFile.Color = 32832
37 | EncryptedFile.Font.Charset = DEFAULT_CHARSET
38 | EncryptedFile.Font.Color = clWindowText
39 | EncryptedFile.Font.Height = -11
40 | EncryptedFile.Font.Name = 'MS Shell Dlg 2'
41 | EncryptedFile.Font.Style = []
42 | FileSizeFormat = vfsfDefault
43 | Font.Charset = DEFAULT_CHARSET
44 | Font.Color = clWindowText
45 | Font.Height = -11
46 | Font.Name = 'MS Shell Dlg 2'
47 | Font.Style = []
48 | Grouped = False
49 | GroupingColumn = 0
50 | GroupFont.Charset = DEFAULT_CHARSET
51 | GroupFont.Color = clWindowText
52 | GroupFont.Height = -11
53 | GroupFont.Name = 'MS Shell Dlg 2'
54 | GroupFont.Style = []
55 | Header.Font.Charset = DEFAULT_CHARSET
56 | Header.Font.Color = clWindowText
57 | Header.Font.Height = -11
58 | Header.Font.Name = 'MS Shell Dlg 2'
59 | Header.Font.Style = []
60 | PaintInfoGroup.MarginBottom.CaptionIndent = 4
61 | PaintInfoGroup.MarginTop.Visible = False
62 | ParentFont = False
63 | Sort.Algorithm = esaQuickSort
64 | Sort.AutoSort = True
65 | TabOrder = 0
66 | ThumbsManager.StorageFilename = 'Thumbnails.album'
67 | OnItemCompare = LVItemCompare
68 | OnItemGetCaption = LVItemGetCaption
69 | OnRootRebuild = LVRootRebuild
70 | end
71 | object Panel1: TPanel
72 | Left = 0
73 | Top = 0
74 | Width = 741
75 | Height = 56
76 | Align = alTop
77 | TabOrder = 1
78 | object ComboBox1: TComboBox
79 | Left = 16
80 | Top = 18
81 | Width = 145
82 | Height = 21
83 | Style = csDropDownList
84 | ItemIndex = 0
85 | TabOrder = 0
86 | Text = 'elsIcon'
87 | OnClick = ComboBox1Click
88 | Items.Strings = (
89 | 'elsIcon'
90 | 'elsSmallIcon'
91 | 'elsList'
92 | 'elsReport'
93 | 'elsThumbnail'
94 | 'elsTile'
95 | 'elsFilmStrip'
96 | 'elsGrid')
97 | end
98 | end
99 | object Memo1: TMemo
100 | Left = 0
101 | Top = 306
102 | Width = 741
103 | Height = 43
104 | Align = alBottom
105 | Color = clInfoBk
106 | Lines.Strings = (
107 |
108 | 'This demo shows you how to add the [..] dir to the VirtualExplor' +
109 | 'erEasyListview')
110 | ReadOnly = True
111 | TabOrder = 2
112 | end
113 | end
114 |
--------------------------------------------------------------------------------
/Demos/PrevDirNode EasyListview/Unit1.pas:
--------------------------------------------------------------------------------
1 | unit Unit1;
2 |
3 | interface
4 |
5 | uses
6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 | Dialogs, StdCtrls, MPCommonObjects, EasyListview, VirtualExplorerEasyListview,
8 | MPShellUtilities, SHlObj, ExtCtrls;
9 |
10 | type
11 | TForm1 = class(TForm)
12 | LV: TVirtualExplorerEasyListview;
13 | Panel1: TPanel;
14 | ComboBox1: TComboBox;
15 | Memo1: TMemo;
16 | function LVItemCompare(Sender: TCustomEasyListview; Column: TEasyColumn;
17 | Group: TEasyGroup; Item1, Item2: TEasyItem;
18 | var DoDefault: Boolean): Integer;
19 | procedure LVRootRebuild(Sender: TCustomVirtualExplorerEasyListview);
20 | procedure LVItemGetCaption(Sender: TCustomEasyListview; Item: TEasyItem;
21 | Column: Integer; var Caption: string);
22 | procedure ComboBox1Click(Sender: TObject);
23 | private
24 | { Private declarations }
25 | public
26 | { Public declarations }
27 | FZombieItem: TExplorerItem;
28 | end;
29 |
30 | var
31 | Form1: TForm1;
32 |
33 | implementation
34 |
35 | {$R *.dfm}
36 |
37 | //WMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
38 | { Helpers }
39 |
40 | function GetPrevNamespace(NS: TNamespace): TNamespace;
41 | var
42 | PIDL: PItemIDList;
43 | begin
44 | Result := nil;
45 | if Assigned(NS) and (not NS.IsDesktop) then begin
46 | PIDL := PIDLMgr.CopyPIDL(NS.AbsolutePIDL);
47 | PIDLMgr.StripLastID(PIDL);
48 | Result := TNamespace.Create(PIDL, nil);
49 | Result.FreePIDLOnDestroy := True; // TNamespace will destroy the PIDL
50 | end;
51 | end;
52 |
53 | //WMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
54 | { LV }
55 |
56 | procedure TForm1.ComboBox1Click(Sender: TObject);
57 | begin
58 | LV.View := TEasyListStyle(Combobox1.ItemIndex);
59 | end;
60 |
61 | function TForm1.LVItemCompare(Sender: TCustomEasyListview; Column: TEasyColumn;
62 | Group: TEasyGroup; Item1, Item2: TEasyItem; var DoDefault: Boolean): Integer;
63 | // Place the ZombieItem on the top of the listview
64 | begin
65 | Result := 0;
66 | if Assigned(FZombieItem) then
67 | if FZombieItem = Item1 then begin
68 | Result := -1;
69 | DoDefault := False;
70 | end else
71 | if FZombieItem = Item2 then begin
72 | Result := 1;
73 | DoDefault := False;
74 | end;
75 | end;
76 |
77 | procedure TForm1.LVItemGetCaption(Sender: TCustomEasyListview; Item: TEasyItem;
78 | Column: Integer; var Caption: string);
79 | // Change the caption of the ZombieItem
80 | begin
81 | if Assigned(FZombieItem) and (FZombieItem = Item) and (Column = 0) then
82 | Caption := '[..]';
83 | end;
84 |
85 | procedure TForm1.LVRootRebuild(Sender: TCustomVirtualExplorerEasyListview);
86 | var
87 | NS: TNamespace;
88 | begin
89 | FZombieItem := nil;
90 | // First we should create the Namespace that will represent the '..' dir.
91 | // Simply get the parent level namespace
92 | NS := GetPrevNamespace(LV.RootFolderNamespace);
93 | if Assigned(NS) then begin
94 | // Now create the ZombieNode and sort the tree
95 | FZombieItem := LV.AddCustomItem(nil, NS, True);
96 | LV.SortList;
97 | end;
98 | end;
99 |
100 | end.
101 |
--------------------------------------------------------------------------------
/Demos/PrevDirNode/Project1.dpr:
--------------------------------------------------------------------------------
1 | program Project1;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.res}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/PrevDirNode/Project1.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/PrevDirNode/Project1.res
--------------------------------------------------------------------------------
/Demos/PrevDirNode/Unit1.dfm:
--------------------------------------------------------------------------------
1 | object Form1: TForm1
2 | Left = 252
3 | Top = 138
4 | Width = 696
5 | Height = 480
6 | Caption = 'Form1'
7 | Color = clBtnFace
8 | Font.Charset = DEFAULT_CHARSET
9 | Font.Color = clWindowText
10 | Font.Height = -11
11 | Font.Name = 'MS Shell Dlg 2'
12 | Font.Style = []
13 | OldCreateOrder = False
14 | OnShow = FormShow
15 | PixelsPerInch = 96
16 | TextHeight = 13
17 | object Splitter1: TSplitter
18 | Left = 200
19 | Top = 41
20 | Height = 362
21 | end
22 | object VET: TVirtualExplorerTreeview
23 | Left = 0
24 | Top = 41
25 | Width = 200
26 | Height = 362
27 | Active = False
28 | Align = alLeft
29 | ColumnDetails = cdUser
30 | DefaultNodeHeight = 17
31 | DragHeight = 250
32 | DragWidth = 150
33 | FileSizeFormat = fsfExplorer
34 | FileSort = fsFileType
35 | Header.AutoSizeIndex = 0
36 | Header.Font.Charset = DEFAULT_CHARSET
37 | Header.Font.Color = clWindowText
38 | Header.Font.Height = -11
39 | Header.Font.Name = 'MS Shell Dlg 2'
40 | Header.Font.Style = []
41 | Header.MainColumn = -1
42 | Header.Options = [hoColumnResize, hoDrag]
43 | HintMode = hmHint
44 | ParentColor = False
45 | RootFolder = rfDesktop
46 | TabOrder = 0
47 | TabStop = True
48 | TreeOptions.AutoOptions = [toAutoScroll]
49 | TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toToggleOnDblClick]
50 | TreeOptions.PaintOptions = [toShowButtons, toShowTreeLines, toUseBlendedImages, toGhostedIfUnfocused]
51 | TreeOptions.SelectionOptions = [toMultiSelect, toSiblingSelectConstraint]
52 | TreeOptions.VETShellOptions = [toContextMenus]
53 | TreeOptions.VETSyncOptions = [toCollapseTargetFirst, toExpandTarget, toSelectTarget]
54 | TreeOptions.VETMiscOptions = [toBrowseExecuteFolder, toBrowseExecuteFolderShortcut, toChangeNotifierThread, toRemoveContextMenuShortCut]
55 | TreeOptions.VETImageOptions = [toImages, toThreadedImages, toMarkCutAndCopy]
56 | Columns = <>
57 | end
58 | object Memo1: TMemo
59 | Left = 0
60 | Top = 403
61 | Width = 688
62 | Height = 43
63 | Align = alBottom
64 | Color = clInfoBk
65 | Lines.Strings = (
66 |
67 | 'This demo shows you how to add the [..] dir to the VirtualExplor' +
68 | 'erListviewEx')
69 | ReadOnly = True
70 | TabOrder = 1
71 | end
72 | object Panel1: TPanel
73 | Left = 0
74 | Top = 0
75 | Width = 688
76 | Height = 41
77 | Align = alTop
78 | BevelInner = bvRaised
79 | BevelOuter = bvLowered
80 | TabOrder = 2
81 | object ComboBox1: TComboBox
82 | Left = 8
83 | Top = 8
84 | Width = 145
85 | Height = 21
86 | Style = csDropDownList
87 | ItemHeight = 13
88 | TabOrder = 0
89 | OnClick = ComboBox1Click
90 | Items.Strings = (
91 | 'vsxIcon'
92 | 'vsxSmallIcon'
93 | 'vsxList'
94 | 'vsxReport'
95 | 'vsxThumbs')
96 | end
97 | end
98 | end
99 |
--------------------------------------------------------------------------------
/Demos/Readme.txt:
--------------------------------------------------------------------------------
1 |
2 |
3 | Welcome to the VirtualShellTools Demo Folder!
4 |
5 | These are the Demo supplied with VirtualShellTools. If you want to compile all the demos at once then use the *.bpg file supplied in this folder.
6 | VirtualShellToolsDemos.bpg - All the Demos having to do with VirtualShellTools
7 |
8 | In order to build the package open the *.bpg file with Delphi. Answer yes to *all* the annoying quesions about recreating the resource file. Go to
9 |
10 | View -> ProjectManager
11 |
12 | You should see all the demos in the Listview. Use the dropdown list and select the first item in the list. Delphi will open the project. Close the project. All you need is the original ProjectManager but with the first demo selected in the dropdown list. Now go to
13 |
14 | Project -> Compile All Projects
15 |
16 | Delphi will start churning away compiling all the projects in the list.
17 |
18 | Go to the Demos folder and start seeing what VirtualShellTools can do for you.
19 |
20 | Jim Kueneman 7.20.2002
--------------------------------------------------------------------------------
/Demos/SendTo Menu/Back.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/SendTo Menu/Back.bmp
--------------------------------------------------------------------------------
/Demos/SendTo Menu/Fwd.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/SendTo Menu/Fwd.bmp
--------------------------------------------------------------------------------
/Demos/SendTo Menu/SendTo Menu TBX/Back.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/SendTo Menu/SendTo Menu TBX/Back.bmp
--------------------------------------------------------------------------------
/Demos/SendTo Menu/SendTo Menu TBX/Fwd.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/SendTo Menu/SendTo Menu TBX/Fwd.bmp
--------------------------------------------------------------------------------
/Demos/SendTo Menu/SendTo Menu TBX/SendToMenuProject.dpr:
--------------------------------------------------------------------------------
1 | program SendToMenuProject;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.res}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/SendTo Menu/SendTo Menu TBX/SendToMenuProject.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/SendTo Menu/SendTo Menu TBX/SendToMenuProject.res
--------------------------------------------------------------------------------
/Demos/SendTo Menu/SendTo Menu TBX/Unit1.pas:
--------------------------------------------------------------------------------
1 | unit Unit1;
2 |
3 | interface
4 |
5 | uses
6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
7 | Dialogs, Menus, StdCtrls, ImgList, ActiveX,
8 | VirtualTrees, VirtualExplorerTree, VirtualShellUtilities, VirtualSendToMenu,
9 | TB2Item, TB2Dock, TB2Toolbar, TBX;
10 |
11 | type
12 | TForm1 = class(TForm)
13 | VirtualSendToMenu1: TVirtualSendToMenu;
14 | VirtualExplorerListview1: TVirtualExplorerListview;
15 | ImageList1: TImageList;
16 | TBDock1: TTBDock;
17 | TBXToolbar1: TTBXToolbar;
18 | TBXItem3: TTBXItem;
19 | TBXItem2: TTBXItem;
20 | TBXSubmenuItem1: TTBXSubmenuItem;
21 | procedure VirtualExplorerListview1Change(Sender: TBaseVirtualTree;
22 | Node: PVirtualNode);
23 | procedure VirtualExplorerListview1RootChange(
24 | Sender: TCustomVirtualExplorerTree);
25 | procedure ToolButton3Click(Sender: TObject);
26 | procedure ToolButton2Click(Sender: TObject);
27 | procedure VirtualSendToMenu1SendToEvent(Sender: TVirtualSendToMenu;
28 | SendToTarget: TNamespace; var SourceData: IDataObject);
29 | procedure TBXSubmenuItem1Popup(Sender: TTBCustomItem;
30 | FromLink: Boolean);
31 | procedure FormShow(Sender: TObject);
32 | private
33 | { Private declarations }
34 | public
35 | { Public declarations }
36 | end;
37 |
38 | var
39 | Form1: TForm1;
40 |
41 | implementation
42 |
43 | {$R *.dfm}
44 |
45 | procedure TForm1.FormShow(Sender: TObject);
46 | begin
47 | VirtualExplorerListview1.Active := True;
48 | end;
49 |
50 | procedure TForm1.VirtualExplorerListview1Change(Sender: TBaseVirtualTree;
51 | Node: PVirtualNode);
52 | var
53 | NS: TNamespace;
54 | begin
55 | if VirtualExplorerListview1.ValidateNamespace(Node, NS) then
56 | begin
57 | TBXSubmenuItem1.Enabled := NS.CanCopy;
58 | TBXItem3.Enabled := NS.Folder;
59 | TBXItem2.Enabled := not VirtualExplorerListview1.RootFolderNamespace.IsDesktop;
60 | end
61 | end;
62 |
63 | procedure TForm1.VirtualExplorerListview1RootChange(Sender: TCustomVirtualExplorerTree);
64 | var
65 | NS: TNamespace;
66 | begin
67 | TBXItem2.Enabled := not VirtualExplorerListview1.RootFolderNamespace.IsDesktop;
68 | if VirtualExplorerListview1.ValidateNamespace(VirtualExplorerListview1.GetFirstSelected, NS) then
69 | begin
70 | TBXSubmenuItem1.Enabled := NS.CanCopy;
71 | TBXItem3.Enabled := NS.Folder;
72 | end else
73 | begin
74 | TBXSubmenuItem1.Enabled := False;
75 | TBXItem3.Enabled := False;
76 | end
77 | end;
78 |
79 | procedure TForm1.ToolButton2Click(Sender: TObject);
80 | begin
81 | VirtualExplorerListview1.BrowseToPrevLevel;
82 | end;
83 |
84 | procedure TForm1.ToolButton3Click(Sender: TObject);
85 | begin
86 | VirtualExplorerListview1.BrowseToNextLevel;
87 | end;
88 |
89 | procedure TForm1.VirtualSendToMenu1SendToEvent(Sender: TVirtualSendToMenu;
90 | SendToTarget: TNamespace; var SourceData: IDataObject);
91 | begin
92 | SourceData := VirtualExplorerListview1.SelectedToDataObject;
93 | end;
94 |
95 | procedure TForm1.TBXSubmenuItem1Popup(Sender: TTBCustomItem; FromLink: Boolean);
96 | begin
97 | // Just call this method when the SubmenuItem is about to be showed.
98 | // To add unicode support use TSpTBXItem instead:
99 | // VirtualSendToMenu1.Populate_TB2000(Sender, TSpTBXItem);
100 | VirtualSendToMenu1.Populate_TB2000(Sender, TTBXItem);
101 | end;
102 |
103 | end.
104 |
--------------------------------------------------------------------------------
/Demos/SendTo Menu/SendTo Menu TBX/folder.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/SendTo Menu/SendTo Menu TBX/folder.bmp
--------------------------------------------------------------------------------
/Demos/SendTo Menu/SendToMenuProject.dpr:
--------------------------------------------------------------------------------
1 | program SendToMenuProject;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.res}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/SendTo Menu/SendToMenuProject.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/SendTo Menu/SendToMenuProject.res
--------------------------------------------------------------------------------
/Demos/SendTo Menu/Unit1.pas:
--------------------------------------------------------------------------------
1 | unit Unit1;
2 |
3 | interface
4 |
5 | uses
6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
7 | Dialogs, Menus, ImgList, ActiveX, ComCtrls, ToolWin,
8 | VirtualTrees, VirtualExplorerTree, MPShellUtilities,
9 | VirtualSendToMenu;
10 |
11 | type
12 | TForm1 = class(TForm)
13 | VirtualSendToMenu1: TVirtualSendToMenu;
14 | VirtualExplorerListview1: TVirtualExplorerListview;
15 | ToolBar1: TToolBar;
16 | ToolButton1: TToolButton;
17 | ToolButton2: TToolButton;
18 | ToolButton3: TToolButton;
19 | ImageList1: TImageList;
20 | procedure VirtualExplorerListview1Change(Sender: TBaseVirtualTree;
21 | Node: PVirtualNode);
22 | procedure VirtualExplorerListview1RootChange(
23 | Sender: TCustomVirtualExplorerTree);
24 | procedure ToolButton3Click(Sender: TObject);
25 | procedure ToolButton2Click(Sender: TObject);
26 | procedure VirtualSendToMenu1SendToEvent(Sender: TVirtualSendToMenu;
27 | SendToTarget: TNamespace; var SourceData: IDataObject);
28 | procedure FormShow(Sender: TObject);
29 | private
30 | { Private declarations }
31 | public
32 | { Public declarations }
33 | end;
34 |
35 | var
36 | Form1: TForm1;
37 |
38 | implementation
39 |
40 | {$R *.dfm}
41 |
42 | procedure TForm1.FormShow(Sender: TObject);
43 | begin
44 | VirtualExplorerListview1.Active := True;
45 | end;
46 |
47 | procedure TForm1.VirtualExplorerListview1Change(Sender: TBaseVirtualTree;
48 | Node: PVirtualNode);
49 | var
50 | NS: TNamespace;
51 | begin
52 | if VirtualExplorerListview1.ValidateNamespace(Node, NS) then
53 | begin
54 | ToolButton1.Enabled := NS.CanCopy;
55 | ToolButton3.Enabled := NS.Folder;
56 | ToolButton2.Enabled := not VirtualExplorerListview1.RootFolderNamespace.IsDesktop
57 | end
58 | end;
59 |
60 | procedure TForm1.VirtualExplorerListview1RootChange(Sender: TCustomVirtualExplorerTree);
61 | var
62 | NS: TNamespace;
63 | begin
64 | ToolButton2.Enabled := not VirtualExplorerListview1.RootFolderNamespace.IsDesktop;
65 | if VirtualExplorerListview1.ValidateNamespace(VirtualExplorerListview1.GetFirstSelected, NS) then
66 | begin
67 | ToolButton1.Enabled := NS.CanCopy;
68 | ToolButton3.Enabled := NS.Folder;
69 | end else
70 | begin
71 | ToolButton1.Enabled := False;
72 | ToolButton3.Enabled := False;
73 | end
74 | end;
75 |
76 | procedure TForm1.ToolButton3Click(Sender: TObject);
77 | begin
78 | VirtualExplorerListview1.BrowseToNextLevel;
79 | end;
80 |
81 | procedure TForm1.ToolButton2Click(Sender: TObject);
82 | begin
83 | VirtualExplorerListview1.BrowseToPrevLevel;
84 | end;
85 |
86 | procedure TForm1.VirtualSendToMenu1SendToEvent(Sender: TVirtualSendToMenu;
87 | SendToTarget: TNamespace; var SourceData: IDataObject);
88 | begin
89 | SourceData := VirtualExplorerListview1.SelectedToDataObject;
90 | end;
91 |
92 | end.
93 |
--------------------------------------------------------------------------------
/Demos/SendTo Menu/folder.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/SendTo Menu/folder.bmp
--------------------------------------------------------------------------------
/Demos/Shell History/ShellHistory.dpr:
--------------------------------------------------------------------------------
1 | program ShellHistory;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.res}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/Shell History/ShellHistory.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Shell History/ShellHistory.res
--------------------------------------------------------------------------------
/Demos/Shell History/TBX Enabled Demo/ShellHistoryTBX.dpr:
--------------------------------------------------------------------------------
1 | program ShellHistoryTBX;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.res}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/Shell History/TBX Enabled Demo/ShellHistoryTBX.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Shell History/TBX Enabled Demo/ShellHistoryTBX.res
--------------------------------------------------------------------------------
/Demos/Shell History/TBX Enabled Demo/Unit1.pas:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Shell History/TBX Enabled Demo/Unit1.pas
--------------------------------------------------------------------------------
/Demos/Shell Link Shortcuts/ShellLinkShortcuts.dpr:
--------------------------------------------------------------------------------
1 | program ShellLinkShortcuts;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.RES}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/Shell Link Shortcuts/ShellLinkShortcuts.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Shell Link Shortcuts/ShellLinkShortcuts.res
--------------------------------------------------------------------------------
/Demos/Shell Notify/ShellNotify.dpr:
--------------------------------------------------------------------------------
1 | program ShellNotify;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1},
6 | Unit2 in 'Unit2.pas' {Form2};
7 |
8 | {$R *.RES}
9 |
10 | begin
11 | Application.Initialize;
12 | Application.CreateForm(TForm1, Form1);
13 | Application.CreateForm(TForm2, Form2);
14 | Application.Run;
15 | end.
16 |
--------------------------------------------------------------------------------
/Demos/Shell Notify/ShellNotify.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Shell Notify/ShellNotify.res
--------------------------------------------------------------------------------
/Demos/Shell Notify/Unit1.dfm:
--------------------------------------------------------------------------------
1 | object Form1: TForm1
2 | Left = 183
3 | Top = 76
4 | Width = 568
5 | Height = 413
6 | Caption = 'Form1'
7 | Color = clBtnFace
8 | Font.Charset = DEFAULT_CHARSET
9 | Font.Color = clWindowText
10 | Font.Height = -11
11 | Font.Name = 'MS Sans Serif'
12 | Font.Style = []
13 | OldCreateOrder = False
14 | ShowHint = True
15 | OnCreate = FormCreate
16 | DesignSize = (
17 | 552
18 | 377)
19 | PixelsPerInch = 96
20 | TextHeight = 13
21 | object Label1: TLabel
22 | Left = 10
23 | Top = 68
24 | Width = 111
25 | Height = 13
26 | Caption = 'Choose a Target Folder'
27 | end
28 | object Label2: TLabel
29 | Left = 16
30 | Top = 8
31 | Width = 116
32 | Height = 26
33 | Caption = 'Click button or right click on the Listview'
34 | WordWrap = True
35 | end
36 | object RadioGroupFileName: TRadioGroup
37 | Left = -6
38 | Top = 112
39 | Width = 543
40 | Height = 57
41 | Anchors = [akLeft, akTop, akRight]
42 | Caption = 'New Filename'
43 | ItemIndex = 0
44 | Items.Strings = (
45 | 'Let VSTools create the filename'
46 | 'Use my filename (no extension necessary)')
47 | TabOrder = 1
48 | end
49 | object Button1: TButton
50 | Left = 18
51 | Top = 36
52 | Width = 121
53 | Height = 25
54 | Caption = 'ShellNew Menu'
55 | TabOrder = 0
56 | OnClick = Button1Click
57 | end
58 | object Edit1: TEdit
59 | Left = 266
60 | Top = 142
61 | Width = 263
62 | Height = 21
63 | Anchors = [akLeft, akTop, akRight]
64 | TabOrder = 2
65 | Text = 'My Custom Filename'
66 | end
67 | object GroupBox1: TGroupBox
68 | Left = 152
69 | Top = 8
70 | Width = 385
71 | Height = 57
72 | Caption = 'Options'
73 | TabOrder = 4
74 | object CheckBox1: TCheckBox
75 | Left = 136
76 | Top = 16
77 | Width = 121
78 | Height = 17
79 | Hint =
80 | 'Turning this option on mimics Explorer New menu. Explorer short' +
81 | 'ens the list for example HTML files should have a *.htm and a *h' +
82 | 'tml item. Not combining items will leave both in menu.'
83 | Caption = 'Combine Like Items'
84 | TabOrder = 0
85 | OnClick = CheckBox1Click
86 | end
87 | object CheckBox2: TCheckBox
88 | Left = 136
89 | Top = 32
90 | Width = 105
91 | Height = 17
92 | Caption = 'Use Shell Images'
93 | TabOrder = 1
94 | OnClick = CheckBox2Click
95 | end
96 | object CheckBox3: TCheckBox
97 | Left = 264
98 | Top = 16
99 | Width = 113
100 | Height = 17
101 | Caption = 'Warn on Overwrite'
102 | TabOrder = 2
103 | OnClick = CheckBox3Click
104 | end
105 | object CheckBox4: TCheckBox
106 | Left = 8
107 | Top = 16
108 | Width = 113
109 | Height = 17
110 | Caption = 'New Folder Item'
111 | TabOrder = 3
112 | OnClick = CheckBox4Click
113 | end
114 | object CheckBox5: TCheckBox
115 | Left = 8
116 | Top = 32
117 | Width = 113
118 | Height = 17
119 | Caption = 'New Shortcut Item'
120 | TabOrder = 4
121 | OnClick = CheckBox5Click
122 | end
123 | end
124 | object StatusBar1: TStatusBar
125 | Left = 0
126 | Top = 358
127 | Width = 552
128 | Height = 19
129 | Panels = <
130 | item
131 | Text = ' 0 Total Objects'
132 | Width = 150
133 | end
134 | item
135 | Text = ' 0 Objects Selected'
136 | Width = 50
137 | end>
138 | end
139 | end
140 |
--------------------------------------------------------------------------------
/Demos/Shell Notify/Unit2.dfm:
--------------------------------------------------------------------------------
1 | object Form2: TForm2
2 | Left = 99
3 | Top = 372
4 | Width = 645
5 | Height = 312
6 | BorderStyle = bsSizeToolWin
7 | Caption = 'Form2'
8 | Color = clBtnFace
9 | Font.Charset = DEFAULT_CHARSET
10 | Font.Color = clWindowText
11 | Font.Height = -11
12 | Font.Name = 'MS Sans Serif'
13 | Font.Style = []
14 | OldCreateOrder = False
15 | Visible = True
16 | OnCreate = FormCreate
17 | OnHide = FormHide
18 | PixelsPerInch = 96
19 | TextHeight = 13
20 | object TreeView1: TTreeView
21 | Left = 0
22 | Top = 25
23 | Width = 408
24 | Height = 253
25 | Align = alClient
26 | Indent = 19
27 | TabOrder = 0
28 | end
29 | object ToolBar1: TToolBar
30 | Left = 0
31 | Top = 0
32 | Width = 637
33 | Height = 25
34 | AutoSize = True
35 | ButtonHeight = 21
36 | ButtonWidth = 61
37 | Caption = 'ToolBar1'
38 | ShowCaptions = True
39 | TabOrder = 1
40 | object ToolButton1: TToolButton
41 | Left = 0
42 | Top = 2
43 | AutoSize = True
44 | Caption = 'Delete All'
45 | ImageIndex = 0
46 | OnClick = ToolButton1Click
47 | end
48 | object ToolButton2: TToolButton
49 | Left = 56
50 | Top = 2
51 | Caption = 'Mark All'
52 | ImageIndex = 1
53 | OnClick = ToolButton2Click
54 | end
55 | object ToolButton3: TToolButton
56 | Left = 117
57 | Top = 2
58 | AutoSize = True
59 | Caption = 'Collapse All'
60 | ImageIndex = 2
61 | OnClick = ToolButton3Click
62 | end
63 | object ToolButton4: TToolButton
64 | Left = 182
65 | Top = 2
66 | Caption = 'Expand All'
67 | ImageIndex = 3
68 | OnClick = ToolButton4Click
69 | end
70 | end
71 | object Panel1: TPanel
72 | Left = 408
73 | Top = 25
74 | Width = 229
75 | Height = 253
76 | Align = alRight
77 | TabOrder = 2
78 | object Label1: TLabel
79 | Left = 16
80 | Top = 24
81 | Width = 109
82 | Height = 13
83 | Caption = 'Shell Notifications Sent'
84 | end
85 | object Label2: TLabel
86 | Left = 16
87 | Top = 48
88 | Width = 116
89 | Height = 13
90 | Caption = 'Kernel Notifications Sent'
91 | end
92 | object Label3: TLabel
93 | Left = 16
94 | Top = 72
95 | Width = 137
96 | Height = 13
97 | Caption = 'Peak Change Notify Objects:'
98 | end
99 | object Label4: TLabel
100 | Left = 16
101 | Top = 120
102 | Width = 119
103 | Height = 13
104 | Caption = 'Peak Change Notify Lists'
105 | end
106 | object Label5: TLabel
107 | Left = 176
108 | Top = 24
109 | Width = 6
110 | Height = 13
111 | Caption = '0'
112 | end
113 | object Label6: TLabel
114 | Left = 176
115 | Top = 48
116 | Width = 6
117 | Height = 13
118 | Caption = '0'
119 | end
120 | object Label7: TLabel
121 | Left = 176
122 | Top = 72
123 | Width = 6
124 | Height = 13
125 | Caption = '0'
126 | end
127 | object Label8: TLabel
128 | Left = 176
129 | Top = 96
130 | Width = 6
131 | Height = 13
132 | Caption = '0'
133 | end
134 | object Label9: TLabel
135 | Left = 176
136 | Top = 120
137 | Width = 6
138 | Height = 13
139 | Caption = '0'
140 | end
141 | object Label10: TLabel
142 | Left = 176
143 | Top = 144
144 | Width = 6
145 | Height = 13
146 | Caption = '0'
147 | end
148 | object Label11: TLabel
149 | Left = 16
150 | Top = 96
151 | Width = 143
152 | Height = 13
153 | Caption = 'Current Change Notify Objects'
154 | end
155 | object Label12: TLabel
156 | Left = 16
157 | Top = 144
158 | Width = 128
159 | Height = 13
160 | Caption = 'Current Change Notify Lists'
161 | end
162 | object CheckBox1: TCheckBox
163 | Left = 120
164 | Top = 200
165 | Width = 97
166 | Height = 17
167 | Caption = 'Track Realtime'
168 | Checked = True
169 | State = cbChecked
170 | TabOrder = 0
171 | end
172 | object Button1: TButton
173 | Left = 8
174 | Top = 168
175 | Width = 97
176 | Height = 25
177 | Caption = 'Reset'
178 | TabOrder = 1
179 | OnClick = Button1Click
180 | end
181 | object Button2: TButton
182 | Left = 120
183 | Top = 168
184 | Width = 97
185 | Height = 25
186 | Caption = 'Manual Refresh'
187 | TabOrder = 2
188 | OnClick = Button2Click
189 | end
190 | end
191 | end
192 |
--------------------------------------------------------------------------------
/Demos/ShellColumn State Storing/ShellColumnStateStoring.dpr:
--------------------------------------------------------------------------------
1 | program ShellColumnStateStoring;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.RES}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/ShellColumn State Storing/ShellColumnStateStoring.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/ShellColumn State Storing/ShellColumnStateStoring.res
--------------------------------------------------------------------------------
/Demos/ShellColumn State Storing/Unit1.pas:
--------------------------------------------------------------------------------
1 | unit Unit1;
2 |
3 | interface
4 |
5 | uses
6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 | VirtualExplorerTree, VirtualTrees, ExtCtrls, StdCtrls;
8 |
9 | type
10 | TForm1 = class(TForm)
11 | Panel2: TPanel;
12 | ExplorerTreeview1: TVirtualExplorerTreeview;
13 | Splitter1: TSplitter;
14 | ExplorerListview1: TVirtualExplorerListview;
15 | Panel1: TPanel;
16 | Panel3: TPanel;
17 | Panel4: TPanel;
18 | Button1: TButton;
19 | Button2: TButton;
20 | Label4: TLabel;
21 | Memo1: TMemo;
22 | procedure Button1Click(Sender: TObject);
23 | procedure Button2Click(Sender: TObject);
24 | private
25 | { Private declarations }
26 | public
27 | { Public declarations }
28 | end;
29 |
30 | var
31 | Form1: TForm1;
32 |
33 | implementation
34 |
35 | {$R *.DFM}
36 |
37 | procedure TForm1.Button1Click(Sender: TObject);
38 | begin
39 | ExplorerListview1.Storage.SaveToFile('Storage.dat');
40 | end;
41 |
42 | procedure TForm1.Button2Click(Sender: TObject);
43 | begin
44 | ExplorerListview1.Storage.LoadFromFile('Storage.dat');
45 | ExplorerListview1.RefreshTree
46 | end;
47 |
48 | end.
49 |
--------------------------------------------------------------------------------
/Demos/ShellNew (New File) Menu/ShellNew_NewFileMenu.dpr:
--------------------------------------------------------------------------------
1 | program ShellNew_NewFileMenu;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.RES}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/ShellNew (New File) Menu/ShellNew_NewFileMenu.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/ShellNew (New File) Menu/ShellNew_NewFileMenu.res
--------------------------------------------------------------------------------
/Demos/ShellNew (New File) Menu/TBX Enabled Demo/ShellNew_NewFileMenuTBX.dpr:
--------------------------------------------------------------------------------
1 | program ShellNew_NewFileMenuTBX;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.RES}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/ShellNew (New File) Menu/TBX Enabled Demo/ShellNew_NewFileMenuTBX.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/ShellNew (New File) Menu/TBX Enabled Demo/ShellNew_NewFileMenuTBX.res
--------------------------------------------------------------------------------
/Demos/ShellNew (New File) Menu/TBX Enabled Demo/Unit1.pas:
--------------------------------------------------------------------------------
1 | unit Unit1;
2 |
3 | interface
4 |
5 | uses
6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 | StdCtrls, VirtualExplorerTree, VirtualTrees, ExtCtrls, Menus,
8 | VirtualShellUtilities, VirtualShellNewMenu,
9 | TB2Dock, TB2Toolbar, TB2Item, TBX;
10 |
11 | type
12 | TForm1 = class(TForm)
13 | RadioGroupFileName: TRadioGroup;
14 | Edit1: TEdit;
15 | ExplorerListview1: TVirtualExplorerListview;
16 | GroupBox1: TGroupBox;
17 | CheckBox1: TCheckBox;
18 | CheckBox2: TCheckBox;
19 | CheckBox3: TCheckBox;
20 | CheckBox4: TCheckBox;
21 | CheckBox5: TCheckBox;
22 | Label2: TLabel;
23 | VirtualShellNewMenu1: TVirtualShellNewMenu;
24 | TBXToolbar1: TTBXToolbar;
25 | TBXSubmenuItem1: TTBXSubmenuItem;
26 | procedure VirtualShellNewMenu1AddMenuItem(Sender: TPopupMenu;
27 | const NewMenuItem: TVirtualShellNewItem; var Allow: Boolean);
28 | procedure VirtualShellNewMenu1CreateNewFile(Sender: TMenu;
29 | const NewMenuItem: TVirtualShellNewItem; var Path, FileName: String;
30 | var Allow: Boolean);
31 | procedure CheckBox1Click(Sender: TObject);
32 | procedure CheckBox2Click(Sender: TObject);
33 | procedure CheckBox3Click(Sender: TObject);
34 | procedure CheckBox4Click(Sender: TObject);
35 | procedure CheckBox5Click(Sender: TObject);
36 | procedure FormShow(Sender: TObject);
37 | procedure TBXSubmenuItem1Popup(Sender: TTBCustomItem; FromLink: Boolean);
38 | private
39 | { Private declarations }
40 | public
41 | { Public declarations }
42 | procedure Loaded; override;
43 | end;
44 |
45 | var
46 | Form1: TForm1;
47 |
48 | implementation
49 |
50 | {$R *.DFM}
51 |
52 | procedure TForm1.VirtualShellNewMenu1AddMenuItem(Sender: TPopupMenu;
53 | const NewMenuItem: TVirtualShellNewItem; var Allow: Boolean);
54 | begin
55 | { Here Menu Items can be filtered dynamiclly }
56 | end;
57 |
58 | procedure TForm1.VirtualShellNewMenu1CreateNewFile(Sender: TMenu;
59 | const NewMenuItem: TVirtualShellNewItem; var Path, FileName: String;
60 | var Allow: Boolean);
61 | begin
62 | { Here we MUST return the path the file is to be created in }
63 | Path := ExplorerListview1.RootFolderNamespace.NameForParsing;
64 | if RadioGroupFileName.ItemIndex = 1 then
65 | FileName := Edit1.Text;
66 | end;
67 |
68 | procedure TForm1.CheckBox1Click(Sender: TObject);
69 | begin
70 | VirtualShellNewMenu1.CombineLikeItems := CheckBox1.Checked;
71 | end;
72 |
73 | procedure TForm1.CheckBox2Click(Sender: TObject);
74 | begin
75 | VirtualShellNewMenu1.UseShellImages := CheckBox2.Checked;
76 | end;
77 |
78 | procedure TForm1.CheckBox3Click(Sender: TObject);
79 | begin
80 | VirtualShellNewMenu1.WarnOnOverwrite := CheckBox3.Checked;
81 | end;
82 |
83 | procedure TForm1.Loaded;
84 | begin
85 | inherited;
86 | CheckBox3.Checked := VirtualShellNewMenu1.WarnOnOverwrite;
87 | CheckBox2.Checked := VirtualShellNewMenu1.UseShellImages;
88 | CheckBox1.Checked := VirtualShellNewMenu1.CombineLikeItems;
89 | CheckBox4.Checked := VirtualShellNewMenu1.NewFolderItem;
90 | CheckBox5.Checked := VirtualShellNewMenu1.NewShortcutItem;
91 | end;
92 |
93 | procedure TForm1.TBXSubmenuItem1Popup(Sender: TTBCustomItem; FromLink: Boolean);
94 | begin
95 | // Just call this method when the SubmenuItem is about to be showed.
96 | // To add unicode support use TSpTBXItem instead:
97 | // VirtualSendToMenu1.Populate_TB2000(Sender, TSpTBXItem);
98 | VirtualShellNewMenu1.Populate_TB2000(Sender, TTBXItem);
99 | end;
100 |
101 | procedure TForm1.FormShow(Sender: TObject);
102 | begin
103 | Application.HintPause := 10000;
104 | ExplorerListview1.Active := True;
105 | end;
106 |
107 | procedure TForm1.CheckBox4Click(Sender: TObject);
108 | begin
109 | VirtualShellNewMenu1.NewFolderItem := CheckBox4.Checked;
110 | end;
111 |
112 | procedure TForm1.CheckBox5Click(Sender: TObject);
113 | begin
114 | VirtualShellNewMenu1.NewShortcutItem := CheckBox5.Checked;
115 | end;
116 |
117 | end.
118 |
--------------------------------------------------------------------------------
/Demos/ShellNew (New File) Menu/Unit1.pas:
--------------------------------------------------------------------------------
1 | unit Unit1;
2 |
3 | interface
4 |
5 | uses
6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 | StdCtrls, VirtualExplorerTree, VirtualTrees, ExtCtrls, Menus,
8 | MPShellUtilities, VirtualShellNewMenu;
9 |
10 | type
11 | TForm1 = class(TForm)
12 | Button1: TButton;
13 | RadioGroupFileName: TRadioGroup;
14 | Edit1: TEdit;
15 | ExplorerListview1: TVirtualExplorerListview;
16 | GroupBox1: TGroupBox;
17 | CheckBox1: TCheckBox;
18 | CheckBox2: TCheckBox;
19 | CheckBox3: TCheckBox;
20 | CheckBox4: TCheckBox;
21 | CheckBox5: TCheckBox;
22 | Label2: TLabel;
23 | VirtualShellNewMenu1: TVirtualShellNewMenu;
24 | procedure Button1Click(Sender: TObject);
25 | procedure VirtualShellNewMenu1AddMenuItem(Sender: TPopupMenu;
26 | const NewMenuItem: TVirtualShellNewItem; var Allow: Boolean);
27 | procedure VirtualShellNewMenu1CreateNewFile(Sender: TMenu;
28 | const NewMenuItem: TVirtualShellNewItem; var Path, FileName: String;
29 | var Allow: Boolean);
30 | procedure CheckBox1Click(Sender: TObject);
31 | procedure CheckBox2Click(Sender: TObject);
32 | procedure CheckBox3Click(Sender: TObject);
33 | procedure CheckBox4Click(Sender: TObject);
34 | procedure CheckBox5Click(Sender: TObject);
35 | procedure FormShow(Sender: TObject);
36 | private
37 | { Private declarations }
38 | public
39 | { Public declarations }
40 | procedure Loaded; override;
41 | end;
42 |
43 | var
44 | Form1: TForm1;
45 |
46 | implementation
47 |
48 | {$R *.DFM}
49 |
50 | procedure TForm1.Button1Click(Sender: TObject);
51 | var
52 | Pt: TPoint;
53 | begin
54 | Pt.x := Button1.Left;
55 | Pt.y := Button1.Top + Button1.Height;
56 | Pt := ClientToScreen(Pt);
57 | VirtualShellNewMenu1.Popup(Pt.x, Pt.y);
58 | end;
59 |
60 | procedure TForm1.VirtualShellNewMenu1AddMenuItem(Sender: TPopupMenu;
61 | const NewMenuItem: TVirtualShellNewItem; var Allow: Boolean);
62 | begin
63 | { Here Menu Items can be filtered dynamiclly }
64 | end;
65 |
66 | procedure TForm1.VirtualShellNewMenu1CreateNewFile(Sender: TMenu;
67 | const NewMenuItem: TVirtualShellNewItem; var Path, FileName: String;
68 | var Allow: Boolean);
69 | begin
70 | { Here we MUST return the path the file is to be created in }
71 | Path := ExplorerListview1.RootFolderNamespace.NameForParsing;
72 | if RadioGroupFileName.ItemIndex = 1 then
73 | FileName := Edit1.Text;
74 | end;
75 |
76 | procedure TForm1.CheckBox1Click(Sender: TObject);
77 | begin
78 | VirtualShellNewMenu1.CombineLikeItems := CheckBox1.Checked;
79 | end;
80 |
81 | procedure TForm1.CheckBox2Click(Sender: TObject);
82 | begin
83 | VirtualShellNewMenu1.UseShellImages := CheckBox2.Checked;
84 | end;
85 |
86 | procedure TForm1.CheckBox3Click(Sender: TObject);
87 | begin
88 | VirtualShellNewMenu1.WarnOnOverwrite := CheckBox3.Checked;
89 | end;
90 |
91 | procedure TForm1.Loaded;
92 | begin
93 | inherited;
94 | CheckBox3.Checked := VirtualShellNewMenu1.WarnOnOverwrite;
95 | CheckBox2.Checked := VirtualShellNewMenu1.UseShellImages;
96 | CheckBox1.Checked := VirtualShellNewMenu1.CombineLikeItems;
97 | CheckBox4.Checked := VirtualShellNewMenu1.NewFolderItem;
98 | CheckBox5.Checked := VirtualShellNewMenu1.NewShortcutItem;
99 | end;
100 |
101 | procedure TForm1.FormShow(Sender: TObject);
102 | begin
103 | Application.HintPause := 10000;
104 | ExplorerListview1.Active := True;
105 | end;
106 |
107 | procedure TForm1.CheckBox4Click(Sender: TObject);
108 | begin
109 | VirtualShellNewMenu1.NewFolderItem := CheckBox4.Checked;
110 | end;
111 |
112 | procedure TForm1.CheckBox5Click(Sender: TObject);
113 | begin
114 | VirtualShellNewMenu1.NewShortcutItem := CheckBox5.Checked;
115 | end;
116 |
117 | end.
118 |
--------------------------------------------------------------------------------
/Demos/ShellToolbars/ShellToolbars.dpr:
--------------------------------------------------------------------------------
1 | program ShellToolbars;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.RES}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/ShellToolbars/ShellToolbars.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/ShellToolbars/ShellToolbars.res
--------------------------------------------------------------------------------
/Demos/User Data/Unit1.dfm:
--------------------------------------------------------------------------------
1 | object Form1: TForm1
2 | Left = 248
3 | Top = 141
4 | Width = 669
5 | Height = 480
6 | Caption = 'Form1'
7 | Color = clBtnFace
8 | Font.Charset = DEFAULT_CHARSET
9 | Font.Color = clWindowText
10 | Font.Height = -11
11 | Font.Name = 'MS Shell Dlg 2'
12 | Font.Style = []
13 | OldCreateOrder = False
14 | DesignSize = (
15 | 661
16 | 446)
17 | PixelsPerInch = 96
18 | TextHeight = 13
19 | object Label1: TLabel
20 | Left = 352
21 | Top = 56
22 | Width = 158
23 | Height = 13
24 | Caption = 'String To Assign To User Storage'
25 | end
26 | object Label2: TLabel
27 | Left = 352
28 | Top = 168
29 | Width = 289
30 | Height = 13
31 | Anchors = [akLeft, akTop, akRight]
32 | AutoSize = False
33 | end
34 | object VET: TVirtualExplorerTree
35 | Left = 0
36 | Top = 0
37 | Width = 329
38 | Height = 446
39 | Active = True
40 | Align = alLeft
41 | ColumnDetails = cdUser
42 | ColumnMenuItemCount = 8
43 | DefaultNodeHeight = 17
44 | DragHeight = 250
45 | DragWidth = 150
46 | FileObjects = [foFolders, foNonFolders]
47 | FileSizeFormat = fsfExplorer
48 | FileSort = fsFileType
49 | Header.AutoSizeIndex = 0
50 | Header.Font.Charset = DEFAULT_CHARSET
51 | Header.Font.Color = clWindowText
52 | Header.Font.Height = -11
53 | Header.Font.Name = 'MS Shell Dlg 2'
54 | Header.Font.Style = []
55 | Header.MainColumn = -1
56 | Header.Options = [hoColumnResize, hoDrag]
57 | HintMode = hmHint
58 | ParentColor = False
59 | RootFolder = rfDesktop
60 | TabOrder = 0
61 | TabStop = True
62 | TreeOptions.PaintOptions = [toShowButtons, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages]
63 | TreeOptions.VETShellOptions = [toRightAlignSizeColumn, toContextMenus]
64 | TreeOptions.VETSyncOptions = [toCollapseTargetFirst, toExpandTarget, toSelectTarget]
65 | TreeOptions.VETMiscOptions = [toBrowseExecuteFolder, toBrowseExecuteFolderShortcut, toExecuteOnDblClk]
66 | TreeOptions.VETImageOptions = [toImages]
67 | Columns = <>
68 | end
69 | object Button1: TButton
70 | Left = 344
71 | Top = 24
72 | Width = 217
73 | Height = 25
74 | Caption = 'Store String to Selected Node'
75 | TabOrder = 1
76 | OnClick = Button1Click
77 | end
78 | object Edit1: TEdit
79 | Left = 376
80 | Top = 72
81 | Width = 201
82 | Height = 21
83 | TabOrder = 2
84 | Text = 'Edit1'
85 | end
86 | object Button2: TButton
87 | Left = 344
88 | Top = 128
89 | Width = 217
90 | Height = 25
91 | Caption = 'Read User Data from Selected Node'
92 | TabOrder = 3
93 | OnClick = Button2Click
94 | end
95 | object Button3: TButton
96 | Left = 352
97 | Top = 224
98 | Width = 209
99 | Height = 25
100 | Caption = 'Delete User Data from Selected Node'
101 | TabOrder = 4
102 | OnClick = Button3Click
103 | end
104 | end
105 |
--------------------------------------------------------------------------------
/Demos/User Data/Unit1.pas:
--------------------------------------------------------------------------------
1 | unit Unit1;
2 |
3 | interface
4 |
5 | uses
6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
7 | Dialogs, StdCtrls, VirtualTrees, VirtualExplorerTree, MPShellUtilities;
8 |
9 | type
10 | TForm1 = class(TForm)
11 | VET: TVirtualExplorerTree;
12 | Button1: TButton;
13 | Edit1: TEdit;
14 | Label1: TLabel;
15 | Button2: TButton;
16 | Label2: TLabel;
17 | Button3: TButton;
18 | procedure Button1Click(Sender: TObject);
19 | procedure Button2Click(Sender: TObject);
20 | procedure Button3Click(Sender: TObject);
21 | private
22 | { Private declarations }
23 | public
24 | { Public declarations }
25 | end;
26 |
27 |
28 | // User Defined Per node Storage override this and use the Storage class in VET or the Global
29 | TMyUserDataStorage = class(TUserDataStorage)
30 | private
31 | FUserString: string;
32 | public
33 | //You should override these 3 methods in your application:
34 | procedure LoadFromStream(S: TStream; Version: integer = VETStreamStorageVer; ReadVerFromStream: Boolean = False); override;
35 | procedure SaveToStream(S: TStream; Version: integer = VETStreamStorageVer; WriteVerToStream: Boolean = False); override;
36 | procedure Assign(Source: TPersistent); override;
37 |
38 | property UserString: string read FUserString write FUserString;
39 | end;
40 |
41 | var
42 | Form1: TForm1;
43 |
44 | implementation
45 |
46 | {$R *.dfm}
47 |
48 | { TMyUserDataStorage }
49 |
50 | procedure TMyUserDataStorage.Assign(Source: TPersistent);
51 | begin
52 | if Source is TMyUserDataStorage then
53 | UserString := TMyUserDataStorage(Source).UserString;
54 | inherited;
55 | end;
56 |
57 | procedure TMyUserDataStorage.LoadFromStream(S: TStream; Version: integer;
58 | ReadVerFromStream: Boolean);
59 | var
60 | Count: Integer;
61 | begin
62 | inherited;
63 | S.read(Count, SizeOf(Count));
64 | SetLength(FUserString, Count);
65 | S.read(PChar(FUserString)^, Count)
66 | end;
67 |
68 | procedure TMyUserDataStorage.SaveToStream(S: TStream; Version: integer;
69 | WriteVerToStream: Boolean);
70 | var
71 | Count: Integer;
72 | begin
73 | inherited;
74 | Count := Length(FUserString);
75 | S.Write(Count, SizeOf(Count));
76 | S.Write(PChar(FUserString)^, Count)
77 | end;
78 |
79 | procedure TForm1.Button1Click(Sender: TObject);
80 | var
81 | NS: TNamespace;
82 | SNode: TNodeSTorage;
83 | begin
84 | if VET.ValidateNamespace(VET.GetFirstSelected, NS) then
85 | begin
86 | SNode := VET.Storage.Store(NS.AbsolutePIDL, [stUser]);
87 | if Assigned(SNode) then
88 | begin
89 | SNode.Storage.UserData := TMyUserDataStorage.Create;
90 | TMyUserDataStorage(SNode.Storage.UserData).UserString := Edit1.Text
91 | end
92 | end
93 | end;
94 |
95 | procedure TForm1.Button2Click(Sender: TObject);
96 | var
97 | NS: TNamespace;
98 | SNode: TNodeSTorage;
99 | begin
100 | if VET.ValidateNamespace(VET.GetFirstSelected, NS) then
101 | if VET.Storage.Find(NS.AbsolutePIDL, [stUser], SNode) then
102 | Label2.Caption := TMyUserDataStorage( SNode.Storage.UserData).UserString
103 | else
104 | ShowMessage('No User Data has been assiged to this node')
105 | end;
106 |
107 | procedure TForm1.Button3Click(Sender: TObject);
108 | var
109 | NS: TNamespace;
110 | SNode: TNodeSTorage;
111 | begin
112 | if VET.ValidateNamespace(VET.GetFirstSelected, NS) then
113 | if VET.Storage.Find(NS.AbsolutePIDL, [stUser], SNode) then
114 | begin
115 | SNode.Storage.UserData.Free;
116 | SNode.Storage.UserData := nil;
117 | VET.Storage.Delete(NS.AbsolutePIDL, [stUser]);
118 | end else
119 | ShowMessage('No User Data has been assiged to this node')
120 | end;
121 |
122 | end.
123 |
--------------------------------------------------------------------------------
/Demos/User Data/UserDataProject.dpr:
--------------------------------------------------------------------------------
1 |
2 | program UserDataProject;
3 |
4 | uses
5 | Forms,
6 | Unit1 in 'Unit1.pas' {Form1};
7 |
8 | {$R *.res}
9 |
10 | begin
11 | Application.Initialize;
12 | Application.CreateForm(TForm1, Form1);
13 | Application.Run;
14 | end.
15 |
--------------------------------------------------------------------------------
/Demos/User Data/UserDataProject.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/User Data/UserDataProject.res
--------------------------------------------------------------------------------
/Demos/Vertical Icons Custom Draw/ProjectVerticalIcons.cfg:
--------------------------------------------------------------------------------
1 | -$A8
2 | -$B-
3 | -$C+
4 | -$D+
5 | -$E-
6 | -$F-
7 | -$G+
8 | -$H+
9 | -$I+
10 | -$J-
11 | -$K-
12 | -$L+
13 | -$M-
14 | -$N+
15 | -$O-
16 | -$P+
17 | -$Q-
18 | -$R-
19 | -$S-
20 | -$T-
21 | -$U-
22 | -$V+
23 | -$W-
24 | -$X+
25 | -$YD
26 | -$Z1
27 | -cg
28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
29 | -H+
30 | -W+
31 | -M
32 | -$M16384,1048576
33 | -K$00400000
34 | -LE"d:\borland\delphi7\Projects\Bpl"
35 | -LN"d:\borland\delphi7\Projects\Bpl"
36 | -w-UNSAFE_TYPE
37 | -w-UNSAFE_CODE
38 | -w-UNSAFE_CAST
39 |
--------------------------------------------------------------------------------
/Demos/Vertical Icons Custom Draw/ProjectVerticalIcons.dof:
--------------------------------------------------------------------------------
1 | [FileVersion]
2 | Version=7.0
3 | [Compiler]
4 | A=8
5 | B=0
6 | C=1
7 | D=1
8 | E=0
9 | F=0
10 | G=1
11 | H=1
12 | I=1
13 | J=0
14 | K=0
15 | L=1
16 | M=0
17 | N=1
18 | O=0
19 | P=1
20 | Q=0
21 | R=0
22 | S=0
23 | T=0
24 | U=0
25 | V=1
26 | W=0
27 | X=1
28 | Y=1
29 | Z=1
30 | ShowHints=1
31 | ShowWarnings=1
32 | UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
33 | NamespacePrefix=
34 | SymbolDeprecated=1
35 | SymbolLibrary=1
36 | SymbolPlatform=1
37 | UnitLibrary=1
38 | UnitPlatform=1
39 | UnitDeprecated=1
40 | HResultCompat=1
41 | HidingMember=1
42 | HiddenVirtual=1
43 | Garbage=1
44 | BoundsError=1
45 | ZeroNilCompat=1
46 | StringConstTruncated=1
47 | ForLoopVarVarPar=1
48 | TypedConstVarPar=1
49 | AsgToTypedConst=1
50 | CaseLabelRange=1
51 | ForVariable=1
52 | ConstructingAbstract=1
53 | ComparisonFalse=1
54 | ComparisonTrue=1
55 | ComparingSignedUnsigned=1
56 | CombiningSignedUnsigned=1
57 | UnsupportedConstruct=1
58 | FileOpen=1
59 | FileOpenUnitSrc=1
60 | BadGlobalSymbol=1
61 | DuplicateConstructorDestructor=1
62 | InvalidDirective=1
63 | PackageNoLink=1
64 | PackageThreadVar=1
65 | ImplicitImport=1
66 | HPPEMITIgnored=1
67 | NoRetVal=1
68 | UseBeforeDef=1
69 | ForLoopVarUndef=1
70 | UnitNameMismatch=1
71 | NoCFGFileFound=1
72 | MessageDirective=1
73 | ImplicitVariants=1
74 | UnicodeToLocale=1
75 | LocaleToUnicode=1
76 | ImagebaseMultiple=1
77 | SuspiciousTypecast=1
78 | PrivatePropAccessor=1
79 | UnsafeType=0
80 | UnsafeCode=0
81 | UnsafeCast=0
82 | [Linker]
83 | MapFile=0
84 | OutputObjs=0
85 | ConsoleApp=1
86 | DebugInfo=0
87 | RemoteSymbols=0
88 | MinStackSize=16384
89 | MaxStackSize=1048576
90 | ImageBase=4194304
91 | ExeDescription=
92 | [Directories]
93 | OutputDir=
94 | UnitOutputDir=
95 | PackageDLLOutputDir=
96 | PackageDCPOutputDir=
97 | SearchPath=
98 | Packages=vcl;rtl;vclx;indy;vclie;xmlrtl;inetdbbde;inet;inetdbxpress;dbrtl;soaprtl;dsnap;VclSmp;dbexpress;vcldb;dbxcds;inetdb;bdertl;vcldbx;adortl;teeui;teedb;tee;ibxpress;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOfficeXP;TntUnicodeVcl_R70;tb2k_d7;SpTBXLib_d7
99 | Conditionals=
100 | DebugSourceDirs=
101 | UsePackages=0
102 | [Parameters]
103 | RunParams=
104 | HostApplication=
105 | Launcher=
106 | UseLauncher=0
107 | DebugCWD=
108 | [Language]
109 | ActiveLang=
110 | ProjectLang=
111 | RootDir=D:\Borland\Delphi7\Bin\
112 | [Version Info]
113 | IncludeVerInfo=0
114 | AutoIncBuild=0
115 | MajorVer=1
116 | MinorVer=0
117 | Release=0
118 | Build=0
119 | Debug=0
120 | PreRelease=0
121 | Special=0
122 | Private=0
123 | DLL=0
124 | Locale=1033
125 | CodePage=1252
126 | [Version Info Keys]
127 | CompanyName=
128 | FileDescription=
129 | FileVersion=1.0.0.0
130 | InternalName=
131 | LegalCopyright=
132 | LegalTrademarks=
133 | OriginalFilename=
134 | ProductName=
135 | ProductVersion=1.0.0.0
136 | Comments=
137 | [Excluded Packages]
138 | d:\borland\delphi7\Projects\Bpl\ATViewerD7-UltraExplorer.bpl=ATViewer
139 |
--------------------------------------------------------------------------------
/Demos/Vertical Icons Custom Draw/ProjectVerticalIcons.dpr:
--------------------------------------------------------------------------------
1 | program ProjectVerticalIcons;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.res}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/Vertical Icons Custom Draw/ProjectVerticalIcons.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Vertical Icons Custom Draw/ProjectVerticalIcons.res
--------------------------------------------------------------------------------
/Demos/Vertical Icons Custom Draw/Unit1.dfm:
--------------------------------------------------------------------------------
1 | object Form1: TForm1
2 | Left = 522
3 | Top = 325
4 | Width = 829
5 | Height = 511
6 | Caption = 'Form1'
7 | Color = clBtnFace
8 | Font.Charset = DEFAULT_CHARSET
9 | Font.Color = clWindowText
10 | Font.Height = -11
11 | Font.Name = 'MS Sans Serif'
12 | Font.Style = []
13 | OldCreateOrder = False
14 | PixelsPerInch = 96
15 | TextHeight = 13
16 | object VirtualExplorerEasyListview1: TVirtualExplorerEasyListview
17 | Left = 0
18 | Top = 0
19 | Width = 813
20 | Height = 475
21 | Active = True
22 | Align = alClient
23 | CompressedFile.Color = clRed
24 | CompressedFile.Font.Charset = DEFAULT_CHARSET
25 | CompressedFile.Font.Color = clWindowText
26 | CompressedFile.Font.Height = -11
27 | CompressedFile.Font.Name = 'MS Sans Serif'
28 | CompressedFile.Font.Style = []
29 | DefaultSortColumn = 0
30 | EditManager.Font.Charset = DEFAULT_CHARSET
31 | EditManager.Font.Color = clWindowText
32 | EditManager.Font.Height = -11
33 | EditManager.Font.Name = 'MS Sans Serif'
34 | EditManager.Font.Style = []
35 | EncryptedFile.Color = 32832
36 | EncryptedFile.Font.Charset = DEFAULT_CHARSET
37 | EncryptedFile.Font.Color = clWindowText
38 | EncryptedFile.Font.Height = -11
39 | EncryptedFile.Font.Name = 'MS Sans Serif'
40 | EncryptedFile.Font.Style = []
41 | FileSizeFormat = vfsfDefault
42 | Grouped = False
43 | GroupingColumn = 0
44 | PaintInfoGroup.MarginBottom.CaptionIndent = 4
45 | PaintInfoGroup.MarginTop.Visible = False
46 | Sort.Algorithm = esaQuickSort
47 | Sort.AutoSort = True
48 | Selection.AlphaBlendSelRect = True
49 | Selection.EnableDragSelect = True
50 | Selection.MultiSelect = True
51 | TabOrder = 0
52 | ThumbsManager.StorageFilename = 'Thumbnails.album'
53 | OnCustomGrid = VirtualExplorerEasyListview1CustomGrid
54 | end
55 | end
56 |
--------------------------------------------------------------------------------
/Demos/Vertical Icons Custom Draw/Unit1.pas:
--------------------------------------------------------------------------------
1 | unit Unit1;
2 |
3 | interface
4 |
5 | uses
6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 | Dialogs, MPCommonObjects, EasyListview, VirtualExplorerEasyListview;
8 |
9 | type
10 | TForm1 = class(TForm)
11 | VirtualExplorerEasyListview1: TVirtualExplorerEasyListview;
12 | procedure VirtualExplorerEasyListview1CustomGrid(
13 | Sender: TCustomEasyListview; Group: TEasyGroup;
14 | ViewStyle: TEasyListStyle; var Grid: TEasyGridGroupClass);
15 | private
16 | { Private declarations }
17 | public
18 | { Public declarations }
19 | end;
20 |
21 | // Make a grid that is layed out like the List View but has the cell sizing of
22 | // the Icon View
23 | TVerticalIconGridGroup = class(TEasyGridListGroup)
24 | protected
25 | function GetCellSize: TEasyCellSize; override;
26 | end;
27 |
28 | var
29 | Form1: TForm1;
30 |
31 | implementation
32 |
33 | {$R *.dfm}
34 |
35 | type
36 | TCustomVirtualExplorerEasyListviewHack = class(TCustomVirtualExplorerEasyListview);
37 |
38 | { TVerticalIconGridGroup }
39 | function TVerticalIconGridGroup.GetCellSize: TEasyCellSize;
40 | begin
41 | Result := TCustomVirtualExplorerEasyListviewHack(OwnerListview).CellSizes.Icon;
42 | end;
43 |
44 | procedure TForm1.VirtualExplorerEasyListview1CustomGrid(
45 | Sender: TCustomEasyListview; Group: TEasyGroup;
46 | ViewStyle: TEasyListStyle; var Grid: TEasyGridGroupClass);
47 | begin
48 | // Map the Icon style to the Vertical Icon List Style
49 | if ViewStyle = elsIcon then
50 | Grid := TVerticalIconGridGroup;
51 | end;
52 |
53 | end.
54 |
--------------------------------------------------------------------------------
/Demos/Virtual Explorer/About.dfm:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Virtual Explorer/About.dfm
--------------------------------------------------------------------------------
/Demos/Virtual Explorer/About.pas:
--------------------------------------------------------------------------------
1 | unit About;
2 |
3 | interface
4 |
5 | uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
6 | Buttons, ExtCtrls, ShellAPI, Messages;
7 |
8 | type
9 | TAboutBox = class(TForm)
10 | Panel1: TPanel;
11 | ProgramIcon: TImage;
12 | ProductName: TLabel;
13 | Version: TLabel;
14 | OKButton: TButton;
15 | Label2: TLabel;
16 | Timer1: TTimer;
17 | Label3: TLabel;
18 | Label4: TLabel;
19 | Label5: TLabel;
20 | Label6: TLabel;
21 | Label1: TLabel;
22 | Label7: TLabel;
23 | procedure Timer1Timer(Sender: TObject);
24 | procedure FormShow(Sender: TObject);
25 | procedure FormHide(Sender: TObject);
26 | procedure Label3MouseDown(Sender: TObject; Button: TMouseButton;
27 | Shift: TShiftState; X, Y: Integer);
28 | procedure Label4MouseDown(Sender: TObject; Button: TMouseButton;
29 | Shift: TShiftState; X, Y: Integer);
30 | procedure Label5MouseDown(Sender: TObject; Button: TMouseButton;
31 | Shift: TShiftState; X, Y: Integer);
32 | procedure Label1MouseDown(Sender: TObject; Button: TMouseButton;
33 | Shift: TShiftState; X, Y: Integer);
34 | procedure Label7MouseDown(Sender: TObject; Button: TMouseButton;
35 | Shift: TShiftState; X, Y: Integer);
36 | private
37 | { Private declarations }
38 |
39 | public
40 | { Public declarations }
41 |
42 | end;
43 |
44 | var
45 | AboutBox: TAboutBox;
46 |
47 | implementation
48 |
49 | {$R *.DFM}
50 |
51 | procedure TAboutBox.Timer1Timer(Sender: TObject);
52 |
53 | function CheckURL(ALabel: TLabel): Boolean;
54 | begin
55 | if PtInRect(ALabel.ClientRect, ALabel.ScreenToClient(Mouse.CursorPos)) then
56 | begin
57 | Screen.Cursor := crHandPoint;
58 | ALabel.Font.Color := clBlue;
59 | ALabel.Font.Style := ALabel.Font.Style + [fsBold];
60 | Result := True;
61 | end else
62 | begin
63 | ALabel.Font.Color := clBlack;
64 | ALabel.Font.Style := ALabel.Font.Style - [fsBold];
65 | Result := False;
66 | end
67 | end;
68 |
69 | begin
70 | {$B+}
71 | if not (CheckURL(Label3) or CheckURL(Label4) or CheckURL(Label5) or CheckURL(Label1) or CheckURL(Label7)) then
72 | begin
73 | Screen.Cursor := crDefault;
74 | end;
75 | {$B-}
76 | end;
77 |
78 | procedure TAboutBox.FormShow(Sender: TObject);
79 | begin
80 | Timer1.Enabled := True;
81 | ProgramIcon.Picture.LoadFromFile('VST Logo 1.bmp');
82 | end;
83 |
84 | procedure TAboutBox.FormHide(Sender: TObject);
85 | begin
86 | Timer1.Enabled := False;
87 | ProgramIcon.Picture.Bitmap.ReleaseHandle;
88 | end;
89 |
90 | procedure TAboutBox.Label3MouseDown(Sender: TObject; Button: TMouseButton;
91 | Shift: TShiftState; X, Y: Integer);
92 | begin
93 | ShellExecute(Handle, 'open', 'http://Borland.com', '', '', SW_SHOWNORMAL);
94 | end;
95 |
96 | procedure TAboutBox.Label4MouseDown(Sender: TObject; Button: TMouseButton;
97 | Shift: TShiftState; X, Y: Integer);
98 | begin
99 | ShellExecute(Handle, 'open', 'http://www.lischke-online.de/VirtualTreeview.html', '', '', SW_SHOWNORMAL);
100 | end;
101 |
102 | procedure TAboutBox.Label5MouseDown(Sender: TObject; Button: TMouseButton;
103 | Shift: TShiftState; X, Y: Integer);
104 | begin
105 | ShellExecute(Handle, 'open', 'http://groups.yahoo.com/group/VirtualExplorerTree/', '', '', SW_SHOWNORMAL);
106 | end;
107 |
108 | procedure TAboutBox.Label1MouseDown(Sender: TObject; Button: TMouseButton;
109 | Shift: TShiftState; X, Y: Integer);
110 | begin
111 | ShellExecute(Handle, 'open', 'http://www.delphi-gems.com/ThemeManager.html', '', '', SW_SHOWNORMAL);
112 | end;
113 |
114 | procedure TAboutBox.Label7MouseDown(Sender: TObject; Button: TMouseButton;
115 | Shift: TShiftState; X, Y: Integer);
116 | begin
117 | ShellExecute(Handle, 'open', 'mailto: jimdk@mindspring.com', '', '', SW_SHOWNORMAL);
118 | end;
119 |
120 | end.
121 |
122 |
--------------------------------------------------------------------------------
/Demos/Virtual Explorer/VST Logo 1.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Virtual Explorer/VST Logo 1.bmp
--------------------------------------------------------------------------------
/Demos/Virtual Explorer/VirtualExplorer.cfg:
--------------------------------------------------------------------------------
1 | -$A8
2 | -$B-
3 | -$C+
4 | -$D+
5 | -$E-
6 | -$F-
7 | -$G+
8 | -$H+
9 | -$I+
10 | -$J-
11 | -$K-
12 | -$L+
13 | -$M-
14 | -$N+
15 | -$O-
16 | -$P+
17 | -$Q-
18 | -$R-
19 | -$S-
20 | -$T-
21 | -$U-
22 | -$V+
23 | -$W-
24 | -$X+
25 | -$YD
26 | -$Z1
27 | -cg
28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
29 | -H+
30 | -W+
31 | -M
32 | -$M16384,1048576
33 | -K$00400000
34 | -LE"d:\borland\delphi7\Projects\Bpl"
35 | -LN"d:\borland\delphi7\Projects\Bpl"
36 | -w-UNSAFE_TYPE
37 | -w-UNSAFE_CODE
38 | -w-UNSAFE_CAST
39 |
--------------------------------------------------------------------------------
/Demos/Virtual Explorer/VirtualExplorer.dof:
--------------------------------------------------------------------------------
1 | [FileVersion]
2 | Version=7.0
3 | [Compiler]
4 | A=8
5 | B=0
6 | C=1
7 | D=1
8 | E=0
9 | F=0
10 | G=1
11 | H=1
12 | I=1
13 | J=0
14 | K=0
15 | L=1
16 | M=0
17 | N=1
18 | O=0
19 | P=1
20 | Q=0
21 | R=0
22 | S=0
23 | T=0
24 | U=0
25 | V=1
26 | W=0
27 | X=1
28 | Y=1
29 | Z=1
30 | ShowHints=1
31 | ShowWarnings=1
32 | UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
33 | NamespacePrefix=
34 | SymbolDeprecated=1
35 | SymbolLibrary=1
36 | SymbolPlatform=1
37 | UnitLibrary=1
38 | UnitPlatform=1
39 | UnitDeprecated=1
40 | HResultCompat=1
41 | HidingMember=1
42 | HiddenVirtual=1
43 | Garbage=1
44 | BoundsError=1
45 | ZeroNilCompat=1
46 | StringConstTruncated=1
47 | ForLoopVarVarPar=1
48 | TypedConstVarPar=1
49 | AsgToTypedConst=1
50 | CaseLabelRange=1
51 | ForVariable=1
52 | ConstructingAbstract=1
53 | ComparisonFalse=1
54 | ComparisonTrue=1
55 | ComparingSignedUnsigned=1
56 | CombiningSignedUnsigned=1
57 | UnsupportedConstruct=1
58 | FileOpen=1
59 | FileOpenUnitSrc=1
60 | BadGlobalSymbol=1
61 | DuplicateConstructorDestructor=1
62 | InvalidDirective=1
63 | PackageNoLink=1
64 | PackageThreadVar=1
65 | ImplicitImport=1
66 | HPPEMITIgnored=1
67 | NoRetVal=1
68 | UseBeforeDef=1
69 | ForLoopVarUndef=1
70 | UnitNameMismatch=1
71 | NoCFGFileFound=1
72 | MessageDirective=1
73 | ImplicitVariants=1
74 | UnicodeToLocale=1
75 | LocaleToUnicode=1
76 | ImagebaseMultiple=1
77 | SuspiciousTypecast=1
78 | PrivatePropAccessor=1
79 | UnsafeType=0
80 | UnsafeCode=0
81 | UnsafeCast=0
82 | [Linker]
83 | MapFile=0
84 | OutputObjs=0
85 | ConsoleApp=1
86 | DebugInfo=0
87 | RemoteSymbols=0
88 | MinStackSize=16384
89 | MaxStackSize=1048576
90 | ImageBase=4194304
91 | ExeDescription=
92 | [Directories]
93 | OutputDir=
94 | UnitOutputDir=
95 | PackageDLLOutputDir=
96 | PackageDCPOutputDir=
97 | SearchPath=
98 | Packages=vcl;rtl;vclx;indy;vclie;xmlrtl;inetdbbde;inet;inetdbxpress;dbrtl;soaprtl;dsnap;VclSmp;dbexpress;vcldb;dbxcds;inetdb;bdertl;vcldbx;adortl;teeui;teedb;tee;ibxpress;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOfficeXP;TntUnicodeVcl_R70;tb2k_d7;SpTBXLib_d7
99 | Conditionals=
100 | DebugSourceDirs=
101 | UsePackages=0
102 | [Parameters]
103 | RunParams=
104 | HostApplication=
105 | Launcher=
106 | UseLauncher=0
107 | DebugCWD=
108 | [Language]
109 | ActiveLang=
110 | ProjectLang=
111 | RootDir=D:\Borland\Delphi7\Bin\
112 | [Version Info]
113 | IncludeVerInfo=0
114 | AutoIncBuild=0
115 | MajorVer=1
116 | MinorVer=0
117 | Release=0
118 | Build=0
119 | Debug=0
120 | PreRelease=0
121 | Special=0
122 | Private=0
123 | DLL=0
124 | Locale=1033
125 | CodePage=1252
126 | [Version Info Keys]
127 | CompanyName=
128 | FileDescription=
129 | FileVersion=1.0.0.0
130 | InternalName=
131 | LegalCopyright=
132 | LegalTrademarks=
133 | OriginalFilename=
134 | ProductName=
135 | ProductVersion=1.0.0.0
136 | Comments=
137 |
--------------------------------------------------------------------------------
/Demos/Virtual Explorer/VirtualExplorer.dpr:
--------------------------------------------------------------------------------
1 | program VirtualExplorer;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1},
6 | About in 'About.pas' {AboutBox};
7 |
8 | {$R *.RES}
9 |
10 | begin
11 | Application.Initialize;
12 | Application.Title := 'Virtual Explorer Demo for VirtualShellTools';
13 | Application.CreateForm(TForm1, Form1);
14 | Application.CreateForm(TAboutBox, AboutBox);
15 | Application.Run;
16 | end.
17 |
--------------------------------------------------------------------------------
/Demos/Virtual Explorer/VirtualExplorer.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Virtual Explorer/VirtualExplorer.res
--------------------------------------------------------------------------------
/Demos/VirtualDropStack/DropStackProject.cfg:
--------------------------------------------------------------------------------
1 | -$A8
2 | -$B-
3 | -$C+
4 | -$D+
5 | -$E-
6 | -$F-
7 | -$G+
8 | -$H+
9 | -$I+
10 | -$J-
11 | -$K-
12 | -$L+
13 | -$M-
14 | -$N+
15 | -$O-
16 | -$P+
17 | -$Q-
18 | -$R-
19 | -$S-
20 | -$T-
21 | -$U-
22 | -$V+
23 | -$W-
24 | -$X+
25 | -$YD
26 | -$Z1
27 | -cg
28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
29 | -H+
30 | -W+
31 | -M
32 | -$M16384,1048576
33 | -K$00400000
34 | -LE"d:\borland\delphi7\Projects\Bpl"
35 | -LN"d:\borland\delphi7\Projects\Bpl"
36 | -w-UNSAFE_TYPE
37 | -w-UNSAFE_CODE
38 | -w-UNSAFE_CAST
39 |
--------------------------------------------------------------------------------
/Demos/VirtualDropStack/DropStackProject.dof:
--------------------------------------------------------------------------------
1 | [FileVersion]
2 | Version=7.0
3 | [Compiler]
4 | A=8
5 | B=0
6 | C=1
7 | D=1
8 | E=0
9 | F=0
10 | G=1
11 | H=1
12 | I=1
13 | J=0
14 | K=0
15 | L=1
16 | M=0
17 | N=1
18 | O=0
19 | P=1
20 | Q=0
21 | R=0
22 | S=0
23 | T=0
24 | U=0
25 | V=1
26 | W=0
27 | X=1
28 | Y=1
29 | Z=1
30 | ShowHints=1
31 | ShowWarnings=1
32 | UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
33 | NamespacePrefix=
34 | SymbolDeprecated=1
35 | SymbolLibrary=1
36 | SymbolPlatform=1
37 | UnitLibrary=1
38 | UnitPlatform=1
39 | UnitDeprecated=1
40 | HResultCompat=1
41 | HidingMember=1
42 | HiddenVirtual=1
43 | Garbage=1
44 | BoundsError=1
45 | ZeroNilCompat=1
46 | StringConstTruncated=1
47 | ForLoopVarVarPar=1
48 | TypedConstVarPar=1
49 | AsgToTypedConst=1
50 | CaseLabelRange=1
51 | ForVariable=1
52 | ConstructingAbstract=1
53 | ComparisonFalse=1
54 | ComparisonTrue=1
55 | ComparingSignedUnsigned=1
56 | CombiningSignedUnsigned=1
57 | UnsupportedConstruct=1
58 | FileOpen=1
59 | FileOpenUnitSrc=1
60 | BadGlobalSymbol=1
61 | DuplicateConstructorDestructor=1
62 | InvalidDirective=1
63 | PackageNoLink=1
64 | PackageThreadVar=1
65 | ImplicitImport=1
66 | HPPEMITIgnored=1
67 | NoRetVal=1
68 | UseBeforeDef=1
69 | ForLoopVarUndef=1
70 | UnitNameMismatch=1
71 | NoCFGFileFound=1
72 | MessageDirective=1
73 | ImplicitVariants=1
74 | UnicodeToLocale=1
75 | LocaleToUnicode=1
76 | ImagebaseMultiple=1
77 | SuspiciousTypecast=1
78 | PrivatePropAccessor=1
79 | UnsafeType=0
80 | UnsafeCode=0
81 | UnsafeCast=0
82 | [Linker]
83 | MapFile=0
84 | OutputObjs=0
85 | ConsoleApp=1
86 | DebugInfo=0
87 | RemoteSymbols=0
88 | MinStackSize=16384
89 | MaxStackSize=1048576
90 | ImageBase=4194304
91 | ExeDescription=
92 | [Directories]
93 | OutputDir=
94 | UnitOutputDir=
95 | PackageDLLOutputDir=
96 | PackageDCPOutputDir=
97 | SearchPath=
98 | Packages=vcl;rtl;vclx;indy;vclie;xmlrtl;inetdbbde;inet;inetdbxpress;dbrtl;soaprtl;dsnap;VclSmp;dbexpress;vcldb;dbxcds;inetdb;bdertl;vcldbx;adortl;teeui;teedb;tee;ibxpress;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOfficeXP;TntUnicodeVcl_R70;tb2k_d7;SpTBXLib_d7
99 | Conditionals=
100 | DebugSourceDirs=
101 | UsePackages=0
102 | [Parameters]
103 | RunParams=
104 | HostApplication=
105 | Launcher=
106 | UseLauncher=0
107 | DebugCWD=
108 | [Language]
109 | ActiveLang=
110 | ProjectLang=
111 | RootDir=D:\Borland\Delphi7\Bin\
112 | [Version Info]
113 | IncludeVerInfo=0
114 | AutoIncBuild=0
115 | MajorVer=1
116 | MinorVer=0
117 | Release=0
118 | Build=0
119 | Debug=0
120 | PreRelease=0
121 | Special=0
122 | Private=0
123 | DLL=0
124 | Locale=1033
125 | CodePage=1252
126 | [Version Info Keys]
127 | CompanyName=
128 | FileDescription=
129 | FileVersion=1.0.0.0
130 | InternalName=
131 | LegalCopyright=
132 | LegalTrademarks=
133 | OriginalFilename=
134 | ProductName=
135 | ProductVersion=1.0.0.0
136 | Comments=
137 |
--------------------------------------------------------------------------------
/Demos/VirtualDropStack/DropStackProject.dpr:
--------------------------------------------------------------------------------
1 | program DropStackProject;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.res}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/VirtualDropStack/DropStackProject.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/VirtualDropStack/DropStackProject.res
--------------------------------------------------------------------------------
/Demos/VirtualDropStack/Unit1.pas:
--------------------------------------------------------------------------------
1 | unit Unit1;
2 |
3 | interface
4 |
5 | uses
6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 | Dialogs, StdCtrls, MPCommonObjects, EasyListview,
8 | VirtualExplorerEasyListview, ExtCtrls;
9 |
10 | type
11 | TForm1 = class(TForm)
12 | Panel1: TPanel;
13 | VirtualExplorerEasyListview1: TVirtualExplorerEasyListview;
14 | Label1: TLabel;
15 | Label2: TLabel;
16 | Label3: TLabel;
17 | Label4: TLabel;
18 | Label5: TLabel;
19 | Panel2: TPanel;
20 | CheckBox1: TCheckBox;
21 | Button1: TButton;
22 | ComboBox1: TComboBox;
23 | Splitter1: TSplitter;
24 | VirtualDropStack1: TVirtualDropStack;
25 | procedure CheckBox1Click(Sender: TObject);
26 | procedure Button1Click(Sender: TObject);
27 | procedure FormShow(Sender: TObject);
28 | procedure ComboBox1Change(Sender: TObject);
29 | private
30 | { Private declarations }
31 | public
32 | { Public declarations }
33 | end;
34 |
35 | var
36 | Form1: TForm1;
37 |
38 | implementation
39 |
40 | {$R *.dfm}
41 |
42 | procedure TForm1.CheckBox1Click(Sender: TObject);
43 | begin
44 | VirtualDropStack1.ShowHint := True;
45 | end;
46 |
47 | procedure TForm1.Button1Click(Sender: TObject);
48 | begin
49 | VirtualDropStack1.Items.Clear
50 | end;
51 |
52 | procedure TForm1.FormShow(Sender: TObject);
53 | begin
54 | ComboBox1.ItemIndex := 0;
55 | end;
56 |
57 | procedure TForm1.ComboBox1Change(Sender: TObject);
58 | begin
59 | VirtualDropStack1.View := TEasyListStyle(ComboBox1.ItemIndex)
60 | end;
61 |
62 | end.
63 |
--------------------------------------------------------------------------------
/Demos/VirtualEasyListModeView/EasyListModeViewProjectGroup.bpg:
--------------------------------------------------------------------------------
1 | #------------------------------------------------------------------------------
2 | VERSION = BWS.01
3 | #------------------------------------------------------------------------------
4 | !ifndef ROOT
5 | ROOT = $(MAKEDIR)\..
6 | !endif
7 | #------------------------------------------------------------------------------
8 | MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
9 | DCC = $(ROOT)\bin\dcc32.exe $**
10 | BRCC = $(ROOT)\bin\brcc32.exe $**
11 | #------------------------------------------------------------------------------
12 | PROJECTS = EasyListviewD7.bpl EasyListviewD7D.bpl VirtualShellToolsD7.bpl \
13 | VirtualShellToolsD7D.bpl VirtualExplorerListModeViewProject.exe
14 | #------------------------------------------------------------------------------
15 | default: $(PROJECTS)
16 | #------------------------------------------------------------------------------
17 |
18 | VirtualExplorerListModeViewProject.exe: VirtualExplorerListModeViewProject.dpr
19 | $(DCC)
20 |
21 | EasyListviewD7.bpl: ..\..\..\EasyListview\Delphi\EasyListviewD7.dpk
22 | $(DCC)
23 |
24 | EasyListviewD7D.bpl: ..\..\..\EasyListview\Delphi\EasyListviewD7D.dpk
25 | $(DCC)
26 |
27 | VirtualShellToolsD7.bpl: ..\..\Delphi\VirtualShellToolsD7.dpk
28 | $(DCC)
29 |
30 | VirtualShellToolsD7D.bpl: ..\..\Delphi\VirtualShellToolsD7D.dpk
31 | $(DCC)
32 |
33 |
34 |
--------------------------------------------------------------------------------
/Demos/VirtualEasyListModeView/Unit1.dfm:
--------------------------------------------------------------------------------
1 | object Form1: TForm1
2 | Left = 372
3 | Top = 233
4 | Width = 696
5 | Height = 480
6 | Caption = 'Form1'
7 | Color = clWindow
8 | Font.Charset = DEFAULT_CHARSET
9 | Font.Color = clWindowText
10 | Font.Height = -11
11 | Font.Name = 'MS Shell Dlg 2'
12 | Font.Style = []
13 | OldCreateOrder = False
14 | OnShow = FormShow
15 | PixelsPerInch = 96
16 | TextHeight = 13
17 | object VirtualExplorerCombobox1: TVirtualExplorerCombobox
18 | Left = 0
19 | Top = 41
20 | Width = 680
21 | Active = True
22 | Align = alTop
23 | TabOrder = 0
24 | Path = 'VirtualExplorerCombobox1'
25 | TextType = ecbtFullPath
26 | end
27 | object VirtualColumnModeView1: TVirtualColumnModeView
28 | Left = 0
29 | Top = 64
30 | Width = 680
31 | Height = 380
32 | HorzScrollBar.Tracking = True
33 | VertScrollBar.Smooth = True
34 | VertScrollBar.Tracking = True
35 | Align = alClient
36 | ParentColor = False
37 | TabOrder = 1
38 | ExplorerCombobox = VirtualExplorerCombobox1
39 | GroupingColumn = 0
40 | SmoothScrollDelta = 0
41 | end
42 | object Panel1: TPanel
43 | Left = 0
44 | Top = 0
45 | Width = 680
46 | Height = 41
47 | Align = alTop
48 | TabOrder = 2
49 | object CheckBox1: TCheckBox
50 | Left = 16
51 | Top = 8
52 | Width = 97
53 | Height = 17
54 | Caption = 'Active'
55 | TabOrder = 0
56 | OnClick = CheckBox1Click
57 | end
58 | end
59 | end
60 |
--------------------------------------------------------------------------------
/Demos/VirtualEasyListModeView/Unit1.pas:
--------------------------------------------------------------------------------
1 | unit Unit1;
2 |
3 | interface
4 |
5 | uses
6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
7 | Dialogs, ExtCtrls, VirtualExplorerEasyListModeview, VirtualTrees,
8 | VirtualExplorerTree, StdCtrls, ComCtrls, MPCommonObjects, EasyListview,
9 | VirtualExplorerEasyListview;
10 |
11 | type
12 | TForm1 = class(TForm)
13 | VirtualExplorerCombobox1: TVirtualExplorerCombobox;
14 | VirtualColumnModeView1: TVirtualColumnModeView;
15 | Panel1: TPanel;
16 | CheckBox1: TCheckBox;
17 | procedure CheckBox1Click(Sender: TObject);
18 | procedure VirtualExplorerCombobox1Change(Sender: TObject);
19 | procedure FormShow(Sender: TObject);
20 | private
21 | { Private declarations }
22 | public
23 | { Public declarations }
24 | end;
25 |
26 | var
27 | Form1: TForm1;
28 |
29 | implementation
30 |
31 | {$R *.dfm}
32 |
33 | procedure TForm1.CheckBox1Click(Sender: TObject);
34 | begin
35 | VirtualColumnModeView1.Active := CheckBox1.Checked
36 | end;
37 |
38 | procedure TForm1.VirtualExplorerCombobox1Change(Sender: TObject);
39 | begin
40 | VirtualColumnModeView1.Path := VirtualExplorerCombobox1.EditNamespace.Clone(True)
41 | end;
42 |
43 | procedure TForm1.FormShow(Sender: TObject);
44 | begin
45 | // VirtualColumnModeView1.Color := clWindow;
46 | end;
47 |
48 | end.
49 |
--------------------------------------------------------------------------------
/Demos/VirtualEasyListModeView/VirtualExplorerListModeViewProject.dpr:
--------------------------------------------------------------------------------
1 | program VirtualExplorerListModeViewProject;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1},
6 | VirtualExplorerEasyListModeview in '..\..\Source\VirtualExplorerEasyListModeview.pas';
7 |
8 | {$R *.res}
9 |
10 | begin
11 | Application.Initialize;
12 | Application.CreateForm(TForm1, Form1);
13 | Application.Run;
14 | end.
15 |
--------------------------------------------------------------------------------
/Demos/VirtualEasyListModeView/VirtualExplorerListModeViewProject.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/VirtualEasyListModeView/VirtualExplorerListModeViewProject.res
--------------------------------------------------------------------------------
/Demos/VirtualEasyListviewCustomContextMenu/Unit1.dfm:
--------------------------------------------------------------------------------
1 | object Form1: TForm1
2 | Left = 281
3 | Top = 110
4 | Width = 696
5 | Height = 480
6 | Caption = 'Form1'
7 | Color = clBtnFace
8 | Font.Charset = DEFAULT_CHARSET
9 | Font.Color = clWindowText
10 | Font.Height = -11
11 | Font.Name = 'MS Sans Serif'
12 | Font.Style = []
13 | OldCreateOrder = False
14 | PixelsPerInch = 96
15 | TextHeight = 13
16 | object VirtualExplorerEasyListview1: TVirtualExplorerEasyListview
17 | Left = 0
18 | Top = 0
19 | Width = 688
20 | Height = 446
21 | Active = True
22 | Align = alClient
23 | DefaultSortColumn = 0
24 | Font.Charset = DEFAULT_CHARSET
25 | Font.Color = clWindowText
26 | Font.Height = -11
27 | Font.Name = 'MS Shell Dlg 2'
28 | Font.Style = []
29 | Grouped = False
30 | GroupingColumn = 0
31 | GroupFont.Charset = DEFAULT_CHARSET
32 | GroupFont.Color = clWindowText
33 | GroupFont.Height = -11
34 | GroupFont.Name = 'MS Shell Dlg 2'
35 | GroupFont.Style = []
36 | Header.Font.Charset = DEFAULT_CHARSET
37 | Header.Font.Color = clWindowText
38 | Header.Font.Height = -11
39 | Header.Font.Name = 'MS Shell Dlg 2'
40 | Header.Font.Style = []
41 | Options = [eloBrowseExecuteFolder, eloBrowseExecuteFolderShortcut, eloBrowseExecuteZipFolder, eloExecuteOnDblClick, eloThreadedImages, eloThreadedDetails, eloShellContextMenus]
42 | PaintInfoGroup.MarginBottom.CaptionIndent = 4
43 | PaintInfoGroup.MarginTop.Visible = False
44 | ParentFont = False
45 | Sort.AutoSort = True
46 | TabOrder = 0
47 | ThumbsManager.StorageFilename = 'Thumbnails.album'
48 | View = elsIcon
49 | OnContextMenuCmd = VirtualExplorerEasyListview1ContextMenuCmd
50 | OnContextMenuShow = VirtualExplorerEasyListview1ContextMenuShow
51 | end
52 | end
53 |
--------------------------------------------------------------------------------
/Demos/VirtualEasyListviewCustomContextMenu/Unit1.pas:
--------------------------------------------------------------------------------
1 | unit Unit1;
2 |
3 | interface
4 |
5 | uses
6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 | Dialogs, MPCommonObjects, EasyListview, VirtualExplorerEasyListview,
8 | MPCommonUtilities, MPShellUtilities;
9 |
10 | type
11 | TForm1 = class(TForm)
12 | VirtualExplorerEasyListview1: TVirtualExplorerEasyListview;
13 | procedure VirtualExplorerEasyListview1ContextMenuShow(
14 | Sender: TCustomVirtualExplorerEasyListview; Namespace: TNamespace;
15 | Menu: HMENU; var Allow: Boolean);
16 | procedure VirtualExplorerEasyListview1ContextMenuCmd(
17 | Sender: TCustomVirtualExplorerEasyListview; Namespace: TNamespace;
18 | Verb: string; MenuItemID: Integer; var Handled: Boolean);
19 | private
20 | { Private declarations }
21 | public
22 | { Public declarations }
23 | CustomMenuID: Integer;
24 | end;
25 |
26 | var
27 | Form1: TForm1;
28 |
29 | implementation
30 |
31 | {$R *.dfm}
32 |
33 | procedure TForm1.VirtualExplorerEasyListview1ContextMenuShow(
34 | Sender: TCustomVirtualExplorerEasyListview; Namespace: TNamespace;
35 | Menu: HMENU; var Allow: Boolean);
36 | begin
37 | // Add to the end;
38 | CustomMenuID := AddContextMenuItem(Menu, '-', -1);
39 | CustomMenuID := AddContextMenuItem(Menu, 'Custom Menu', -1);
40 | end;
41 |
42 | procedure TForm1.VirtualExplorerEasyListview1ContextMenuCmd(
43 | Sender: TCustomVirtualExplorerEasyListview; Namespace: TNamespace;
44 | Verb: string; MenuItemID: Integer; var Handled: Boolean);
45 | begin
46 | if MenuItemID = CustomMenuID then
47 | begin
48 | beep;
49 | end
50 | end;
51 |
52 | end.
53 |
--------------------------------------------------------------------------------
/Demos/VirtualEasyListviewCustomContextMenu/VirtaulExplorerEasyListviewMEnuProject.dpr:
--------------------------------------------------------------------------------
1 | program VirtaulExplorerEasyListviewMEnuProject;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.res}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/VirtualExplorerEasyListview/VEasyListviewProject.cfg:
--------------------------------------------------------------------------------
1 | -$A8
2 | -$B-
3 | -$C+
4 | -$D+
5 | -$E-
6 | -$F-
7 | -$G+
8 | -$H+
9 | -$I+
10 | -$J-
11 | -$K-
12 | -$L+
13 | -$M-
14 | -$N+
15 | -$O-
16 | -$P+
17 | -$Q-
18 | -$R-
19 | -$S-
20 | -$T-
21 | -$U-
22 | -$V+
23 | -$W-
24 | -$X+
25 | -$YD
26 | -$Z1
27 | -cg
28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
29 | -H+
30 | -W+
31 | -M
32 | -$M16384,1048576
33 | -K$00400000
34 | -LE"d:\borland\delphi7\Projects\Bpl"
35 | -LN"d:\borland\delphi7\Projects\Bpl"
36 | -w-UNSAFE_TYPE
37 | -w-UNSAFE_CODE
38 | -w-UNSAFE_CAST
39 |
--------------------------------------------------------------------------------
/Demos/VirtualExplorerEasyListview/VEasyListviewProject.dof:
--------------------------------------------------------------------------------
1 | [FileVersion]
2 | Version=7.0
3 | [Compiler]
4 | A=8
5 | B=0
6 | C=1
7 | D=1
8 | E=0
9 | F=0
10 | G=1
11 | H=1
12 | I=1
13 | J=0
14 | K=0
15 | L=1
16 | M=0
17 | N=1
18 | O=0
19 | P=1
20 | Q=0
21 | R=0
22 | S=0
23 | T=0
24 | U=0
25 | V=1
26 | W=0
27 | X=1
28 | Y=1
29 | Z=1
30 | ShowHints=1
31 | ShowWarnings=1
32 | UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
33 | NamespacePrefix=
34 | SymbolDeprecated=1
35 | SymbolLibrary=1
36 | SymbolPlatform=1
37 | UnitLibrary=1
38 | UnitPlatform=1
39 | UnitDeprecated=1
40 | HResultCompat=1
41 | HidingMember=1
42 | HiddenVirtual=1
43 | Garbage=1
44 | BoundsError=1
45 | ZeroNilCompat=1
46 | StringConstTruncated=1
47 | ForLoopVarVarPar=1
48 | TypedConstVarPar=1
49 | AsgToTypedConst=1
50 | CaseLabelRange=1
51 | ForVariable=1
52 | ConstructingAbstract=1
53 | ComparisonFalse=1
54 | ComparisonTrue=1
55 | ComparingSignedUnsigned=1
56 | CombiningSignedUnsigned=1
57 | UnsupportedConstruct=1
58 | FileOpen=1
59 | FileOpenUnitSrc=1
60 | BadGlobalSymbol=1
61 | DuplicateConstructorDestructor=1
62 | InvalidDirective=1
63 | PackageNoLink=1
64 | PackageThreadVar=1
65 | ImplicitImport=1
66 | HPPEMITIgnored=1
67 | NoRetVal=1
68 | UseBeforeDef=1
69 | ForLoopVarUndef=1
70 | UnitNameMismatch=1
71 | NoCFGFileFound=1
72 | MessageDirective=1
73 | ImplicitVariants=1
74 | UnicodeToLocale=1
75 | LocaleToUnicode=1
76 | ImagebaseMultiple=1
77 | SuspiciousTypecast=1
78 | PrivatePropAccessor=1
79 | UnsafeType=0
80 | UnsafeCode=0
81 | UnsafeCast=0
82 | [Linker]
83 | MapFile=0
84 | OutputObjs=0
85 | ConsoleApp=1
86 | DebugInfo=0
87 | RemoteSymbols=0
88 | MinStackSize=16384
89 | MaxStackSize=1048576
90 | ImageBase=4194304
91 | ExeDescription=
92 | [Directories]
93 | OutputDir=
94 | UnitOutputDir=
95 | PackageDLLOutputDir=
96 | PackageDCPOutputDir=
97 | SearchPath=
98 | Packages=vcl;rtl;vclx;indy;vclie;xmlrtl;inetdbbde;inet;inetdbxpress;dbrtl;soaprtl;dsnap;VclSmp;dbexpress;vcldb;dbxcds;inetdb;bdertl;vcldbx;adortl;teeui;teedb;tee;ibxpress;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOfficeXP;TntUnicodeVcl_R70;tb2k_d7;SpTBXLib_d7
99 | Conditionals=
100 | DebugSourceDirs=
101 | UsePackages=0
102 | [Parameters]
103 | RunParams=
104 | HostApplication=
105 | Launcher=
106 | UseLauncher=0
107 | DebugCWD=
108 | [Language]
109 | ActiveLang=
110 | ProjectLang=
111 | RootDir=
112 | [Version Info]
113 | IncludeVerInfo=0
114 | AutoIncBuild=0
115 | MajorVer=1
116 | MinorVer=0
117 | Release=0
118 | Build=0
119 | Debug=0
120 | PreRelease=0
121 | Special=0
122 | Private=0
123 | DLL=0
124 | Locale=1033
125 | CodePage=1252
126 | [Version Info Keys]
127 | FileVersion=1.0.0.0
128 | [Excluded Packages]
129 | d:\borland\delphi7\Projects\Bpl\ATViewerD7-UltraExplorer.bpl=ATViewer
130 | [HistoryLists\hlUnitAliases]
131 | Count=1
132 | Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
133 |
--------------------------------------------------------------------------------
/Demos/VirtualExplorerEasyListview/VEasyListviewProject.dpr:
--------------------------------------------------------------------------------
1 | program VEasyListviewProject;
2 |
3 | uses
4 | Forms,
5 | SysUtils,
6 | Unit1 in 'Unit1.pas' {Form1};
7 |
8 | {$R *.res}
9 |
10 | begin
11 | Application.Initialize;
12 | Application.CreateForm(TForm1, Form1);
13 | Application.Run;
14 | end.
15 |
--------------------------------------------------------------------------------
/Demos/VirtualExplorerEasyListview/VEasyListviewProject.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/VirtualExplorerEasyListview/VEasyListviewProject.res
--------------------------------------------------------------------------------
/Demos/VirtualShellToolsDemos.bpg:
--------------------------------------------------------------------------------
1 | #------------------------------------------------------------------------------
2 | VERSION = BWS.01
3 | #------------------------------------------------------------------------------
4 | !ifndef ROOT
5 | ROOT = $(MAKEDIR)\..
6 | !endif
7 | #------------------------------------------------------------------------------
8 | MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
9 | DCC = $(ROOT)\bin\dcc32.exe $**
10 | BRCC = $(ROOT)\bin\brcc32.exe $**
11 | #------------------------------------------------------------------------------
12 | PROJECTS = ShellDetailsCustomColumns.exe AutoCompleteComponentProject.exe \
13 | CheckBoxes.exe VET.exe ShellLinkShortcuts.exe ShellNotify.exe \
14 | ShellColumnStateStoring.exe ShellNew_NewFileMenu.exe ShellToolbars.exe \
15 | VirtualExplorer.exe ShellHistory.exe FolderSizeDemo.exe ExplorerCheckboxes.exe \
16 | FileSearch.exe SendToMenuProject.exe UserDataProject.exe \
17 | DOSCommandLineProject.exe CustomSortProject.exe VEasyListviewProject.exe \
18 | EasyListviewPrevFolderProject.exe FileSearchProject.exe BkGndMenuProject.exe
19 | #------------------------------------------------------------------------------
20 | default: $(PROJECTS)
21 | #------------------------------------------------------------------------------
22 |
23 | ShellDetailsCustomColumns.exe: Adding Custom Columns Using ShellDetails\ShellDetailsCustomColumns.dpr
24 | $(DCC)
25 |
26 | CheckBoxes.exe: CheckBoxes\CheckBoxes.dpr
27 | $(DCC)
28 |
29 | VET.exe: Overview\VET.dpr
30 | $(DCC)
31 |
32 | ShellLinkShortcuts.exe: Shell Link Shortcuts\ShellLinkShortcuts.dpr
33 | $(DCC)
34 |
35 | ShellNotify.exe: Shell Notify\ShellNotify.dpr
36 | $(DCC)
37 |
38 | ShellColumnStateStoring.exe: ShellColumn State Storing\ShellColumnStateStoring.dpr
39 | $(DCC)
40 |
41 | ShellNew_NewFileMenu.exe: ShellNew (New File) Menu\ShellNew_NewFileMenu.dpr
42 | $(DCC)
43 |
44 | ShellToolbars.exe: ShellToolbars\ShellToolbars.dpr
45 | $(DCC)
46 |
47 | VirtualExplorer.exe: Virtual Explorer\VirtualExplorer.dpr
48 | $(DCC)
49 |
50 | ShellHistory.exe: Shell History\ShellHistory.dpr
51 | $(DCC)
52 |
53 | FolderSizeDemo.exe: FolderSize\FolderSizeDemo.dpr
54 | $(DCC)
55 |
56 | AutoCompleteComponentProject.exe: AutoComplete Component\AutoCompleteComponentProject.dpr
57 | $(DCC)
58 |
59 | ExplorerCheckboxes.exe: Explorer CheckBoxes\ExplorerCheckboxes.dpr
60 | $(DCC)
61 |
62 | FileSearch.exe: File Search\FileSearch.dpr
63 | $(DCC)
64 |
65 | SendToMenuProject.exe: SendTo Menu\SendToMenuProject.dpr
66 | $(DCC)
67 |
68 | UserDataProject.exe: User Data\UserDataProject.dpr
69 | $(DCC)
70 |
71 | DOSCommandLineProject.exe: DOS Shell CommandLine\DOSCommandLineProject.dpr
72 | $(DCC)
73 |
74 | CustomSortProject.exe: Custom Sorting\CustomSortProject.dpr
75 | $(DCC)
76 |
77 | VEasyListviewProject.exe: VirtualExplorerEasyListview\VEasyListviewProject.dpr
78 | $(DCC)
79 |
80 | EasyListviewPrevFolderProject.exe: PrevDirNode EasyListview\EasyListviewPrevFolderProject.dpr
81 | $(DCC)
82 |
83 | FileSearchProject.exe: FileSearch\FileSearchProject.dpr
84 | $(DCC)
85 |
86 | BkGndMenuProject.exe: Backgnd Menu\BkGndMenuProject.dpr
87 | $(DCC)
88 |
89 |
90 |
--------------------------------------------------------------------------------
/Demos/Wow64 File Redirection/Unit1.dfm:
--------------------------------------------------------------------------------
1 | object Form1: TForm1
2 | Left = 369
3 | Top = 221
4 | Width = 792
5 | Height = 615
6 | Caption = 'Form1'
7 | Color = clBtnFace
8 | Font.Charset = DEFAULT_CHARSET
9 | Font.Color = clWindowText
10 | Font.Height = -11
11 | Font.Name = 'MS Sans Serif'
12 | Font.Style = []
13 | OldCreateOrder = False
14 | DesignSize = (
15 | 776
16 | 577)
17 | PixelsPerInch = 96
18 | TextHeight = 13
19 | object Label1: TLabel
20 | Left = 48
21 | Top = 40
22 | Width = 689
23 | Height = 13
24 | Caption =
25 | 'If VSTools is compiled into a 32 Bit application access to syste' +
26 | 'm folders that are reserved for 64 Bit files are redirected to a' +
27 | ' equivalient 32 Bit Folder'
28 | end
29 | object Label2: TLabel
30 | Left = 48
31 | Top = 64
32 | Width = 650
33 | Height = 13
34 | Caption =
35 | 'By disabling redirection a 32 Bit application can access the 64 ' +
36 | 'Bit folder. In 64 Bit Windows the System32 Folder is reserved f' +
37 | 'or 64 Bit files'
38 | end
39 | object Label3: TLabel
40 | Left = 48
41 | Top = 88
42 | Width = 658
43 | Height = 13
44 | Caption =
45 | 'and will typically redirect into the SysWow64 Bit folder. Use t' +
46 | 'he Disable Wow64 Redirection flag in VSTools to access 64 Bit sy' +
47 | 'stem folders.'
48 | end
49 | object VirtualExplorerEasyListview1: TVirtualExplorerEasyListview
50 | Left = 16
51 | Top = 112
52 | Width = 737
53 | Height = 449
54 | Active = True
55 | Anchors = [akLeft, akTop, akRight, akBottom]
56 | CompressedFile.Color = clBlue
57 | CompressedFile.Font.Charset = DEFAULT_CHARSET
58 | CompressedFile.Font.Color = clWindowText
59 | CompressedFile.Font.Height = -11
60 | CompressedFile.Font.Name = 'MS Sans Serif'
61 | CompressedFile.Font.Style = []
62 | DefaultSortColumn = 0
63 | EditManager.Font.Charset = DEFAULT_CHARSET
64 | EditManager.Font.Color = clWindowText
65 | EditManager.Font.Height = -11
66 | EditManager.Font.Name = 'MS Sans Serif'
67 | EditManager.Font.Style = []
68 | EncryptedFile.Color = clGreen
69 | EncryptedFile.Font.Charset = DEFAULT_CHARSET
70 | EncryptedFile.Font.Color = clWindowText
71 | EncryptedFile.Font.Height = -11
72 | EncryptedFile.Font.Name = 'MS Sans Serif'
73 | EncryptedFile.Font.Style = []
74 | FileSizeFormat = vfsfDefault
75 | Grouped = False
76 | GroupingColumn = 0
77 | PaintInfoGroup.MarginBottom.CaptionIndent = 4
78 | PaintInfoGroup.MarginTop.Visible = False
79 | Sort.Algorithm = esaQuickSort
80 | Sort.AutoSort = True
81 | TabOrder = 0
82 | ThumbsManager.StorageFilename = 'Thumbnails.album'
83 | end
84 | object CheckBox1: TCheckBox
85 | Left = 24
86 | Top = 16
87 | Width = 233
88 | Height = 17
89 | Caption = 'Disable WOW64 Bit File Redirecction'
90 | TabOrder = 1
91 | OnClick = CheckBox1Click
92 | end
93 | end
94 |
--------------------------------------------------------------------------------
/Demos/Wow64 File Redirection/Unit1.pas:
--------------------------------------------------------------------------------
1 | unit Unit1;
2 |
3 | interface
4 |
5 | uses
6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 | Dialogs, StdCtrls, Buttons, MPCommonObjects, EasyListview,
8 | VirtualExplorerEasyListview, MPCommonUtilities;
9 |
10 | type
11 | TForm1 = class(TForm)
12 | VirtualExplorerEasyListview1: TVirtualExplorerEasyListview;
13 | CheckBox1: TCheckBox;
14 | Label1: TLabel;
15 | Label2: TLabel;
16 | Label3: TLabel;
17 | procedure CheckBox1Click(Sender: TObject);
18 | private
19 | { Private declarations }
20 | public
21 | { Public declarations }
22 | end;
23 |
24 | var
25 | Form1: TForm1;
26 |
27 | implementation
28 |
29 | {$R *.dfm}
30 |
31 | procedure TForm1.CheckBox1Click(Sender: TObject);
32 | begin
33 | Wow64Enabled := CheckBox1.Checked;
34 | VirtualExplorerEasyListview1.Rebuild(True);
35 | end;
36 |
37 | end.
38 |
--------------------------------------------------------------------------------
/Demos/Wow64 File Redirection/Wow64FileRedirection.dpr:
--------------------------------------------------------------------------------
1 | program Wow64FileRedirection;
2 |
3 | uses
4 | Forms,
5 | Unit1 in 'Unit1.pas' {Form1};
6 |
7 | {$R *.res}
8 |
9 | begin
10 | Application.Initialize;
11 | Application.CreateForm(TForm1, Form1);
12 | Application.Run;
13 | end.
14 |
--------------------------------------------------------------------------------
/Demos/Wow64 File Redirection/Wow64FileRedirection.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Wow64 File Redirection/Wow64FileRedirection.res
--------------------------------------------------------------------------------
/Design/VirtualExplorerListviewExReg.dcr:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Design/VirtualExplorerListviewExReg.dcr
--------------------------------------------------------------------------------
/Design/VirtualExplorerListviewExReg.pas:
--------------------------------------------------------------------------------
1 | unit VirtualExplorerListviewExReg;
2 |
3 | // *****************************************************************************
4 | // *****************************************************************************
5 | // IMPORTANT PLEASE READ THIS NOTICE....
6 | ///
7 | // VLVEx is no longer being developed. It is included in VSTools 2.0 to
8 | // support legacy application. Please use the VirtualExplorerEasyListview for
9 | // new projects.....
10 | // *****************************************************************************
11 | // *****************************************************************************
12 | //
13 | // Version 1.7.0
14 | //
15 | // The contents of this file are subject to the Mozilla Public License
16 | // Version 1.1 (the "License"); you may not use this file except
17 | // in compliance with the License. You may obtain a copy of the
18 | // License at
19 | //
20 | // http://www.mozilla.org/MPL/
21 | //
22 | // Software distributed under the License is distributed on an
23 | // " AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either expressed or
24 | // implied. See the License for the specific language governing rights
25 | // and limitations under the License.
26 | //
27 | //
28 | // Alternatively, the contents of this file may be used under
29 | // the terms of the GNU General Public License Version 2 or later
30 | // (the "GPL"), in which case the provisions of the GPL are applicable
31 | // instead of those above. If you wish to allow use of your version of
32 | // this file only under the terms of the GPL and not to allow others to
33 | // use your version of this file under the MPL, indicate your decision
34 | // by deleting the provisions above and replace them with the notice and
35 | // other provisions required by the GPL. If you do not delete the provisions
36 | // above, a recipient may use your version of this file under either the
37 | // MPL or the GPL.
38 | //
39 | // The initial developer of this code is Robert Lee
40 |
41 | interface
42 |
43 | uses
44 | Windows, Classes, VirtualExplorerListviewEx;
45 |
46 | procedure Register;
47 |
48 | implementation
49 |
50 | procedure Register;
51 | begin
52 | RegisterComponents('VirtualShellTools', [TVirtualExplorerListviewEx]);
53 | end;
54 |
55 | end.
56 |
57 |
58 |
--------------------------------------------------------------------------------
/Design/VirtualShellToolsReg.dcr:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Design/VirtualShellToolsReg.dcr
--------------------------------------------------------------------------------
/Docs/CBuilder 6 Issues.txt:
--------------------------------------------------------------------------------
1 |
2 | Issues with C++Builder 6
3 |
4 | 1) ThemeManager is not put on the Include Path for the project automatically.
5 |
6 | Project > Options > Directories/Conditionals
7 |
8 | Browse to the install path for
9 |
10 | ${ThemeManagerInstallPath}\Source
11 |
12 | and add it to the list.
13 |
14 | 2) The uxtheme.h file has bug in it. Replace the version that comes with
15 | C++Builder 6 with the supplied version.
16 |
17 | ${CBuilderINstallPath}\Include\uxtheme.h
18 |
19 |
20 | Drop a VirtualExplorerTree component on a form and compile!
21 |
22 | Enjoy,
23 | Jim
--------------------------------------------------------------------------------
/Docs/Unicode Compatibilty.txt:
--------------------------------------------------------------------------------
1 | The following function/routines are not 100% WideString implemented:
2 |
3 |
4 | //////
5 | MPShellUtilities.pas
6 | /////
7 |
8 | function ConvertLocalStrToTFileTime(LocalStr: WideString; var FileTime: TFileTime): Boolean;
9 |
10 | function ConvertTFileTimeToLocalStr(AFileTime: TFILETIME): WideString;
11 |
12 | Format
13 |
14 |
15 |
16 |
--------------------------------------------------------------------------------
/Include/Addins.inc:
--------------------------------------------------------------------------------
1 | // The packages must be rebuilt to make the changes in this file active
2 |
3 | // -----------------------------------------------------------------------------
4 | // TOOLBAR 2000 and TBX SUPPORT FOR VIRTUALSHELLHISTORY MENU
5 | // -----------------------------------------------------------------------------
6 | //
7 | // Uncomment out the conditional define for Toolbar 2000 and TBX Toolbar support
8 | //
9 | // WARNING: WARNING: WARNING: WARNING: WARNING: WARNING: WARNING: WARNING: WARNING:
10 | //
11 | // You must either add the Tooolbar 2000 and/or the SpTBXLib packages to the
12 | // VirtualShellToolsDx.dpk "Requires" section.
13 | // This is easier if you open the VirtualShellToolsDx.dpk with a text editor and add this:
14 | //
15 | // E,g, For D6:
16 | //
17 | // requires
18 | // VirtualTreesD6,
19 | // VirtualToolsCommonD6,
20 | // ThemeManager6
21 | // tb2k_d6,
22 | // SpTbxLib_d6;
23 | //
24 | // Then recompile VSTools
25 | //
26 | // DO NOT allow Delphi to add the units to the "Contains" section automaticlly
27 | // if you forget to add the packages to the "Requires" section.
28 |
29 | // Define USE_TOOLBAR_TB2K if you use Toolbar 2000, SpTBXLib
30 | {.$DEFINE USE_TOOLBAR_TB2K}
31 | // Define SpTBX if you use SpTBXLib
32 | {.$DEFINE SpTBX}
33 |
34 | // -----------------------------------------------------------------------------
35 | //
36 |
37 | // Strips particular component from the package to reduce EXE size in final application
38 | //
39 | //
40 | {$DEFINE EXPLORERCOMBOBOX_L}
41 | {$DEFINE EXPLORERLISTVIEW_L}
42 | {$DEFINE EXPLORERTREE_L}
43 | {$DEFINE EXPLORERTREEVIEW_L}
44 | // -----------------------------------------------------------------------------
45 |
46 | // ImageEn SUPPORT
47 | // You must add the ImageEn package to the VirtualShellToolsD.dpk "Requires" section PKIECtrl28
48 | // You may need to add Path to ImageEn: Delphi Compiler, Windows 64bit, Search path \ImageEn\Source\Delphi11Alexandria_64
49 |
50 | // {$DEFINE USEIMAGEEN}
51 |
--------------------------------------------------------------------------------
/LICENCE:
--------------------------------------------------------------------------------
1 | Mustangpeak Common Library
2 |
3 | The contents of this file are subject to the Mozilla Public License
4 | Version 1.1 (the "License"); you may not use this file except
5 | in compliance with the License. You may obtain a copy of the
6 | License at http://www.mozilla.org/MPL/.
7 |
8 | Alternatively, you may redistribute this library, use and/or modify it under the terms of the
9 | GNU Lesser General Public License as published by the Free Software Foundation;
10 | either version 2.1 of the License, or (at your option) any later version.
11 | You may obtain a copy of the LGPL at http://www.gnu.org/copyleft/.
12 |
13 | Software distributed under the License is distributed on an
14 | "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either expressed or
15 | implied. See the License for the specific language governing rights
16 | and limitations under the License.
17 |
18 |
19 |
20 |
21 |
22 |
--------------------------------------------------------------------------------
/Resources/Images/Bkgnd.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/Bkgnd.bmp
--------------------------------------------------------------------------------
/Resources/Images/Folder Funnel 24x24.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/Folder Funnel 24x24.bmp
--------------------------------------------------------------------------------
/Resources/Images/Setup Gear 24x24.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/Setup Gear 24x24.bmp
--------------------------------------------------------------------------------
/Resources/Images/Setup Gear 32x32.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/Setup Gear 32x32.bmp
--------------------------------------------------------------------------------
/Resources/Images/VET_Logo.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/VET_Logo.png
--------------------------------------------------------------------------------
/Resources/Images/ViewButton.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/ViewButton.bmp
--------------------------------------------------------------------------------
/Resources/Images/XDisk.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XDisk.bmp
--------------------------------------------------------------------------------
/Resources/Images/XPBackArrow 24x24.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPBackArrow 24x24.bmp
--------------------------------------------------------------------------------
/Resources/Images/XPBackArrow.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPBackArrow.bmp
--------------------------------------------------------------------------------
/Resources/Images/XPFolders 16x16.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPFolders 16x16.bmp
--------------------------------------------------------------------------------
/Resources/Images/XPFolders 24x24.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPFolders 24x24.bmp
--------------------------------------------------------------------------------
/Resources/Images/XPFolders.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPFolders.bmp
--------------------------------------------------------------------------------
/Resources/Images/XPHistory 16x16.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPHistory 16x16.bmp
--------------------------------------------------------------------------------
/Resources/Images/XPHistory 24x24.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPHistory 24x24.bmp
--------------------------------------------------------------------------------
/Resources/Images/XPListviewStyle.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPListviewStyle.bmp
--------------------------------------------------------------------------------
/Resources/Images/XPNextArrow 24x24.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPNextArrow 24x24.bmp
--------------------------------------------------------------------------------
/Resources/Images/XPNextArrow.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPNextArrow.bmp
--------------------------------------------------------------------------------
/Resources/Images/XPSearch 24x24.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPSearch 24x24.bmp
--------------------------------------------------------------------------------
/Resources/Images/XPSearch.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPSearch.bmp
--------------------------------------------------------------------------------
/Resources/Images/XPSearch2.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPSearch2.bmp
--------------------------------------------------------------------------------
/Resources/Images/XPSearch2Small.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPSearch2Small.bmp
--------------------------------------------------------------------------------
/Resources/Images/XPUpFolder.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPUpFolder.bmp
--------------------------------------------------------------------------------
/Source/ColumnFormTBX.dfm:
--------------------------------------------------------------------------------
1 | object FormColumnSettings: TFormColumnSettings
2 | Left = 364
3 | Top = 252
4 | Width = 295
5 | Height = 370
6 | BorderIcons = [biSystemMenu]
7 | Caption = 'Column Settings'
8 | Color = clBtnFace
9 | Constraints.MinHeight = 370
10 | Constraints.MinWidth = 295
11 | Font.Charset = DEFAULT_CHARSET
12 | Font.Color = clWindowText
13 | Font.Height = -11
14 | Font.Name = 'Tahoma'
15 | Font.Style = []
16 | KeyPreview = True
17 | OldCreateOrder = False
18 | Position = poScreenCenter
19 | OnCreate = FormCreate
20 | OnKeyPress = FormKeyPress
21 | OnResize = FormResize
22 | OnShow = FormShow
23 | DesignSize = (
24 | 287
25 | 336)
26 | PixelsPerInch = 96
27 | TextHeight = 13
28 | object Bevel1: TBevel
29 | Left = 16
30 | Top = 280
31 | Width = 252
32 | Height = 14
33 | Anchors = [akLeft, akTop, akRight, akBottom]
34 | Shape = bsBottomLine
35 | end
36 | object Label2: TTBXLabel
37 | Left = 10
38 | Top = 246
39 | Width = 149
40 | Height = 13
41 | Alignment = taCenter
42 | Anchors = [akBottom]
43 | Caption = 'The selected column should be '
44 | OnClick = FormCreate
45 | end
46 | object Label3: TTBXLabel
47 | Left = 211
48 | Top = 246
49 | Width = 52
50 | Height = 13
51 | Anchors = [akBottom]
52 | Caption = 'pixels wide'
53 | end
54 | object Panel1: TPanel
55 | Left = 0
56 | Top = 0
57 | Width = 287
58 | Height = 35
59 | Align = alTop
60 | BevelOuter = bvNone
61 | BorderWidth = 4
62 | TabOrder = 0
63 | object Label1: TTBXLabel
64 | Left = 4
65 | Top = 4
66 | Width = 279
67 | Height = 27
68 | Align = alClient
69 | Alignment = taCenter
70 | AutoSize = False
71 | Caption =
72 | 'Check the columns you would like to make visible in this Folder.' +
73 | ' Drag and Drop to reorder the columns. '
74 | Font.Charset = DEFAULT_CHARSET
75 | Font.Color = clWindowText
76 | Font.Height = -11
77 | Font.Name = 'MS Sans Serif'
78 | Font.Style = []
79 | ParentFont = False
80 | end
81 | end
82 | object CheckBoxLiveUpdate: TTBXCheckBox
83 | Left = 18
84 | Top = 268
85 | Width = 258
86 | Height = 17
87 | Anchors = [akRight, akBottom]
88 | Caption = 'Live Update'
89 | TabOrder = 1
90 | OnClick = CheckBoxLiveUpdateClick
91 | end
92 | object ButtonOk: TTBXButton
93 | Left = 104
94 | Top = 304
95 | Width = 75
96 | Height = 21
97 | Anchors = [akRight, akBottom]
98 | Caption = '&OK'
99 | ModalResult = 1
100 | TabOrder = 2
101 | end
102 | object ButtonCancel: TTBXButton
103 | Left = 192
104 | Top = 304
105 | Width = 75
106 | Height = 21
107 | Anchors = [akRight, akBottom]
108 | Caption = '&Cancel'
109 | ModalResult = 2
110 | TabOrder = 3
111 | end
112 | object VSTColumnNames: TVirtualStringTree
113 | Left = 6
114 | Top = 47
115 | Width = 273
116 | Height = 186
117 | Anchors = [akLeft, akTop, akRight, akBottom]
118 | CheckImageKind = ckXP
119 | Header.AutoSizeIndex = 0
120 | Header.Font.Charset = DEFAULT_CHARSET
121 | Header.Font.Color = clWindowText
122 | Header.Font.Height = -11
123 | Header.Font.Name = 'MS Sans Serif'
124 | Header.Font.Style = []
125 | Header.MainColumn = -1
126 | Header.Options = [hoColumnResize, hoDrag]
127 | HintAnimation = hatNone
128 | TabOrder = 4
129 | TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking]
130 | TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toInitOnSave, toToggleOnDblClick]
131 | TreeOptions.PaintOptions = [toShowButtons, toShowRoot, toThemeAware, toUseBlendedImages]
132 | OnChecking = VSTColumnNamesChecking
133 | OnDragAllowed = VSTColumnNamesDragAllowed
134 | OnDragOver = VSTColumnNamesDragOver
135 | OnDragDrop = VSTColumnNamesDragDrop
136 | OnFocusChanging = VSTColumnNamesFocusChanging
137 | OnFreeNode = VSTColumnNamesFreeNode
138 | OnGetText = VSTColumnNamesGetText
139 | OnInitNode = VSTColumnNamesInitNode
140 | Columns = <>
141 | end
142 | object EditPixelWidth: TEdit
143 | Left = 172
144 | Top = 244
145 | Width = 35
146 | Height = 21
147 | Anchors = [akBottom]
148 | TabOrder = 5
149 | OnExit = EditPixelWidthExit
150 | OnKeyPress = EditPixelWidthKeyPress
151 | end
152 | end
153 |
--------------------------------------------------------------------------------
/Source/VirtualExplorerTreeExt.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Source/VirtualExplorerTreeExt.res
--------------------------------------------------------------------------------
/Source/VirtualThumbnails.pas:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Source/VirtualThumbnails.pas
--------------------------------------------------------------------------------
/readme.md:
--------------------------------------------------------------------------------
1 | MustangpeakVirtualShellTools
2 | ============================
3 |
4 | ### Table of contents
5 | 1. [Introduction](#Introduction)
6 | 2. [Package names](#Package-names)
7 | 3. [Installation](#Installation)
8 |
9 | ## Introduction
10 |
11 | The Turbopak Mustangpeak library for Delphi and C++Builder was originally developed by **Jim
12 | Kueneman** and contains the EasyListView and the VirutalShellExplorer components.
13 | Mustangpeak VirtualShellTools provides Windows Explorer style shell treeview and list view
14 | components for Delphi and C++Builder applications. The main component TVirtualExplorerTree
15 | is a VirtualStringTree decsendant and is VCL Styles and DPI-aware enabled.
16 |
17 | This is a source-only release of MustangpeakVirtualShellTools. It includes
18 | designtime and runtime packages for Delphi and CBuilder and supports
19 | Win32 and Win64.
20 |
21 | ## Package names
22 |
23 | MustangpeakVirtualShellTools package names have the following form:
24 |
25 | - VirtualShellToolsD.dpk (Delphi runtime package)
26 | - VirtualShellToolsDD.dpk (Delphi design time package)
27 |
28 | - VirtualShellToolsC.bpl (C++Builder Runtime for the VCL)
29 | - VirtualShellToolsCD.bpl (C++Builder Runtime for the VCL)
30 |
31 | *RAD STUDIO Berlin or later supported.*
32 |
33 | ## Installation
34 |
35 | To install MustangpeakVirtualShellTools into your IDE, take the following
36 | steps:
37 |
38 | 1. Install first [MustangpeakCommonLib](https://github.com/TurboPack/MustangpeakCommonLib),
39 | [MustangpeakEasyListView](https://github.com/TurboPack/MustangpeakEasyListView) and
40 | [Virtual-TreeView](https://github.com/Virtual-TreeView/Virtual-TreeView).
41 |
42 | 2. Clone or download and unzip the Github repository into a directory (e.g., D:\MustangpeakVirtualShellTools).
43 |
44 | 3. Start RAD Studio.
45 |
46 | 4. Add the source subdirectory (e.g., D:\MustangpeakVirtualShellTools\Source) to the
47 | IDE's library path.
48 |
49 | 5. Open and compile the runtime package specific to the IDE being used.
50 |
51 | 6. Open & install the corresponding designtime package.
52 |
53 | 7. If you have installed Toolbar2000 or SpTBXLib components and want to use them
54 | with VirtualShellTools, enable the respective directives in Include\Addins.inc.
55 |
--------------------------------------------------------------------------------