Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/ItemDownload.pas

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

revision 1.17 by yoffy, Tue Nov 25 14:09:20 2003 UTC revision 1.18 by yoffy, Fri Nov 28 01:16:49 2003 UTC
# Line 901  var Line 901  var
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;
# Line 911  var Line 911  var
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
# Line 934  var Line 931  var
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;
# Line 993  begin Line 988  begin
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;
# Line 1004  begin Line 997  begin
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
# Line 1013  begin Line 1004  begin
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;

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

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