Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Favorite.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.43 by h677, Mon Sep 6 16:40:42 2004 UTC revision 1.44 by yoffy, Thu Sep 9 04:16:12 2004 UTC
# Line 357  begin Line 357  begin
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

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