OSDN Git Service

dat落ちしたスレの番号をスレ作成日時の降順で振るようにした
authorq9_ <q9_>
Sat, 7 Aug 2004 09:52:48 +0000 (09:52 +0000)
committerq9_ <q9_>
Sat, 7 Aug 2004 09:52:48 +0000 (09:52 +0000)
ItemDownload.pas

index 1017bd9..6fc2180 100644 (file)
@@ -5,7 +5,8 @@ interface
 uses
        Windows, SysUtils, Classes, ComCtrls, Controls, Forms, IdHTTP,
        {HTTPApp,} YofUtils, IdGlobal, IdException, IdComponent, IniFiles, {DateUtils,}
-       GikoSystem, BoardGroup, MonaUtils, ExternalBoardManager, ExternalBoardPlugInMain;
+       GikoSystem, BoardGroup, MonaUtils, ExternalBoardManager, ExternalBoardPlugInMain,
+       Sort;
 
 type
        TDownloadItem = class;
@@ -990,6 +991,13 @@ begin
                Board.RoundDate := Now;
                //\83T\81[\83o\8fã\83t\83@\83C\83\8b\82Ì\8dX\90V\8e\9e\8d\8f\90Ý\92è
                Board.LastModified := LastModified;
+
+               //dat\97\8e\82¿\83X\83\8c\82Ì\83\\81[\83g\8f\87\82ð\8c\88\92è\82·\82é\82½\82ß\82É\83\\81[\83g\82·\82é
+               Sort.SortOrder := False; //\8d~\8f\87
+               Sort.SortIndex := 7;     //\83X\83\8c\8dì\90¬\93ú\8e\9e
+               Sort.SortNonAcquiredCountFlag := GikoSys.Setting.NonAcquiredCount;
+               Board.CustomSort(ThreadItemSortProc);
+
                for i := Board.Count - 1 downto 0 do
                        Board.Items[i].AgeSage := gasNull;