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