Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Favorite.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 357 |
CurrentNode := FTreeView.Items.AddChildObject(ParentNode, Node.Attributes['title'], FavFolder); |
CurrentNode := FTreeView.Items.AddChildObject(ParentNode, Node.Attributes['title'], FavFolder); |
| 358 |
CurrentNode.ImageIndex := 14; |
CurrentNode.ImageIndex := 14; |
| 359 |
CurrentNode.SelectedIndex := 14; |
CurrentNode.SelectedIndex := 14; |
|
CurrentNode.Expanded := Node.Attributes[ 'expanded' ] = 'true'; |
|
| 360 |
FStack.Push(CurrentNode); |
FStack.Push(CurrentNode); |
| 361 |
end; |
end; |
| 362 |
for i := 0 to Node.ChildNodes.Count - 1 do begin |
for i := 0 to Node.ChildNodes.Count - 1 do begin |
| 363 |
ReadNode(Node.ChildNodes[i]); |
ReadNode(Node.ChildNodes[i]); |
| 364 |
end; |
end; |
| 365 |
|
if TObject(ParentNode.Data) is TFavoriteFolder then |
| 366 |
|
CurrentNode.Expanded := Node.Attributes[ 'expanded' ] = 'true'; |
| 367 |
if FStack.Count <> 0 then |
if FStack.Count <> 0 then |
| 368 |
FStack.Pop; |
FStack.Pop; |
| 369 |
end else if Node.NodeName = 'favitem' then begin |
end else if Node.NodeName = 'favitem' then begin |
|
|
Legend:
| Removed from v.1.43 |
|
| changed lines |
| |
Added in v.1.44 |
|
|
|