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.511.2.6 by h677, Tue May 17 14:32:51 2005 UTC revision 1.511.2.7 by h677, Wed May 18 14:36:11 2005 UTC
# Line 1523  begin Line 1523  begin
1523          // 外部板プラグインをロード(ReadBoardFile, LoadHistory より先に行うこと)          // 外部板プラグインをロード(ReadBoardFile, LoadHistory より先に行うこと)
1524          InitializeBoardPlugIns;          InitializeBoardPlugIns;
1525    
1526          //巡回データ読み込み  {       //巡回データ読み込み
1527          RoundList := TRoundList.Create;          RoundList := TRoundList.Create;
1528          RoundList.LoadRoundBoardFile;          RoundList.LoadRoundBoardFile;
1529    }
1530          // ボードファイル列挙(ReadFavorite より先に行うこと)          // ボードファイル列挙(ReadFavorite より先に行うこと)
1531          GikoSys.ListBoardFile;          GikoSys.ListBoardFile;
1532    
1533          RoundList.LoadRoundThreadFile;  {       RoundList.LoadRoundThreadFile;
1534    
1535          if RoundList.OldFileRead or ( RoundList.Count[grtItem] > 0 ) then          if RoundList.OldFileRead or ( RoundList.Count[grtItem] > 0 ) then
1536                  GikoSys.ListBoardFile;                  GikoSys.ListBoardFile;
1537    }
1538    
1539          // メニューに追加          // メニューに追加
1540          SetBBSMenu;          SetBBSMenu;
# Line 1763  begin Line 1763  begin
1763                          GikoSys.ReadBoardFile(BBSs[i]);                          GikoSys.ReadBoardFile(BBSs[i]);
1764          end;          end;
1765    
1766            //巡回データ読み込み
1767            RoundList := TRoundList.Create;
1768            RoundList.LoadRoundBoardFile;
1769            RoundList.LoadRoundThreadFile;
1770    
1771            //if RoundList.OldFileRead or ( RoundList.Count[grtItem] > 0 ) then
1772            //      GikoSys.ListBoardFile;
1773    
1774          //引数があったらスレを開く(未取得ならダウンロード)          //引数があったらスレを開く(未取得ならダウンロード)
1775          for i := 1 to ParamCount do     begin          for i := 1 to ParamCount do     begin
1776                  MoveToURL(ParamStr(i));                  MoveToURL(ParamStr(i));
# Line 1797  begin Line 1805  begin
1805          if GikoSys.Setting.GestureEnabled then          if GikoSys.Setting.GestureEnabled then
1806                  MouseGesture.SetHook( Handle );                  MouseGesture.SetHook( Handle );
1807    
1808      //2ch言語読み出し          //2ch言語読み出し
1809      GikoSys.Setting.SetMessages;      GikoSys.Setting.SetMessages;
1810      {      {
1811          //2ch言語読み出し          //2ch言語読み出し
# Line 2333  begin Line 2341  begin
2341                  if not BBSs[i].IsBoardFileRead then                  if not BBSs[i].IsBoardFileRead then
2342                          GikoSys.ReadBoardFile(BBSs[i]);                          GikoSys.ReadBoardFile(BBSs[i]);
2343          end;          end;
2344    
2345            //巡回リスト保存&破棄
2346            try
2347                    RoundList.SaveRoundFile;
2348            except
2349            end;
2350            try
2351                    RoundList.Clear;
2352            except
2353            end;
2354            RoundList.LoadRoundBoardFile;
2355            RoundList.LoadRoundThreadFile;
2356    
2357          //          //
2358          TabsOpenAction.Execute;          TabsOpenAction.Execute;
2359  end;  end;
# Line 2612  begin Line 2633  begin
2633                          gvtUser: ListView.Items.Count := Board.GetUserThreadCount;                          gvtUser: ListView.Items.Count := Board.GetUserThreadCount;
2634                  end;                  end;
2635                  }                  }
2636    
2637                    Board.LogThreadCount := Board.GetLogThreadCount;
2638                    Board.NewThreadCount := Board.GetNewThreadCount;
2639                    Board.UserThreadCount:= Board.GetUserThreadCount;
2640    
2641                  case GikoForm.ViewType of                  case GikoForm.ViewType of
2642                          gvtAll: ListView.Items.Count := Board.Count;                          gvtAll: ListView.Items.Count := Board.Count;
2643                          gvtLog: ListView.Items.Count := Board.LogThreadCount;                          gvtLog: ListView.Items.Count := Board.LogThreadCount;
# Line 2750  begin Line 2776  begin
2776                  else                  else
2777                          ListView.StateImages := nil;                          ListView.StateImages := nil;
2778    
2779    
2780                  case GikoForm.ViewType of                  case GikoForm.ViewType of
2781                          gvtAll: BoardCnt := Board.Count;                          gvtAll: BoardCnt := Board.Count;
2782                          gvtLog: BoardCnt := Board.LogThreadCount;                          gvtLog: BoardCnt := Board.LogThreadCount;
# Line 3630  begin Line 3657  begin
3657                                  //巡回ありの場合&1000超は巡回削除                                  //巡回ありの場合&1000超は巡回削除
3658                                  if (Item.ThreadItem.Round) and (Item.ThreadItem.Count > 1000) then begin                                  if (Item.ThreadItem.Round) and (Item.ThreadItem.Count > 1000) then begin
3659                                          Item.ThreadItem.Round := False;                                          Item.ThreadItem.Round := False;
3660                                          Item.ThreadItem.RoundName := '';                                          //Item.ThreadItem.RoundName := '';
3661                                          AddMessageList('★1000発言を超えたので巡回を削除しました - [' + Item.ThreadItem.Title + ']', nil, gmiOK);                                          AddMessageList('★1000発言を超えたので巡回を削除しました - [' + Item.ThreadItem.Title + ']', nil, gmiOK);
3662                                  end;                                  end;
3663    
# Line 6904  begin Line 6931  begin
6931                  Dlg.ShowModal;                  Dlg.ShowModal;
6932                  if Dlg.ModalResult <> mrCancel then begin                  if Dlg.ModalResult <> mrCancel then begin
6933                          s := Trim(Dlg.RoundNameEdit.Text);                          s := Trim(Dlg.RoundNameEdit.Text);
6934                          RoundList.RoundNameList.Add(s);                          //RoundList.RoundNameList.Add(s);
6935                          SetSelectItemRound(True, s, TMenuItem(Sender).Parent.Name);                          SetSelectItemRound(True, s, TMenuItem(Sender).Parent.Name);
6936              ListView.Refresh;              ListView.Refresh;
6937                  end;                  end;
# Line 6921  begin Line 6948  begin
6948      end else begin      end else begin
6949          threadItem := GetActiveContent;          threadItem := GetActiveContent;
6950                  if threadItem <> nil then begin                  if threadItem <> nil then begin
6951                  threadItem.RoundName := RoundName;                          threadItem.RoundName := RoundName;
6952              threadItem.Round := RoundFlag;                          threadItem.Round := RoundFlag;
6953          end;          end;
6954      end;      end;
6955  end;  end;

Legend:
Removed from v.1.511.2.6  
changed lines
  Added in v.1.511.2.7

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