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.12 by yoffy, Mon Nov 24 07:58:29 2003 UTC revision 1.13 by yoffy, Mon Nov 24 12:02:15 2003 UTC
# Line 432  begin Line 432  begin
432                  end else if TObject(Node.Item[i].Data) is TFavoriteBoardItem then begin                  end else if TObject(Node.Item[i].Data) is TFavoriteBoardItem then begin
433                          FavBoard := TFavoriteBoardItem(Node.Item[i].Data);                          FavBoard := TFavoriteBoardItem(Node.Item[i].Data);
434                          s := Format('<favitem type="2ch" favtype="board" url="%s" title="%s"/>',                          s := Format('<favitem type="2ch" favtype="board" url="%s" title="%s"/>',
435                                                                          [HtmlEncode( FavBoard.URL ), HtmlEncode(FavBoard.Title)]);                                                                          [HtmlEncode( FavBoard.URL ), HtmlEncode(Node.Item[ i ].Text)]);
436                          SaveList.Add(s);                          SaveList.Add(s);
437                  end else if TObject(Node.Item[i].Data) is TFavoriteThreadItem then begin                  end else if TObject(Node.Item[i].Data) is TFavoriteThreadItem then begin
438                          FavThread := TFavoriteThreadItem(Node.Item[i].Data);                          FavThread := TFavoriteThreadItem(Node.Item[i].Data);
439                          s := Format('<favitem type="2ch" favtype="thread" url="%s" title="%s"/>',                          s := Format('<favitem type="2ch" favtype="thread" url="%s" title="%s"/>',
440                                                                          [HtmlEncode( FavThread.URL ), HtmlEncode(FavThread.Title)]);                                                                          [HtmlEncode( FavThread.URL ), HtmlEncode(Node.Item[ i ].Text)]);
441                          SaveList.Add(s);                          SaveList.Add(s);
442                  end;                  end;
443          end;          end;

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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