TreeView!!! ПАМАГИТЕ!

← →
QUSTION (2003-12-12 12:17) [0]

Как юзать иконки для элементов в TreeView ?
пробывал с помощью AddIcon,
в TIcon юзал loadfromfile, но в процессе выполнения
выдаёт ощибку! Help!

← →
DVM (2003-12-15 18:25) [1]

TreeView и ListView могут использовать иконки предварительно загруженные в ImageList, который должен быть привязан к ним.

← →
Новичек (2003-12-15 18:35) [2]

Причем задавай иконки при построении дерева:

Вот выдрал кусок из построения файлового делева (файлики и папочки):

CNode := TreeView1.Items.AddChildObject(Node, P^.Name, P);
If (P^.Attr And faDirectory) <> 0 Then Begin
CNode.HasChildren := True;
CNode.ImageIndex := 2;
CNode.SelectedIndex := 2;
End
else CNode.ImageIndex := 1;

если спросишь - как рисовать разными цветами - обробатывай в TreeView1CustomDrawItem!
Например:
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var DF: TDirFile;
begin
DF := TDirFile(Node.Data^);

If (DF.Attr And faDirectory) <> 0 Then Form1.TreeView1.Canvas.Font.Color := clRed;

If (DF.Attr And faDirectory) = 0 Then
begin
if copy(DF.Name,length(DF.Name)-3,4)=".txt" then Form1.TreeView1.Canvas.Font.Color := clLime;
end;
end;

TreeView!!! ПАМАГИТЕ! Найти похожие ветки