| 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; |
| 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; |
| 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; |