Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/FavoriteAdd.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.9 by yoffy, Wed Aug 4 16:51:46 2004 UTC revision 1.10 by yoffy, Fri Aug 6 08:06:21 2004 UTC
# Line 49  var Line 49  var
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;
# Line 70  begin Line 70  begin
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
# Line 123  begin Line 122  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;

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26