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.7 by h677, Wed May 18 14:36:11 2005 UTC revision 1.511.2.8 by h677, Thu May 19 14:35:17 2005 UTC
# Line 1757  begin Line 1757  begin
1757          // 起動時に保存されてしまう対策 3          // 起動時に保存されてしまう対策 3
1758          FIsIgnoreResize := rtResizing;          FIsIgnoreResize := rtResizing;
1759    
1760    
1761          // すべてのBBSを読み込んでおく          // すべてのBBSを読み込んでおく
1762          for i := Length(BBSs) - 1 downto 0 do begin          for i := Length(BBSs) - 1 downto 0 do begin
1763                  if not BBSs[i].IsBoardFileRead then                  if not BBSs[i].IsBoardFileRead then
1764                          GikoSys.ReadBoardFile(BBSs[i]);                          GikoSys.ReadBoardFile(BBSs[i]);
1765    
1766                    if SplashWindow <> nil then begin
1767                            SplashWindow.ProgressBar.StepBy(20);
1768                            Application.ProcessMessages;
1769                    end;
1770          end;          end;
1771    
1772          //巡回データ読み込み          //巡回データ読み込み
# Line 2379  begin Line 2385  begin
2385                          GikoSys.ReadBoardFile( inBBS );                          GikoSys.ReadBoardFile( inBBS );
2386                  try                  try
2387                          if SplashWindow <> nil then                          if SplashWindow <> nil then
2388                                  SplashWindow.ProgressBar.Max := inBBS.Count;                                  //SplashWindow.ProgressBar.Max := inBBS.Count;
2389                                    SplashWindow.ProgressBar.Max := inBBS.Count + Length(BBSs) * 20;
2390                  except                  except
2391                  end;                  end;
2392    
# Line 3590  begin Line 3597  begin
3597                  else                  else
3598                          ATitle := Item.ThreadItem.Title;                          ATitle := Item.ThreadItem.Title;
3599                  if ATitle = '' then                  if ATitle = '' then
3600              ATitle := GikoSys.Setting.GetMessage(Ord(gmUnKnown));                          ATitle := GikoSys.Setting.GetMessage(Ord(gmUnKnown));
3601    
3602                  if Item.State in [gdsComplete, gdsDiffComplete] then begin                  if Item.State in [gdsComplete, gdsDiffComplete] then begin
3603                          //正常終了                          //正常終了
3604                          if Item.DownType = gdtBoard then begin                          if Item.DownType = gdtBoard then begin
3605                                  //板                                  //板
3606                                  Item.SaveListFile;                                  Item.SaveListFile;
3607                  AddMessageList(ATitle + ' ' + GikoSys.Setting.GetMessage(Ord(gmSureItiran)), nil, gmiOK);                                  AddMessageList(ATitle + ' ' + GikoSys.Setting.GetMessage(Ord(gmSureItiran)), nil, gmiOK);
3608                  if GetActiveList = Item.Board then begin                                  if GetActiveList = Item.Board then begin
3609                                          FActiveList := nil;                                          FActiveList := nil;
3610                                          SetActiveList(Item.Board);                                          SetActiveList(Item.Board);
3611                                    end else begin
3612                                            ListView.Refresh;
3613                                  end;                                  end;
3614                                  Item.Board.Modified := True;                                  Item.Board.Modified := True;
3615                                  Item.Board.IsThreadDatRead := True;                                  Item.Board.IsThreadDatRead := True;
# Line 3610  begin Line 3619  begin
3619                                  Item.SaveItemFile;                                  Item.SaveItemFile;
3620                                  Item.ThreadItem.NewArrival := True;                                  Item.ThreadItem.NewArrival := True;
3621                                  //if (Item.ThreadItem.IsBoardPlugInAvailable) and (Item.ThreadItem.Title = '') then begin                                  //if (Item.ThreadItem.IsBoardPlugInAvailable) and (Item.ThreadItem.Title = '') then begin
3622                  if (Item.ThreadItem.ParentBoard.IsBoardPlugInAvailable) and (Item.ThreadItem.Title = '') then begin                                  if (Item.ThreadItem.ParentBoard.IsBoardPlugInAvailable) and (Item.ThreadItem.Title = '') then begin
3623                                          //boardPlugIn           := Item.ThreadItem.BoardPlugIn;                                          //boardPlugIn           := Item.ThreadItem.BoardPlugIn;
3624                      boardPlugIn         := Item.ThreadItem.ParentBoard.BoardPlugIn;                                          boardPlugIn             := Item.ThreadItem.ParentBoard.BoardPlugIn;
3625                                          Item.ThreadItem.Title := GikoSys.DivideStrLine(boardPlugIn.GetDat( DWORD( Item.ThreadItem ), 1 )).FTitle;                                          Item.ThreadItem.Title := GikoSys.DivideStrLine(boardPlugIn.GetDat( DWORD( Item.ThreadItem ), 1 )).FTitle;
3626                                          ATitle := Item.ThreadItem.Title;                                          ATitle := Item.ThreadItem.Title;
3627                                  end else if ATitle = '(名称不明)' then begin                                  end else if ATitle = '(名称不明)' then begin
# Line 3637  begin Line 3646  begin
3646                                          end;                                          end;
3647                                  end else begin                                  end else begin
3648                                          if (GetActiveContent = Item.ThreadItem) or (FActiveContent = nil) or(FActiveContent.Browser = BrowserNullTab.Browser) then                                          if (GetActiveContent = Item.ThreadItem) or (FActiveContent = nil) or(FActiveContent.Browser = BrowserNullTab.Browser) then
3649                                                  InsertBrowserTab(Item.ThreadItem);                                                                                                  InsertBrowserTab(Item.ThreadItem);
3650                                  end;                                  end;
3651    
3652                                  Application.ProcessMessages;                                                                  Application.ProcessMessages;
3653    
3654                                  if Item.State = gdsComplete then begin                                  if Item.State = gdsComplete then begin
3655                                          PlaySound('New');                                          PlaySound('New');
3656                                                                                  AddMessageList(ATitle + ' ' + GikoSys.Setting.GetMessage(Ord(gmSureSyutoku)), nil, gmiOK);                                                                                  AddMessageList(ATitle + ' ' + GikoSys.Setting.GetMessage(Ord(gmSureSyutoku)), nil, gmiOK);
3657                                          //Add by Genyakun                                                                                  //Add by Genyakun
3658                                          DiffComp := True;                                                                                  DiffComp := True;
3659                                  end else begin                                  end else begin
3660                                          PlaySound('NewDiff');                                          PlaySound('NewDiff');
3661                                          AddMessageList(ATitle + ' ' + GikoSys.Setting.GetMessage(Ord(gmSureDiff)), nil, gmiOK);                                                                                  AddMessageList(ATitle + ' ' + GikoSys.Setting.GetMessage(Ord(gmSureDiff)), nil, gmiOK);
3662                                          //Add by Genyakun                                                                                  //Add by Genyakun
3663                                          DiffComp := True;                                                                                  DiffComp := True;
3664                                  end;                                  end;
3665    
3666                                  //巡回ありの場合&1000超は巡回削除                                  //巡回ありの場合&1000超は巡回削除
# Line 3660  begin Line 3669  begin
3669                                          //Item.ThreadItem.RoundName := '';                                          //Item.ThreadItem.RoundName := '';
3670                                          AddMessageList('★1000発言を超えたので巡回を削除しました - [' + Item.ThreadItem.Title + ']', nil, gmiOK);                                          AddMessageList('★1000発言を超えたので巡回を削除しました - [' + Item.ThreadItem.Title + ']', nil, gmiOK);
3671                                  end;                                  end;
   
3672                                  TreeView.Refresh;                                  TreeView.Refresh;
3673                                    //ListViewでこのスレが含まれる板を表示しているときの更新処理
3674                                    if (ActiveList <> nil) and (ActiveList is TBoard) then begin
3675                                            if( ActiveList = Item.ThreadItem.ParentBoard ) then begin
3676                                                    SetActiveList(ActiveList);
3677                                            end;
3678                                    end else begin
3679                            ListView.Refresh;
3680                                    end;
3681                          end;                          end;
3682                          ListView.Refresh;  //                      ListView.Refresh;
3683                  end else if Item.State = gdsNotModify then begin                  end else if Item.State = gdsNotModify then begin
3684                          //変更ナシ                          //変更ナシ
3685  {                       if (Item.DownType = gdtThread) and (AddHistory(Item.ThreadItem)) then begin  {                       if (Item.DownType = gdtThread) and (AddHistory(Item.ThreadItem)) then begin
3686                                  //SetContent(Item.ThreadItem);                                  //SetContent(Item.ThreadItem);
3687                                  InsertBrowserTab(Item.ThreadItem);                                  InsertBrowserTab(Item.ThreadItem);
3688                          end;}                          end;}
3689                          AddMessageList(ATitle + ' ' + GikoSys.Setting.GetMessage(Ord(gmNotMod)), nil, gmiSAD);                                                  AddMessageList(ATitle + ' ' + GikoSys.Setting.GetMessage(Ord(gmNotMod)), nil, gmiSAD);
3690                          PlaySound('NoChange');                          PlaySound('NoChange');
3691                          Screen.Cursor := crDefault;                          Screen.Cursor := crDefault;
3692                  end else if Item.State = gdsAbort then begin                  end else if Item.State = gdsAbort then begin
# Line 7764  begin Line 7780  begin
7780          if (Length( Trim(BBSKey) ) > 0) and (Length( Trim(BBSID) ) > 0) then begin          if (Length( Trim(BBSKey) ) > 0) and (Length( Trim(BBSID) ) > 0) then begin
7781                  boardURL := GikoSys.Get2chThreadURL2BoardURL( inURL );                  boardURL := GikoSys.Get2chThreadURL2BoardURL( inURL );
7782                  Board := BBSsFindBoardFromURL( boardURL );                  Board := BBSsFindBoardFromURL( boardURL );
7783                  if Board = nil then                  //if Board = nil then
7784                          Board := BBSsFindBoardFromBBSID( BBSID );                  //      Board := BBSsFindBoardFromBBSID( BBSID );
7785    
7786                  if Board = nil then begin                  if Board = nil then begin
7787                          // ※作っても追加するところが無いので激しく保留                          // ※作っても追加するところが無いので激しく保留

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

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