Develop and Download Open Source Software
Login
Create Account
Help
MY OSDN
Find Software
Magazine
Develop
Pastebin
Software
People
PersonalForge
Magazine
Wiki
OSDN
>
Find Software
>
ギコナビ(避難所版)
ギコナビ(避難所版)
Summary
Project Summary
Developer Dashboard
Project Reviews
Web Page
Developers
List of RSS Feeds
Statistics
History
Image Gallery
Search Keywords
News
Listed News
Help
Downloads
List of Releases
Help
Source Code
Guide
Browse CVS
Browse Git: gikonavi
Help
Wiki
FrontPage
Title index
Recent changes
Wiki Search
Help
Forums
List of Forums
Open Discussion (2)
Help (1)
Developers (1)
Help
Mailing Lists
list of ML
Help
Ticket
Ticket List
Milestone List
Type List
Component List
List of frequently used tickets/RSS
Submit New Ticket
Help
Browse CVS Repository
/
[OSDN]
/
gikonavigoeson
/
gikonavi
/
Giko.pas
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
|
Revision Log
|
Revision Graph
|
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;
Colored Diff
Long Colored Diff
Full Colored Diff
Unidiff
Context Diff
Side by Side
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