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.5 by yoffy, Fri Nov 21 17:24:50 2003 UTC revision 1.6 by yoffy, Sat Nov 22 12:17:50 2003 UTC
# Line 352  begin Line 352  begin
352          for i := 0 to Node.Count - 1 do begin          for i := 0 to Node.Count - 1 do begin
353                  if TObject(Node.Item[i].Data) is TFavoriteFolder then begin                  if TObject(Node.Item[i].Data) is TFavoriteFolder then begin
354          if Node.Item[ i ].Expanded then          if Node.Item[ i ].Expanded then
355                                  s := Format('<folder title="%s" expanded="true">', [HtmlEncode(Node.Item[i].Text)])                                  s := Format('<folder title="%s" expanded="true">', [HttpEncode(Node.Item[i].Text)])
356        else        else
357                                  s := Format('<folder title="%s" expanded="false">', [HtmlEncode(Node.Item[i].Text)]);                                  s := Format('<folder title="%s" expanded="false">', [HttpEncode(Node.Item[i].Text)]);
358                          SaveList.Add(s);                          SaveList.Add(s);
359                          AddSaveString(Node.Item[i], SaveList);                          AddSaveString(Node.Item[i], SaveList);
360                          SaveList.Add('</folder>');                          SaveList.Add('</folder>');
361                  end else if TObject(Node.Item[i].Data) is TFavoriteBoardItem then begin                  end else if TObject(Node.Item[i].Data) is TFavoriteBoardItem then begin
362                          FavBoard := TFavoriteBoardItem(Node.Item[i].Data);                          FavBoard := TFavoriteBoardItem(Node.Item[i].Data);
363                          s := Format('<favitem type="2ch" favtype="board" url="%s" title="%s"/>',                          s := Format('<favitem type="2ch" favtype="board" url="%s" title="%s"/>',
364                                                                          [HtmlEncode( FavBoard.Item.URL ), HtmlEncode(FavBoard.Title)]);                                                                          [HttpEncode( FavBoard.Item.URL ), HttpEncode(FavBoard.Title)]);
365                          SaveList.Add(s);                          SaveList.Add(s);
366                  end else if TObject(Node.Item[i].Data) is TFavoriteThreadItem then begin                  end else if TObject(Node.Item[i].Data) is TFavoriteThreadItem then begin
367                          FavThread := TFavoriteThreadItem(Node.Item[i].Data);                          FavThread := TFavoriteThreadItem(Node.Item[i].Data);
368                          s := Format('<favitem type="2ch" favtype="thread" url="%s" title="%s"/>',                          s := Format('<favitem type="2ch" favtype="thread" url="%s" title="%s"/>',
369                                                                          [HtmlEncode( FavThread.Item.URL ), HtmlEncode(FavThread.Title)]);                                                                          [HttpEncode( FavThread.Item.URL ), HttpEncode(FavThread.Title)]);
370                          SaveList.Add(s);                          SaveList.Add(s);
371                  end;                  end;
372          end;          end;

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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