| 620 |
if usePlugIn then |
if usePlugIn then |
| 621 |
ThreadItem := TThreadItem.Create( |
ThreadItem := TThreadItem.Create( |
| 622 |
Board.BoardPlugIn, |
Board.BoardPlugIn, |
| 623 |
Board.BoardPlugIn.FileName2ThreadURL( DWORD( Board ), Rec.FFileName ) ) |
Board.BoardPlugIn.FileName2ThreadURL( DWORD( Board ), FileList[i] ) ) |
| 624 |
else |
else |
| 625 |
ThreadItem := TThreadItem.Create( |
ThreadItem := TThreadItem.Create( |
| 626 |
nil, Get2chBoard2ThreadURL( Board, ChangeFileExt( Rec.FFileName, '' ) ) ); |
nil, Get2chBoard2ThreadURL( Board, ChangeFileExt( FileList[i], '' ) ) ); |
| 627 |
|
ThreadItem.BeginUpdate; |
| 628 |
|
ThreadItem.FilePath := FileName; |
| 629 |
ThreadItem.No := Board.Count + 1; |
ThreadItem.No := Board.Count + 1; |
| 630 |
ThreadItem.FileName := FileList[i]; |
ThreadItem.FileName := FileList[i]; |
| 631 |
ThreadItem.Title := ResRec.FTitle; |
ThreadItem.Title := ResRec.FTitle; |
| 632 |
ThreadItem.Count := GetFileLineCount(FileName); |
ThreadItem.Count := GetFileLineCount(FileName); |
| 633 |
ThreadItem.AllResCount := ThreadItem.Count; |
ThreadItem.AllResCount := ThreadItem.Count; |
| 634 |
ThreadItem.NewResCount := 0; |
ThreadItem.NewResCount := ThreadItem.Count; |
| 635 |
ThreadItem.Size := 0; |
ThreadItem.Size := FileSizeByName(FileName) - ThreadItem.Count;//1byteずれるときがあるけどそれはあきらめる |
| 636 |
ThreadItem.RoundDate := ZERO_DATE; |
ThreadItem.RoundDate := ZERO_DATE; |
| 637 |
ThreadItem.LastModified := ZERO_DATE; |
ThreadItem.LastModified := ZERO_DATE; |
| 638 |
ThreadItem.Kokomade := -1; |
ThreadItem.Kokomade := -1; |
| 639 |
ThreadItem.NewReceive := 0; |
ThreadItem.NewReceive := ThreadItem.Count; |
| 640 |
ThreadItem.ParentBoard := Board; |
ThreadItem.ParentBoard := Board; |
| 641 |
ThreadItem.IsLogFile := True; |
ThreadItem.IsLogFile := True; |
| 642 |
ThreadItem.Round := False; |
ThreadItem.Round := False; |
| 643 |
ThreadItem.UnRead := False; |
ThreadItem.UnRead := False; |
| 644 |
ThreadItem.ScrollTop := 0; |
ThreadItem.ScrollTop := 0; |
| 645 |
ThreadItem.AgeSage := gasNone; |
ThreadItem.AgeSage := gasNone; |
| 646 |
|
ThreadItem.EndUpdate; |
| 647 |
Board.Add(ThreadItem); |
Board.Add(ThreadItem); |
| 648 |
end; |
end; |
| 649 |
finally |
finally |