修訂 | 4a7988bea46257f160f00e189aaf44d2bc6a7ce6 (tree) |
---|---|
時間 | 2006-01-01 01:32:24 |
作者 | h677 <h677> |
Commiter | h677 |
ギコナビを連続で起動したときに例外が発生し、フォームレイアウトが壊れる不具合の修正(再修正)
@@ -869,6 +869,7 @@ begin | ||
869 | 869 | Writeln(' 終了時は、ギコナビウィンドウを閉じてください'); |
870 | 870 | Writeln('============================================================'); |
871 | 871 | {$ENDIF} |
872 | +//try | |
872 | 873 | FTreeType := gttNone; |
873 | 874 | // 起動時に保存されてしまう対策 |
874 | 875 | FStartUp := true; |
@@ -968,10 +969,14 @@ begin | ||
968 | 969 | |
969 | 970 | // ボードファイル列挙(ReadFavorite より先に行うこと) |
970 | 971 | GikoSys.ListBoardFile; |
971 | - | |
972 | + // 連続起動時にスプラッシュウィンドウのメモリが不定に | |
973 | + try | |
972 | 974 | // スプラッシュウィンドウのプログレスバーの設定 |
973 | - SplashWindow.ProgressBar.Max := Length(BBSs) * 20; | |
974 | - | |
975 | + if (SplashWindow <> nil) then begin | |
976 | + SplashWindow.ProgressBar.Max := Length(BBSs) * 20; | |
977 | + end; | |
978 | + except | |
979 | + end; | |
975 | 980 | // すべてのBBSを読み込んでおく |
976 | 981 | for i := Length(BBSs) - 1 downto 0 do begin |
977 | 982 | if not BBSs[i].IsBoardFileRead then |
@@ -982,6 +987,7 @@ begin | ||
982 | 987 | SplashWindow.Update; |
983 | 988 | end; |
984 | 989 | end; |
990 | + | |
985 | 991 | //巡回データ読み込み |
986 | 992 | RoundList := TRoundList.Create; |
987 | 993 | RoundList.LoadRoundBoardFile; |