[SOLVED] VirtualStringTree icons

[Pe3s]

Hello forum users, I wrote a code that displays icons in VST. How can I modify the code to add a different icon to the child?

Code: Pascal  [Select][+][-]

1. procedure TForm1.VSTGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean; var ImageIndex: Integer);
2. begin
3.   case Kind of
4.     ikNormal, ikSelected:
5.       case Column of
6.         0: ImageIndex:= 0;
7.       end;
8.    end;
9. end;
10.  

[paweld]

something like this: 

Code: Pascal  [Select][+][-]

1. procedure TForm1.VSTGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode;  
2.   Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean; var ImageIndex: Integer);  
3. var  
4.   nl: Integer;  
5. begin  
6.   nl := Sender.GetNodeLevel(Node);  
7.   case nl of  
8.     0:  ImageIndex := 0;  //root  
9.     1..3: ImageIndex := 1;  //child level between 1 and 3  
10.     4..6: ImageIndex := 2;  
11.     //etc.  
12.   end;  
13. end;
14.  

[Pe3s]

Everything would be ok if there were no duplicate icons

[paweld]

You need to add a column condition 

Code: Pascal  [Select][+][-]

1. procedure TForm1.VSTGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode;  
2.   Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean; var ImageIndex: Integer);  
3. var  
4.   nl: Integer;  
5. begin  
6.   if Column = 0 then  
7.   begin    
8.     nl := Sender.GetNodeLevel(Node);  
9.     case nl of  
10.       0:  ImageIndex := 0;  //root  
11.       1..3: ImageIndex := 1;  //child level between 1 and 3  
12.       4..6: ImageIndex := 2;  
13.       //etc.  
14.     end;  
15.   end;  
16. end;
17.  

[Pe3s]

@paweld Thank you