| 901 |
inCount : DWORD // レスの数 |
inCount : DWORD // レスの数 |
| 902 |
) : Boolean; stdcall; // 列挙を続けるなら True |
) : Boolean; stdcall; // 列挙を続けるなら True |
| 903 |
var |
var |
| 904 |
threadItem : TThreadItem; |
_ThreadItem : TThreadItem; // '_' はクラスのプロパティとかぶってるので |
| 905 |
boardItem : TBoard; |
boardItem : TBoard; |
| 906 |
begin |
begin |
| 907 |
Result := True; |
Result := True; |
| 911 |
index := boardItem.GetIndexFromURL( string( inURL ) ); |
index := boardItem.GetIndexFromURL( string( inURL ) ); |
| 912 |
if index = -1 then begin |
if index = -1 then begin |
| 913 |
//新しいスレッド |
//新しいスレッド |
| 914 |
threadItem := TThreadItem.Create( boardItem.BoardPlugIn, string( inURL ) ); |
_ThreadItem := TThreadItem.Create( boardItem.BoardPlugIn, string( inURL ) ); |
| 915 |
|
|
| 916 |
threadItem.Title := string( inTitle ); |
_ThreadItem.Title := string( inTitle ); |
| 917 |
// threadItem.Count := inCount; |
_ThreadItem.AllResCount := inCount; |
| 918 |
threadItem.AllResCount := inCount; |
_ThreadItem.ParentBoard := Board; |
| 919 |
threadItem.ParentBoard := Board; |
_ThreadItem.No := boardItem.IntData; |
| 920 |
threadItem.No := boardItem.IntData; |
_ThreadItem.RoundDate := ZERO_DATE; |
| 921 |
threadItem.RoundDate := ZERO_DATE; |
_ThreadItem.LastModified := ZERO_DATE; |
| 922 |
threadItem.LastModified := ZERO_DATE; |
_ThreadItem.AgeSage := gasNew; |
| 923 |
threadItem.AgeSage := gasNew; |
boardItem.ListData.Add( _ThreadItem ); |
|
boardItem.ListData.Add( threadItem ); |
|
| 924 |
end else begin |
end else begin |
|
//boardItem.Items[index].Count := Count; |
|
|
//boardItem.Items[index].Count := Rec.FCount; |
|
| 925 |
if boardItem.Items[index].No > boardItem.IntData then |
if boardItem.Items[index].No > boardItem.IntData then |
| 926 |
boardItem.Items[index].AgeSage := gasAge |
boardItem.Items[index].AgeSage := gasAge |
| 927 |
else if boardItem.Items[index].AllResCount < inCount then |
else if boardItem.Items[index].AllResCount < inCount then |
| 931 |
|
|
| 932 |
boardItem.Items[index].No := boardItem.IntData; |
boardItem.Items[index].No := boardItem.IntData; |
| 933 |
boardItem.Items[index].AllResCount := inCount; |
boardItem.Items[index].AllResCount := inCount; |
|
// if not boardItem.Items[index].IsLogFile then |
|
|
// boardItem.Items[index].Count := inCountt; |
|
| 934 |
boardItem.ListData.Add( boardItem.Items[index] ); |
boardItem.ListData.Add( boardItem.Items[index] ); |
| 935 |
boardItem.DeleteList( index ); |
boardItem.DeleteList( index ); |
| 936 |
end; |
end; |
| 988 |
//新しいスレッド |
//新しいスレッド |
| 989 |
NewItem := TThreadItem.Create( |
NewItem := TThreadItem.Create( |
| 990 |
nil, GikoSys.Get2chBoard2ThreadURL( Board, ChangeFileExt( Rec.FFileName, '' ) ) ); |
nil, GikoSys.Get2chBoard2ThreadURL( Board, ChangeFileExt( Rec.FFileName, '' ) ) ); |
|
NewItem.FileName := Rec.FFileName; |
|
| 991 |
NewItem.Title := Rec.FTitle; |
NewItem.Title := Rec.FTitle; |
|
// NewItem.Count := Rec.FCount; |
|
| 992 |
NewItem.AllResCount := Rec.FCount; |
NewItem.AllResCount := Rec.FCount; |
| 993 |
NewItem.ParentBoard := Board; |
NewItem.ParentBoard := Board; |
| 994 |
NewItem.No := NumCount; |
NewItem.No := NumCount; |
| 997 |
NewItem.AgeSage := gasNew; |
NewItem.AgeSage := gasNew; |
| 998 |
Board.ListData.Add(NewItem); |
Board.ListData.Add(NewItem); |
| 999 |
end else begin |
end else begin |
|
//Board.Items[index].Count := Count; |
|
|
//Board.Items[index].Count := Rec.FCount; |
|
| 1000 |
if Board.Items[index].No > NumCount then |
if Board.Items[index].No > NumCount then |
| 1001 |
Board.Items[index].AgeSage := gasAge |
Board.Items[index].AgeSage := gasAge |
| 1002 |
else if Board.Items[index].AllResCount < Rec.FCount then |
else if Board.Items[index].AllResCount < Rec.FCount then |
| 1004 |
else |
else |
| 1005 |
Board.Items[index].AgeSage := gasNone; |
Board.Items[index].AgeSage := gasNone; |
| 1006 |
|
|
|
|
|
| 1007 |
Board.Items[index].No := NumCount; |
Board.Items[index].No := NumCount; |
| 1008 |
Board.Items[index].AllResCount := Rec.FCount; |
Board.Items[index].AllResCount := Rec.FCount; |
|
// if not Board.Items[index].IsLogFile then |
|
|
// Board.Items[index].Count := Rec.FCount; |
|
| 1009 |
Board.ListData.Add(Board.Items[index]); |
Board.ListData.Add(Board.Items[index]); |
| 1010 |
Board.DeleteList(index); |
Board.DeleteList(index); |
| 1011 |
end; |
end; |