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.4 by yoffy, Fri Nov 21 17:24:50 2003 UTC revision 1.5 by yoffy, Sat Nov 22 15:10:18 2003 UTC
# Line 114  begin Line 114  begin
114          FavNode := GetGikoFavoriteNode(FolderTreeView.Selected.Data);          FavNode := GetGikoFavoriteNode(FolderTreeView.Selected.Data);
115          if FavNode <> nil then begin          if FavNode <> nil then begin
116                  if FBoard <> nil then begin                  if FBoard <> nil then begin
117                          FavoBoardItem := TFavoriteBoardItem.Create;                          FavoBoardItem := TFavoriteBoardItem.Create( FBoard.URL, FBoard.Title, FBoard );
                         FavoBoardItem.Item := FBoard;  
                         FavoBoardItem.Title := FBoard.Title;  
118                          Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, CaptionEdit.Text, FavoBoardItem);                          Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, CaptionEdit.Text, FavoBoardItem);
119                          Node.ImageIndex := 15;                          Node.ImageIndex := 15;
120                          Node.SelectedIndex := 15;                          Node.SelectedIndex := 15;
121                  end else if FThreadItem <> nil then begin                  end else if FThreadItem <> nil then begin
122                          FavoThreadItem := TFavoriteThreadItem.Create;                          FavoThreadItem := TFavoriteThreadItem.Create( FThreadItem.URL, FThreadItem.Title, FThreadItem );
                         FavoThreadItem.Item := FThreadItem;  
                         FavoThreadItem.Title := FThreadItem.Title;  
123                          Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, CaptionEdit.Text, FavoThreadItem);                          Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, CaptionEdit.Text, FavoThreadItem);
124                          Node.ImageIndex := 16;                          Node.ImageIndex := 16;
125                          Node.SelectedIndex := 16;                          Node.SelectedIndex := 16;

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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