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.3 by h677, Thu Sep 4 08:22:06 2003 UTC revision 1.3.2.1 by yoffy, Mon Apr 19 22:46:48 2004 UTC
# Line 47  procedure TFavoriteAddDialog.FormCreate( Line 47  procedure TFavoriteAddDialog.FormCreate(
47  var  var
48          i: Integer;          i: Integer;
49  begin  begin
50            FolderTreeView.Items.BeginUpdate;
51          FolderTreeView.Items := FavoriteDM.TreeView.Items;          FolderTreeView.Items := FavoriteDM.TreeView.Items;
   
52          for i := FolderTreeView.Items.Count - 1 downto 0 do begin          for i := FolderTreeView.Items.Count - 1 downto 0 do begin
53                  if not (TObject(FolderTreeView.Items[i].Data) is TFavoriteFolder) then                  if not (TObject(FolderTreeView.Items[i].Data) is TFavoriteFolder) then
54                          FolderTreeView.Items[i].Delete;                          FolderTreeView.Items[i].Delete;
# Line 58  begin Line 58  begin
58                  FolderTreeView.Items.GetFirstNode.Expanded := True;                  FolderTreeView.Items.GetFirstNode.Expanded := True;
59                  FolderTreeView.Items.GetFirstNode.Selected := True;                  FolderTreeView.Items.GetFirstNode.Selected := True;
60          end;          end;
61        FolderTreeView.Items.EndUpdate;
62    
63  {       Node := FolderTreeView.Items.AddChild(nil, GikoForm.Favorite.Root.Title);  {       Node := FolderTreeView.Items.AddChild(nil, GikoForm.Favorite.Root.Title);
64          Node.ImageIndex := 0;          Node.ImageIndex := 0;
65          Node.Data := GikoForm.Favorite.Root;          Node.Data := GikoForm.Favorite.Root;
# Line 114  begin Line 116  begin
116          FavNode := GetGikoFavoriteNode(FolderTreeView.Selected.Data);          FavNode := GetGikoFavoriteNode(FolderTreeView.Selected.Data);
117          if FavNode <> nil then begin          if FavNode <> nil then begin
118                  if FBoard <> nil then begin                  if FBoard <> nil then begin
119                          FavoBoardItem := TFavoriteBoardItem.Create;                          FavoBoardItem := TFavoriteBoardItem.Create( FBoard.URL, FBoard.Title, FBoard );
                         FavoBoardItem.BBSID := FBoard.BBSID;  
                         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 := 15;                          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( FThreadItem.URL, FThreadItem.Title, FThreadItem );
                         FavoThreadItem.BBSID := FThreadItem.ParentBoard.BBSID;  
                         FavoThreadItem.ThreadID := FThreadItem.FileName;  
                         FavoThreadItem.ThreadName := FThreadItem.Title;  
125                          Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, CaptionEdit.Text, FavoThreadItem);                          Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, CaptionEdit.Text, FavoThreadItem);
126                          Node.ImageIndex := 16;                          Node.ImageIndex := 16;
127                          Node.SelectedIndex := 16;                          Node.SelectedIndex := 16;

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.2.1

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