Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.647 by h677, Sun Aug 26 13:00:41 2007 UTC revision 1.648 by h677, Sun Sep 2 10:50:22 2007 UTC
# Line 7173  var Line 7173  var
7173          ReadList                : TStringList;          ReadList                : TStringList;
7174          wordCount               : TWordCount;          wordCount               : TWordCount;
7175  {$ENDIF}  {$ENDIF}
7176      id: String;      id, dateStr: String;
7177  begin  begin
7178          No := KokoPopupMenu.Tag;          No := KokoPopupMenu.Tag;
7179          if No = 0 then Exit;          if No = 0 then Exit;
# Line 7182  begin Line 7182  begin
7182    
7183      id := GikoSys.GetResID(No, ThreadItem);      id := GikoSys.GetResID(No, ThreadItem);
7184      if (id <> '') and (not IsNoValidID(id)) then begin      if (id <> '') and (not IsNoValidID(id)) then begin
7185            // コメントとして、スレッド名と今日の日付を追加
7186            DateTimeToString(dateStr, 'yyyymmdd', Now);
7187            id := id + #9'>>add ' + dateStr + ',' + ThreadItem.Title;
7188          if (GikoSys.FAbon.AddToken(id, invisible)) then begin          if (GikoSys.FAbon.AddToken(id, invisible)) then begin
7189              GikoSys.FAbon.ReLoadFromNGwordFile;              GikoSys.FAbon.ReLoadFromNGwordFile;
7190              FActiveContent.Repaint := True;              FActiveContent.Repaint := True;

Legend:
Removed from v.1.647  
changed lines
  Added in v.1.648

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