![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как в TreeView добавить картинку ? [D6]
Sp1r1t © (2006-12-22 14:34:00)Подскажите как добавить картинку в TreeView ?
Ega23 (2006-12-22 15:16:00) [21]А чуток подумать? Мне-то не сложно, но тебе ведь учиться надо, не так-ли?
Sp1r1t (2006-12-22 15:14:00) [22]Слушай а попроще можно ? ))
Ато я еще не сильно во всем этом разбираюсь.
У меня есть ImageList1 и TreeView1. Можешь изменить код чтобы там были эти имена. Ато какието TCustomKdrDBTreeView,FTreeItems, TKdrDBTreeViewItemIdent.
Pls
Sp1r1t (2006-12-22 15:06:00) [23]спасибо
Ega23 (2006-12-22 15:03:00) [24]могу
procedure TCustomKdrDBTreeView.AddAllNodes(ParentID: Variant;
ParentNode: TTreeNode);
var
k:Integer;
CurrNode:TTreeNode;
begin
for k:=0 to FTreeItems.Count-1 do
begin
With TKdrDBTreeViewItemIdent(FTreeItems.Items[k]) do
begin
if (Node<>nil) or (ParentKeyFieldValue<>ParentID) then Continue;
if ParentNode=nil then
CurrNode:=Items.Add(nil, DisplayFieldValue)
else
CurrNode:=Items.AddChild(ParentNode, DisplayFieldValue);
CurrNode.ImageIndex:=ImageIndex;
CurrNode.SelectedIndex:=ImageIndex;
Node:=CurrNode;
CurrNode.Data:=FTreeItems.Items[k];
AddAllNodes(KeyFieldValue, CurrNode);
end; // With
end; // for
end;
Sp1r1t (2006-12-22 14:54:00) [25]можешь примерно написать как??
Ega23 (2006-12-22 14:48:00) [26]
> А какому свойству или методу нужно присвоить ImageIndex?
Узлу соответствующему.
Sp1r1t (2006-12-22 14:44:00) [27]А какому свойству или методу нужно присвоить ImageIndex?
Ega23 (2006-12-22 14:41:00) [28]1. Использовать метод OnCustomDraw
2. Связать с деревом ImageList и каждому узлу приписывать ImageIndex.
alex_*** (2006-12-22 14:40:00) [29]на узел?