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.661 by h677, Sun Feb 17 17:08:13 2008 UTC revision 1.662 by h677, Sun Mar 2 03:54:08 2008 UTC
# Line 2533  begin Line 2533  begin
2533    
2534                                  //巡回ありの場合&1000超は巡回削除                                  //巡回ありの場合&1000超は巡回削除
2535                                  if (Item.ThreadItem.Round) and (Item.ThreadItem.Count > 1000) then begin                                  if (Item.ThreadItem.Round) and (Item.ThreadItem.Count > 1000) then begin
2536                                          Item.ThreadItem.Round := False;                      // 2ch以外は、1000が最高か不明なので、2ch限定にする
2537                                          //Item.ThreadItem.RoundName := '';                      if (Item.ThreadItem.ParentBoard.Is2ch) then begin
2538                                          AddMessageList('★1000発言を超えたので巡回を削除しました - [' + Item.ThreadItem.Title + ']', nil, gmiOK);                                          Item.ThreadItem.Round := False;
2539                                            AddMessageList('★1000発言を超えたので巡回を削除しました - [' + Item.ThreadItem.Title + ']', nil, gmiOK);
2540                        end;
2541                                  end;                                  end;
2542                                  TreeView.Refresh;                                  TreeView.Refresh;
2543                                  //ListViewでこのスレが含まれる板を表示しているときの更新処理                                  //ListViewでこのスレが含まれる板を表示しているときの更新処理

Legend:
Removed from v.1.661  
changed lines
  Added in v.1.662

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