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;
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;