| 49 |
newNode : TTreeNode; |
newNode : TTreeNode; |
| 50 |
begin |
begin |
| 51 |
while src <> nil do begin |
while src <> nil do begin |
| 52 |
if src.HasChildren then begin |
if TObject( src.Data ) is TFavoriteFolder then begin |
| 53 |
newNode := FolderTreeView.Items.AddChildObject( dst, src.Text, src.Data ); |
newNode := FolderTreeView.Items.AddChildObject( dst, src.Text, src.Data ); |
| 54 |
newNode.ImageIndex := src.ImageIndex; |
newNode.ImageIndex := src.ImageIndex; |
| 55 |
newNode.SelectedIndex := src.SelectedIndex; |
newNode.SelectedIndex := src.SelectedIndex; |
| 70 |
FolderTreeView.Items.Clear; |
FolderTreeView.Items.Clear; |
| 71 |
src := FavoriteDM.TreeView.Items.GetFirstNode; |
src := FavoriteDM.TreeView.Items.GetFirstNode; |
| 72 |
node := TTreeNode.Create( FolderTreeView.Items ); |
node := TTreeNode.Create( FolderTreeView.Items ); |
| 73 |
|
node := FolderTreeView.Items.AddFirst( node, src.Text ); |
| 74 |
node.Data := src.Data; |
node.Data := src.Data; |
| 75 |
node.ImageIndex := src.ImageIndex; |
node.ImageIndex := src.ImageIndex; |
| 76 |
node.SelectedIndex := src.SelectedIndex; |
node.SelectedIndex := src.SelectedIndex; |
|
node.HasChildren := True; |
|
|
node := FolderTreeView.Items.AddFirst( node, src.Text ); |
|
| 77 |
CopyTree( node, src.getFirstChild ); |
CopyTree( node, src.getFirstChild ); |
| 78 |
|
|
| 79 |
if FolderTreeView.Items.GetFirstNode <> nil then begin |
if FolderTreeView.Items.GetFirstNode <> nil then begin |
| 122 |
if FolderTreeView.Selected = nil then |
if FolderTreeView.Selected = nil then |
| 123 |
Exit; |
Exit; |
| 124 |
|
|
| 125 |
Node := FolderTreeView.Items.GetFirstNode.getFirstChild; |
Node := FolderTreeView.Items.GetFirstNode; |
| 126 |
while Node <> nil do begin |
while Node <> nil do begin |
| 127 |
FavNode := GetGikoFavoriteNode(Node.Data); |
FavNode := GetGikoFavoriteNode(Node.Data); |
| 128 |
if FavNode = nil then begin |
if FavNode = nil then begin |
| 129 |
FavNode := GetGikoFavoriteNode(Node.Parent.Data); |
if Node.Parent <> nil then |
| 130 |
|
FavNode := GetGikoFavoriteNode(Node.Parent.Data); |
| 131 |
if FavNode <> nil then begin |
if FavNode <> nil then begin |
| 132 |
NewNode := FavoriteDM.TreeView.Items.AddChildObject(FavNode, Node.Text, Node.Data); |
NewNode := FavoriteDM.TreeView.Items.AddChildObject(FavNode, Node.Text, Node.Data); |
| 133 |
NewNode.ImageIndex := 14; |
NewNode.ImageIndex := 14; |