Вниз
Скачать: CL | DM;

Добавить Image к TTreeNode без TImageList   Найти похожие ветки 

 
Ega23 ©   (2005-09-16 16:18) [0]

Есть TTreeView (точнее потомок, но это не суть). Требуется в некоторых узлах по условию прорисовывать картинку. Знаю, как это задать через TImageList, но по условию задачи этот метод неприемлем.

Идея следующая: переопределить OnCustomDrawItem, там по условию через TTreeViewIdent и TTreeNode.DisplayRect можно "сдвинуть" нужный узел и в свободное место "впихнуть" нужную картинку.

Хотелось бы узнать: идея правильная, или есть другой способ?


 
Digitman ©   (2005-09-16 16:23) [1]

добавление в ран-тайм элемента в TImageList и последующая ссылка на него чем не устраивает ?


 
Ega23 ©   (2005-09-16 16:27) [2]

добавление в ран-тайм элемента в TImageList и последующая ссылка на него чем не устраивает ?


А если у элемента нет картинки? Если узлу ImageIndex=-1 поставить, то выглядит некрасиво. Всё равно место под картинку автоматом отводится...


 
Digitman ©   (2005-09-16 16:35) [3]


> Ega23 ©   (16.09.05 16:27) [2]



> по условию задачи этот метод неприемлем


сначала озвучь эти самые условия ... а то рассуждать можнго сколь угодно долго ...


 
Ega23 ©   (2005-09-16 16:50) [4]

сначала озвучь эти самые условия ... а то рассуждать можнго сколь угодно долго ...

Если кратко, то начальник сказал: "Некрасиво".

Если подробно, то это DB-компонент, отображающий "деревянную" структуру. При этом у некоторых объектов есть своё изображение, а у некоторых нет. При этом это дерево и есть "редактор" данной структуры. Т.е. в конечный момент времени, когда вся структура будет заполнена, картинки будут у всех узлов. Но на момент редактирования - может оказаться, что картинки нет.
Если присобачить ImageList, то TCustomTreeView на элементы, ImageIndex которых равен -1, всё равно отводит количество пикселей, равное ImageList.Width + Node.DisplayRect.Right - Node.DisplayRect.Left.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c
1-1127047828
MBoris
2005-09-18 16:50
2005.10.09
Word Application


1-1127135360
Slaga
2005-09-19 17:09
2005.10.09
BPL в Delphi


1-1127128907
2Wish
2005-09-19 15:21
2005.10.09
Взять Real


4-1123670306
Urgen
2005-08-10 14:38
2005.10.09
Service


2-1125052372
oradb
2005-08-26 14:32
2005.10.09
Привести TObject к integer




   Наверх