Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoSystem.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.102 by h677, Sun Dec 7 11:46:51 2003 UTC revision 1.103 by h677, Mon Dec 8 04:45:17 2003 UTC
# Line 620  begin Line 620  begin
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

Legend:
Removed from v.1.102  
changed lines
  Added in v.1.103

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