| 1144 |
RoundList := TRoundList.Create; |
RoundList := TRoundList.Create; |
| 1145 |
RoundList.LoadRoundBoardFile; |
RoundList.LoadRoundBoardFile; |
| 1146 |
|
|
| 1147 |
// ボードファイル読込(ReadFavorite より先に行うこと) |
// ボードファイル列挙(ReadFavorite より先に行うこと) |
| 1148 |
GikoSys.ReadBoardFile; |
GikoSys.ListBoardFile; |
| 1149 |
|
|
| 1150 |
RoundList.LoadRoundThreadFile; |
RoundList.LoadRoundThreadFile; |
| 1151 |
|
|
| 1152 |
if RoundList.OldFileRead or ( RoundList.Count[grtItem] > 0 ) then |
if RoundList.OldFileRead or ( RoundList.Count[grtItem] > 0 ) then |
| 1153 |
GikoSys.ReadBoardFile; |
GikoSys.ListBoardFile; |
| 1154 |
|
|
|
// SetBoardTreeNode; //ツリーにボード追加 |
|
| 1155 |
// メニューに追加 |
// メニューに追加 |
| 1156 |
for i := Length( BBSs ) - 1 downto 0 do begin |
for i := Length( BBSs ) - 1 downto 0 do begin |
| 1157 |
try |
try |
| 1824 |
|
|
| 1825 |
FTreeType := gttNone; |
FTreeType := gttNone; |
| 1826 |
|
|
| 1827 |
GikoSys.ReadBoardFile; //ボードファイル読込 |
GikoSys.ListBoardFile; //ボードファイル読込 |
| 1828 |
// メニューを削除 |
// メニューを削除 |
| 1829 |
for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin |
for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin |
| 1830 |
try |
try |
| 1889 |
TreeView.Items.BeginUpdate; |
TreeView.Items.BeginUpdate; |
| 1890 |
TreeView.Items.Clear; |
TreeView.Items.Clear; |
| 1891 |
try |
try |
| 1892 |
|
if not inBBS.IsBoardFileRead then |
| 1893 |
|
GikoSys.ReadBoardFile( inBBS ); |
| 1894 |
try |
try |
| 1895 |
if SplashWindow <> nil then |
if SplashWindow <> nil then |
| 1896 |
SplashWindow.ProgressBar.Max := BBSs[ 0 ].Count; |
SplashWindow.ProgressBar.Max := inBBS.Count; |
| 1897 |
except |
except |
| 1898 |
end; |
end; |
| 1899 |
|
|