В 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 снова появились нужные компоненты.
Исправленные сорцы прикреплены.
|