| 278 |
FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME; |
FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME; |
| 279 |
|
|
| 280 |
FavFolder := TFavoriteFolder.Create; |
FavFolder := TFavoriteFolder.Create; |
| 281 |
Node := FTreeView.Items.AddChildObject(nil, FAVORITE_ROOT_NAME, FavFolder); |
Node := FTreeView.Items.AddChildObjectFirst(nil, FAVORITE_ROOT_NAME, FavFolder); |
| 282 |
Node.ImageIndex := 14; |
Node.ImageIndex := 14; |
| 283 |
Node.SelectedIndex := 14; |
Node.SelectedIndex := 14; |
| 284 |
|
|
| 294 |
FStack.Push(Node); |
FStack.Push(Node); |
| 295 |
LinkExists := False; |
LinkExists := False; |
| 296 |
if XMLNode.NodeName = 'favorite' then begin |
if XMLNode.NodeName = 'favorite' then begin |
| 297 |
for i := 0 to XMLNode.ChildNodes.Count - 1 do begin |
for i := XMLNode.ChildNodes.Count - 1 downto 0 do begin |
| 298 |
ReadNode(XMLNode.ChildNodes[i]); |
ReadNode(XMLNode.ChildNodes[i]); |
| 299 |
if (XMLNode.ChildNodes[i].NodeName = 'folder') and |
if (XMLNode.ChildNodes[i].NodeName = 'folder') and |
| 300 |
(XMLNode.ChildNodes[i].Attributes['title'] = FAVORITE_LINK_NAME) then begin |
(XMLNode.ChildNodes[i].Attributes['title'] = FAVORITE_LINK_NAME) then begin |
| 304 |
end; |
end; |
| 305 |
if not LinkExists then begin |
if not LinkExists then begin |
| 306 |
FavFolder := TFavoriteFolder.Create; |
FavFolder := TFavoriteFolder.Create; |
| 307 |
Node := FTreeView.Items.AddChildObject(Node, FAVORITE_LINK_NAME, FavFolder); |
Node := FTreeView.Items.AddChildObjectFirst(Node, FAVORITE_LINK_NAME, FavFolder); |
| 308 |
Node.ImageIndex := 14; |
Node.ImageIndex := 14; |
| 309 |
Node.SelectedIndex := 14; |
Node.SelectedIndex := 14; |
| 310 |
end; |
end; |
| 318 |
|
|
| 319 |
{ |
{ |
| 320 |
FavFolder := TFavoriteFolder.Create; |
FavFolder := TFavoriteFolder.Create; |
| 321 |
Node := FTreeView.Items.AddChildObject(nil, FAVORITE_ROOT_NAME, FavFolder); |
Node := FTreeView.Items.AddChildObjectFirst(nil, FAVORITE_ROOT_NAME, FavFolder); |
| 322 |
Node.ImageIndex := 12; |
Node.ImageIndex := 12; |
| 323 |
Node.SelectedIndex := 13; |
Node.SelectedIndex := 13; |
| 324 |
|
|
| 354 |
ParentNode := FStack.Peek; |
ParentNode := FStack.Peek; |
| 355 |
if TObject(ParentNode.Data) is TFavoriteFolder then begin |
if TObject(ParentNode.Data) is TFavoriteFolder then begin |
| 356 |
FavFolder := TFavoriteFolder.Create; |
FavFolder := TFavoriteFolder.Create; |
| 357 |
CurrentNode := FTreeView.Items.AddChildObject(ParentNode, Node.Attributes['title'], FavFolder); |
CurrentNode := FTreeView.Items.AddChildObjectFirst(ParentNode, Node.Attributes['title'], FavFolder); |
| 358 |
CurrentNode.ImageIndex := 14; |
CurrentNode.ImageIndex := 14; |
| 359 |
CurrentNode.SelectedIndex := 14; |
CurrentNode.SelectedIndex := 14; |
| 360 |
FStack.Push(CurrentNode); |
FStack.Push(CurrentNode); |
| 361 |
end; |
end; |
| 362 |
for i := 0 to Node.ChildNodes.Count - 1 do begin |
for i := Node.ChildNodes.Count - 1 downto 0 do begin |
| 363 |
ReadNode(Node.ChildNodes[i]); |
ReadNode(Node.ChildNodes[i]); |
| 364 |
end; |
end; |
| 365 |
if TObject(ParentNode.Data) is TFavoriteFolder then |
if TObject(ParentNode.Data) is TFavoriteFolder then |
| 382 |
FavBoard := TFavoriteBoardItem.Create( |
FavBoard := TFavoriteBoardItem.Create( |
| 383 |
Node.Attributes[ 'url' ], Node.Attributes[ 'title' ], nil ); |
Node.Attributes[ 'url' ], Node.Attributes[ 'title' ], nil ); |
| 384 |
end; |
end; |
| 385 |
CurrentNode := FTreeView.Items.AddChildObject(ParentNode, Node.Attributes['title'], FavBoard); |
CurrentNode := FTreeView.Items.AddChildObjectFirst(ParentNode, Node.Attributes['title'], FavBoard); |
| 386 |
CurrentNode.ImageIndex := 15; |
CurrentNode.ImageIndex := 15; |
| 387 |
CurrentNode.SelectedIndex := 15; |
CurrentNode.SelectedIndex := 15; |
| 388 |
end else if Node.Attributes['favtype'] = 'thread' then begin |
end else if Node.Attributes['favtype'] = 'thread' then begin |
| 409 |
FavThread := TFavoriteThreadItem.Create( |
FavThread := TFavoriteThreadItem.Create( |
| 410 |
Node.Attributes[ 'url' ], Node.Attributes[ 'title' ], nil ); |
Node.Attributes[ 'url' ], Node.Attributes[ 'title' ], nil ); |
| 411 |
end; |
end; |
| 412 |
CurrentNode := FTreeView.Items.AddChildObject(ParentNode, Node.Attributes['title'], FavThread); |
CurrentNode := FTreeView.Items.AddChildObjectFirst(ParentNode, Node.Attributes['title'], FavThread); |
| 413 |
CurrentNode.ImageIndex := 16; |
CurrentNode.ImageIndex := 16; |
| 414 |
CurrentNode.SelectedIndex := 16; |
CurrentNode.SelectedIndex := 16; |
| 415 |
end; |
end; |