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