キャビネットの表示順が変わらないように修正

diff --git a/Giko.pas b/Giko.pas
index 98e9843..28f5d39 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -2158,14 +2158,22 @@ begin
        TreeView.Items.BeginUpdate;
        TreeView.Items.Clear;
        try
-       if not inBBS.IsBoardFileRead then
-       GikoSys.ReadBoardFile( inBBS );
+               if not inBBS.IsBoardFileRead then
+                       GikoSys.ReadBoardFile( inBBS );
                try
                        if SplashWindow <> nil then
                                SplashWindow.ProgressBar.Max := inBBS.Count;
                except
                end;
 
+               // \83L\83\83\83r\83l\83b\83g\95\\8e¦\91O\82É\8dÄ\83\\81[\83g
+               if ( GikoSys.Setting.BBSSortIndex <> 0 ) or ( GikoSys.Setting.BBSSortOrder <> true ) then begin
+                       Sort.SortOrder := true;
+                       Sort.SortIndex := 0;
+                       Sort.SortNoFlag := true;
+                       inBBS.Sort(CategorySortProc);
+               end;
+
                Root                                                            := TreeView.Items.Add( nil, inBBS.Title );
                Root.ImageIndex                 := ITEM_ICON_2CH1;
                Root.SelectedIndex      := ITEM_ICON_2CH2;
@@ -2177,6 +2185,14 @@ begin
                        CategoryNode.ImageIndex := ITEM_ICON_CATEGORY1;
                        CategoryNode.SelectedIndex := ITEM_ICON_CATEGORY2;
 
+                       // \83L\83\83\83r\83l\83b\83g\95\\8e¦\91O\82É\8dÄ\83\\81[\83g
+                       if ( GikoSys.Setting.CategorySortIndex <> 0 ) or ( GikoSys.Setting.CategorySortOrder <> true ) then begin
+                               Sort.SortOrder := true;
+                               Sort.SortIndex := 0;
+                               Sort.SortNoFlag := true;
+                               Category.CustomSort(BoardSortProc);
+                       end;
+
                        for j := 0 to Category.Count - 1 do begin
                                Board := TBoard(Category.Items[j]);
                                Board.BeginUpdate;