+возможность задать любую папку в качестве корневой (т.е. выше просматривать будет нельзя)
+возможность просматривать некоторые спец. папки: корзина, панель управления, шрифты
*для спец. папок выдаёт как отображаемое имя, так и путь (если он существует).
*для корзины при NewStyle=True выдаёт не просто отображаемое имя, а путь, где файл лежал до удаления.
Внешний видПример:
Add(Browse,16258765,308,105)
{
BrowseObj=3
SpecRootFolder=1
Point(doRootFolder)
Point(doSpecRootFolder)
link(onBrowse,7394885:doEnum,[])
}
Add(Button,10562473,231,105)
{
Left=30
Top=20
link(onClick,16258765:doBrowse,[])
}
Add(Edit,7490768,231,147)
{
Left=30
Top=45
Width=325
Text=""
link(onEnter,16258765:doRootFolder,[(285,160)(285,118)])
}
Add(MT_Enum,7394885,371,105)
{
link(onItem,2997311:doAdd,[])
}
Add(Memo,2997311,427,105)
{
Left=10
Top=65
Width=410
Height=190
ScrollBars=3
}
Тестируйте. Nesco, проверь, пожалуйста, если всё ОК, надо обновить на SVN.
Поиск
Друзья
Администрация