Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TVM_GETIMAGELIST в NewTreeView (модуль KOL.PAS) [Delphi, KOL, Win98]


Unknown Mystic ©   (2005-02-10 22:11:00) 

Уважаемые мастера, скажите, пожалуйста, почему при добавлении в самый конец функции NewTreeView (модуль KOL.PAS) строки
h := Result.Perform(TVM_GETIMAGELIST, TVSIL_STATE, 0);
получаю 0, тогда как строка
h := TreeView1.Perform(TVM_GETIMAGELIST, TVSIL_STATE, 0);
в модуле программы нормально возвращает хэндл?


Unknown Mystic   (2005-02-18 18:20:00) [1]

Признаю - был не прав. :)

В MSDN'е оказывается написано:
Once you have a handle to a system image list, you can use the ImageList API to manipulate it like any other image list. ecause system image lists are created on a per-process basis, you should treat them as read-only objects. Writing to a system image list may overwrite or delete one of the system images, making it unavailable or incorrect for the remainder of the process.

А Handle, оказывается можно получить: Result.GetWindowHandle- Владимир подсказал :)

Спасибо за помощь. С уважением, Сергей.


Unknown Mystic   (2005-02-13 21:07:00) [2]

Может и не стоит, хотя если ошибок никаких возникать не будет, то почему бы и нет? Кроме того, даже если и делать копию, то все равно его Handle добыть как-то надо...


SPeller   (2005-02-13 06:23:00) [3]

Так как это стандартный системный imagelist, я думаю что не надо его трогать. Нужно сделать копию его картинок в своем imagelist и уже его изменять как заблагорассудится.


Unknown Mystic   (2005-02-12 17:59:00) [4]

Вообще-то говоря я имел ввиду именно изменить, а не прицепить новый...

Назначить imagelist, можно конечно, но пихать всю прорисовку в kol.pas не хотелось бы, когда все, что необходимо (добавить затемненную галочку) делается гораздо проще на основе стандартного листа:
if LV.ImageListState = nil then
 begin
   h := LV.Perform(LVM_GETIMAGELIST, LVSIL_STATE, 0);
   ImageList_SetBkColor(h, CLR_NONE);
   ImageList_AddIcon(h, ImageList_GetIcon(h, 1, ILD_BLEND25));
 end;

В отдельной программе это работает, а вот как бы к TreeView и ListView прикрутить опцию, что-то вроде AllowGray, вернее как ее обрабатывать, если получить Handle листа похоже не удается?


SPeller   (2005-02-12 06:40:00) [5]

Unknown Mystic ©   (11.02.05 17:39) [6]
А как можно изменить умолчальный список изображений состояния, создаваемый, при создании TreeView или ListView с CheckBox'ами?

По-моему, у Кладова на сайте есть пример работы с чекбоксами, и там, если мне не изменяет память, использовались свои картинки. А вообще, по-моему, можно просто назначить какой-то imagelist и всё.


SPeller   (2005-02-12 06:39:00) [6]

Потому что за всё время программирования на KOL я раз 10 видел чтобы показывались нормальные значения :) Статистику я, конечно, специально не считал, а так, на глазок прикинул :)


Unknown Mystic   (2005-02-11 17:39:00) [7]

Мда... столько об этом говорили, а я как-то не подумал, спасибо.
А как можно изменить умолчальный список изображений состояния, создаваемый, при создании TreeViewили ListViewс CheckBox'ами? В своей программе - все ясно, все работает, а что делать, если TreeView подправить хочется?


ECM   (2005-02-11 16:32:00) [8]

Из спортивного интереса.. :)
Откуда известно, что имеено одинпроцент?


SPeller   (2005-02-11 16:15:00) [9]

Если вы смотрели .Handle из-под отладчика, то это понятно - в 1% случаев отладчик показывает правильные значения свойств объектов (object), поэтому надо смотреть именно fHandle.


Unknown Mystic   (2005-02-11 15:38:00) [10]

Я тоже сначала так подумал, но
Result.Handle- не ноль, хотя Result.fHandle- ноль


SPeller   (2005-02-11 11:18:00) [11]

Потому что после вызова конструктора окно контрола ещё не создано. Проверьте свойство Handle.


Unknown Mystic   (2005-02-10 22:13:00) [12]

Заранее спасибо :)


Наверх

Титульная страница Поиск, карта сайта Написать письмо