Zloy_Gelud
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
!Пост отредактирован по этой причине.
Stalkersof
Цитата:| А где ошибки в программе или на сайте. |
Цитата:| Выберите папку в меню "Пуск": |
По поводу рекурсивного добавления папок.. думал не осилю.  Но вроде как победил (с исправлениями lerik2703), тестируй.
Глобальные функции:
Код: _r_find = function (path,nInd)
local tFindSubDirs = Folder.Find(path, "*", false, nil);
if tFindSubDirs then
nInd = nInd + 1;
for i = 1, #tFindSubDirs do
TreeList.AddRow("Plugin1", String.Mid(tFindSubDirs[i], String.ReverseFind(tFindSubDirs[i], "\\", false) + 1, -1), nImageIndex, nInd, nil);
_r_find(tFindSubDirs[i], nInd);
end
end
end |
On Create объекта:
Код: TreeList.AddColumn("Plugin1", "", 300);
TreeList.SetHeaderHeight("Plugin1", 0);
nImageIndex = TreeList.ExtractIcon("Plugin1", "shell32.dll", 19);
local sPath = Shell.GetFolder(SHF_STARTMENUPROGRAMS_COMMON);
local nRoot = TreeList.AddRow("Plugin1", String.Mid(sPath, String.ReverseFind(sPath, "\\", false) + 1, -1), nImageIndex, nil, nil);
local tFindDirs = Folder.Find(sPath, "*", false, nil);
if tFindDirs then
nInd = 1;
for i = 1, #tFindDirs do
TreeList.AddRow("Plugin1", String.Mid(tFindDirs[i], String.ReverseFind(tFindDirs[i], "\\", false) + 1, -1), nImageIndex, 1, nil);
_r_find(tFindDirs[i], nInd);
end
end
TreeList.SetRowExpanded("Plugin1", nRoot, true); |
|
Дружественная тема в Варезнике
Добаляешь его на страницу и в событие On Create копируешь следующий код: 
пустая строка 
, который заметил ошибку в моем вышеприведенном коде, из-за которой 
Вроде стандартно нельзя. Погляжу в сторону API. Может что выйдет.