| 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 |
//巡回データ読み込み |
//巡回データ読み込み |
| 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 |
|
|
| 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; |
| 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 |
| 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超は巡回削除 |
| 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 |
| 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 |
// ※作っても追加するところが無いので激しく保留 |
// ※作っても追加するところが無いので激しく保留 |