how can i select all items of Level?

[majid.ebru]

Hi
.
i have a treeview.
.
how can i print all of red color items in a memo??(or green color items or blue ....)

[taazz]

there you go a bit better version of the text based selection.

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

1. procedure SelectNodeByText(const aTreeView:TTreeView; aNodelevel:Integer);
2. var
3.   vNode     : TTreeNode = nil;
4.   vLastNode : TTreeNode = nil;
5. begin
6.   for vNode in aTreeView.Items do begin
7.     if vNode.Level = aNodelevel then begin
8.       vLastNode := vNode;
9.       vNode.Selected := True;
10.       if not aTreeView.MultiSelect then Break;
11.     end;
12.   end;
13.   if Assigned(vLastNode) then vLastNode.Focused := True;
14. end;
15.  

As always no cpu or compiler was harmed.

[howardpc]

Here's an example.

[majid.ebru]

there you go a bit better version of the text based selection.

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

1. procedure SelectNodeByText(const aTreeView:TTreeView; aNodelevel:Integer);
2. var
3.   vNode     : TTreeNode = nil;
4.   vLastNode : TTreeNode = nil;
5. begin
6.   for vNode in aTreeView.Items do begin
7.     if vNode.Level = aNodelevel then begin
8.       vLastNode := vNode;
9.       vNode.Selected := True;
10.       if not aTreeView.MultiSelect then Break;
11.     end;
12.   end;
13.   if Assigned(vLastNode) then vLastNode.Focused := True;
14. end;
15.  

As always no cpu or compiler was harmed.

Hi
sorry for late.
.
this code doesn't work correctly?!?!
.
??
i change your code to this and it work
thankyou

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

1. procedure SelectNodeByText(const aTreeView:TTreeView; aNodelevel:Integer);
2. var
3.   i:Integer;
4. begin
5.   for i := 0 to aTreeView.Items.Count -1 do  begin
6.     if( aTreeView.Items[i].Level = aNodelevel)then
7.     FormMain.Memo2.Lines.Add( aTreeView.Items[i].Text);
8.   end;
9.  
10. end;
11.  

[frederic]

majid.ebru,

you started this thread with an image of a treeview which has its root node location at the right side of the screen in stead of what one normally sees at the left.

how did you achieve this in lazarus?

frederic

[majid.ebru]

hi @frederic
see this topic