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.30 by yoffy, Mon Aug 2 16:36:52 2004 UTC revision 1.31 by q9_, Sat Aug 7 09:52:48 2004 UTC
# Line 5  interface Line 5  interface
5  uses  uses
6          Windows, SysUtils, Classes, ComCtrls, Controls, Forms, IdHTTP,          Windows, SysUtils, Classes, ComCtrls, Controls, Forms, IdHTTP,
7          {HTTPApp,} YofUtils, IdGlobal, IdException, IdComponent, IniFiles, {DateUtils,}          {HTTPApp,} YofUtils, IdGlobal, IdException, IdComponent, IniFiles, {DateUtils,}
8          GikoSystem, BoardGroup, MonaUtils, ExternalBoardManager, ExternalBoardPlugInMain;          GikoSystem, BoardGroup, MonaUtils, ExternalBoardManager, ExternalBoardPlugInMain,
9            Sort;
10    
11  type  type
12          TDownloadItem = class;          TDownloadItem = class;
# Line 990  begin Line 991  begin
991                  Board.RoundDate := Now;                  Board.RoundDate := Now;
992                  //サーバ上ファイルの更新時刻設定                  //サーバ上ファイルの更新時刻設定
993                  Board.LastModified := LastModified;                  Board.LastModified := LastModified;
994    
995                    //dat落ちスレのソート順を決定するためにソートする
996                    Sort.SortOrder := False; //降順
997                    Sort.SortIndex := 7;     //スレ作成日時
998                    Sort.SortNonAcquiredCountFlag := GikoSys.Setting.NonAcquiredCount;
999                    Board.CustomSort(ThreadItemSortProc);
1000    
1001                  for i := Board.Count - 1 downto 0 do                  for i := Board.Count - 1 downto 0 do
1002                          Board.Items[i].AgeSage := gasNull;                          Board.Items[i].AgeSage := gasNull;
1003    

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

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