Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.384 by genyakun, Sat Aug 7 02:29:38 2004 UTC revision 1.385 by q9_, Sat Aug 7 09:11:15 2004 UTC
# Line 2158  begin Line 2158  begin
2158          TreeView.Items.BeginUpdate;          TreeView.Items.BeginUpdate;
2159          TreeView.Items.Clear;          TreeView.Items.Clear;
2160          try          try
2161          if not inBBS.IsBoardFileRead then                  if not inBBS.IsBoardFileRead then
2162          GikoSys.ReadBoardFile( inBBS );                          GikoSys.ReadBoardFile( inBBS );
2163                  try                  try
2164                          if SplashWindow <> nil then                          if SplashWindow <> nil then
2165                                  SplashWindow.ProgressBar.Max := inBBS.Count;                                  SplashWindow.ProgressBar.Max := inBBS.Count;
2166                  except                  except
2167                  end;                  end;
2168    
2169                    // キャビネット表示前に再ソート
2170                    if ( GikoSys.Setting.BBSSortIndex <> 0 ) or ( GikoSys.Setting.BBSSortOrder <> true ) then begin
2171                            Sort.SortOrder := true;
2172                            Sort.SortIndex := 0;
2173                            Sort.SortNoFlag := true;
2174                            inBBS.Sort(CategorySortProc);
2175                    end;
2176    
2177                  Root                                                            := TreeView.Items.Add( nil, inBBS.Title );                  Root                                                            := TreeView.Items.Add( nil, inBBS.Title );
2178                  Root.ImageIndex                 := ITEM_ICON_2CH1;                  Root.ImageIndex                 := ITEM_ICON_2CH1;
2179                  Root.SelectedIndex      := ITEM_ICON_2CH2;                  Root.SelectedIndex      := ITEM_ICON_2CH2;
# Line 2177  begin Line 2185  begin
2185                          CategoryNode.ImageIndex := ITEM_ICON_CATEGORY1;                          CategoryNode.ImageIndex := ITEM_ICON_CATEGORY1;
2186                          CategoryNode.SelectedIndex := ITEM_ICON_CATEGORY2;                          CategoryNode.SelectedIndex := ITEM_ICON_CATEGORY2;
2187    
2188                            // キャビネット表示前に再ソート
2189                            if ( GikoSys.Setting.CategorySortIndex <> 0 ) or ( GikoSys.Setting.CategorySortOrder <> true ) then begin
2190                                    Sort.SortOrder := true;
2191                                    Sort.SortIndex := 0;
2192                                    Sort.SortNoFlag := true;
2193                                    Category.CustomSort(BoardSortProc);
2194                            end;
2195    
2196                          for j := 0 to Category.Count - 1 do begin                          for j := 0 to Category.Count - 1 do begin
2197                                  Board := TBoard(Category.Items[j]);                                  Board := TBoard(Category.Items[j]);
2198                                  Board.BeginUpdate;                                  Board.BeginUpdate;

Legend:
Removed from v.1.384  
changed lines
  Added in v.1.385

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