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.44 by yoffy, Thu Sep 9 04:16:12 2004 UTC revision 1.45 by yoffy, Fri Sep 10 15:33:09 2004 UTC
# Line 278  begin Line 278  begin
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    
# Line 294  begin Line 294  begin
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
# Line 304  begin Line 304  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;
# Line 318  begin Line 318  begin
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    
# Line 354  begin Line 354  begin
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
# Line 382  begin Line 382  begin
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
# Line 409  begin Line 409  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;

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

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