convert TMainmenu Items to Treeview problem

[Guest]

Message from: "koney"

 

hi,

I want convert my TMainmenu Items to Treeview but got a error a =

following.

[Error] Main.pas(85): E2010 Incompatible types: 'TUniMenuItem' and =

'TMenuItem'

how can I resolve the problem ?

procedure TMainForm.SetTree(node: TuniTreeNode; menu:TuniMenuItem);

var

i: word;

begin

if menu.Count =3D 0 then

exit;

for i :=3D 0 to menu.Count-1 do

SetTree(NavTreeView.Items.AddChild(node, menu.Items.Caption), =

menu.Items);

end;

 

 

__________ Information from ESET Smart Security, version of virus signature=

database 5693 (20101210) __________

 

The message was checked by ESET Smart Security.

 

http://www.eset.com

 

 

 

[Guest]

Message from: "Farshad Mohajeri"

 

"koney" wrote in message =

news:iZ0eTEOmLHA.2084@anaxagvs227...

hi,

I want convert my TMainmenu Items to Treeview but got a error a =

following.

[Error] Main.pas(85): E2010 Incompatible types: 'TUniMenuItem' and =

'TMenuItem'

how can I resolve the problem ?

procedure TMainForm.SetTree(node: TuniTreeNode; menu:TuniMenuItem);

var

i: word;

begin

if menu.Count =3D 0 then

exit;

for i :=3D 0 to menu.Count-1 do

SetTree(NavTreeView.Items.AddChild(node, menu.Items.Caption), =

menu.Items);

end;

 

try this:

SetTree(NavTreeView.Items.AddChild(node, menu.Items.Caption), =

TuniMenuItem(menu.Items) );