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.1 by hi_, Sat Aug 9 13:50:43 2003 UTC revision 1.2 by yoffy, Sat Aug 9 14:22:49 2003 UTC
# Line 105  begin Line 105  begin
105                          FavNode := GetGikoFavoriteNode(FolderTreeView.Items[i].Parent.Data);                          FavNode := GetGikoFavoriteNode(FolderTreeView.Items[i].Parent.Data);
106                          if FavNode <> nil then                          if FavNode <> nil then
107                                  Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, FolderTreeView.Items[i].Text, FolderTreeView.Items[i].Data);                                  Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, FolderTreeView.Items[i].Text, FolderTreeView.Items[i].Data);
108                                  Node.ImageIndex := 12;                                  Node.ImageIndex := 14;
109                                  Node.SelectedIndex := 13;                                  Node.SelectedIndex := 14;
110                  end;                  end;
111          end;          end;
112    
# Line 118  begin Line 118  begin
118                          FavoBoardItem.BBSID := FBoard.BBSID;                          FavoBoardItem.BBSID := FBoard.BBSID;
119                          FavoBoardItem.BoardName := FBoard.Title;                          FavoBoardItem.BoardName := FBoard.Title;
120                          Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, CaptionEdit.Text, FavoBoardItem);                          Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, CaptionEdit.Text, FavoBoardItem);
121                          Node.ImageIndex := 14;                          Node.ImageIndex := 15;
122                          Node.SelectedIndex := 15;                          Node.SelectedIndex := 15;
123                  end else if FThreadItem <> nil then begin                  end else if FThreadItem <> nil then begin
124                          FavoThreadItem := TFavoriteThreadItem.Create;                          FavoThreadItem := TFavoriteThreadItem.Create;
# Line 127  begin Line 127  begin
127                          FavoThreadItem.ThreadName := FThreadItem.Title;                          FavoThreadItem.ThreadName := FThreadItem.Title;
128                          Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, CaptionEdit.Text, FavoThreadItem);                          Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, CaptionEdit.Text, FavoThreadItem);
129                          Node.ImageIndex := 16;                          Node.ImageIndex := 16;
130                          Node.SelectedIndex := 17;                          Node.SelectedIndex := 16;
131                  end;                  end;
132          end;          end;
133    
# Line 157  begin Line 157  begin
157                                  Exit;                                  Exit;
158                          FavFolder := TFavoriteFolder.Create;                          FavFolder := TFavoriteFolder.Create;
159                          Node := FolderTreeView.Items.AddChildObject(FolderTreeView.Selected, Dlg.FolderEdit.Text, FavFolder);                          Node := FolderTreeView.Items.AddChildObject(FolderTreeView.Selected, Dlg.FolderEdit.Text, FavFolder);
160                          Node.ImageIndex := 12;                          Node.ImageIndex := 14;
161                          Node.SelectedIndex := 13;                          Node.SelectedIndex := 14;
162                          FolderTreeView.Selected := Node;                          FolderTreeView.Selected := Node;
163                  end;                  end;
164          finally          finally

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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