В Delphi 2009 есть их исходники, они расположенны по этому пути
"C:\Documents and Settings\All Users\Documents\RAD Studio\6.0\Demos\DelphiWin32\VCLWin32\ShellControls"
Для версии Delphi 2007 пришлось немного подправить исходники (в атаче исходники для версии 2007)
Для более старых версий удаляем файлики vclshlctrls.dproj, dclshlctrls.dproj и испльзуем вместо них vclshlctrls.dpk, dclshlctrls.dpk соответственно
Файлы пришлось немного подправить, но в результате все работает как нужно.
Порядок установки таков (версия 2007)
1) Копируем папку в любое удобное место, я разместил по такому пути.
"\Program Files\CodeGear\RAD Studio\ShellControls"
2) Открываем файл проекта vclshlctrls.dproj (vclshlctrls.dpk) и выполняем Build
3) Открываем файл проекта dclshlctrls.dproj (dclshlctrls.dpk) и выполняем Build
4) Для проекта dclshlctrls.dproj (dclshlctrls.dpk) дополнительно выполняем команду Install.
5) Закрываем проект и для пустого проекта добавляем путь установки в Search Path.
Все на вкладке Samples снова появились нужные компоненты.
Исправленные сорцы прикреплены.
|
