dallas page

Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Добрый вечер господа. Подскажите пожалуйста, столкнулся с проблемой. Есть объект ListBoxEx. При нажатии на кнопку происходит поиск файлов в папке Docs и все найденное заносится в него. Допустим, в папке Docs есть файлы 1.apk и 2.apk, а в папке Icons есть файлы 1.ico и 2.ico, т.е. названия файлов одинаковые. Мне нужно, чтобы при добавлении в ListBoxEx к файлу 1.apk присваивалась иконка 1.ico, и соответственно к файлу 2.apk присваивалась иконка 2.ico. Файлов в папке будет около 20. Столкнулся с проблемой, ко всем пунктам присваивается первая иконка, т.е. 1.ico. Подскажите пожалуйста, в чем проблема? Заранее спасибо. Код в Global Functions: Код: tblIcons = {} function GetIconIndex(sPath) local tblpParts = String.SplitPath(sPath); local sFileName = tblpParts.Filename..tblpParts.Extension; local sExtension = String.Replace(tblpParts.Extension, ".", "", false); local bDir = File.GetAttributes(sPath).Directory; if(bDir) then return 1 end if(tblIcons[sExtension] == nil ) then tblIcons[sExtension] = ListBoxEx.AddAssocIcon("Plugin1", LBXASSOC_LARGEICON, sPath); end return tblIcons[sExtension]; end | Код в ListBoxEx, событие OnCreate: Код: bImagelist = ListBoxEx.CreateImageList("Plugin1", 32, BIT_32); if ( bImagelist ) then t_Files = File.Find(_SourceFolder .. "\\AutoPlay\\Icons", "*.ico", false, false, nil, nil); if t_Files then for n_Item, s_File in pairs(t_Files) do ListBoxEx.AddIcon("Plugin1", s_File); end end end | Код кнопки: Код: t_Files = File.Find(_SourceFolder .. "\\AutoPlay\\Docs", "*.apk", true, false, nil, nil); if t_Files then for n_Item, s_File in pairs(t_Files) do s_Filename = String.SplitPath(s_File).Filename; nIconIndex = GetIconIndex(_SourceFolder .. "\\AutoPlay\\Icons\\"..s_Filename..".ico"); ListBoxEx.AddItem("Plugin1", s_Filename, s_Filename, s_File, s_File, nIconIndex, LBXITEM_HTML, 0, nil, nil, nil); end end |
| Всего записей: 205 | Зарегистр. 28-03-2010 | Отправлено: 20:42 25-06-2013 | Исправлено: dallas page, 20:49 25-06-2013 |
|