| 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; |
| 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)); |
| 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言語読み出し |
| 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; |
| 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; |
| 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; |
| 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 |
|
|
| 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; |
| 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; |