АААА сссори решил проблему - если что вот код
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | procedure TForm1.MoveNode(TargetNode, SourceNode: TTreeNode);
var
nodeTmp: TTreeNode;
i: Integer;
begin
with TreeView1 do
begin
nodeTmp := Items.AddChild(TargetNode, SourceNode.Text);
nodetmp.ImageIndex:=treeview1.Selected.ImageIndex;
nodetmp.SelectedIndex:=TreeView1.Selected.SelectedIndex;
for i := 0 to SourceNode.Count - 1 do
begin
sourcenode.ImageIndex:=sourcenode.Item[i].ImageIndex;
sourcenode.SelectedIndex:=sourcenode.Item[i].SelectedIndex;
MoveNode(nodeTmp, SourceNode.Item[i]);
end;
end;
end;
|
Но как быть с -
Код:
1 | node.expandedimageindex:=2;
|
не пашет оно....что делать?
08.05.2011, 12:20
Древовидный вид