• R/O
  • HTTP
  • SSH
  • HTTPS

gikonavi: Commit


Commit MetaInfo

Revision4a7988bea46257f160f00e189aaf44d2bc6a7ce6 (tree)
Time2006-01-01 01:32:24
Authorh677 <h677>
Commiterh677

Log Message

ギコナビを連続で起動したときに例外が発生し、フォームレイアウトが壊れる不具合の修正(再修正)

Change Summary

Incremental Difference

--- a/Giko.pas
+++ b/Giko.pas
@@ -869,6 +869,7 @@ begin
869869 Writeln(' 終了時は、ギコナビウィンドウを閉じてください');
870870 Writeln('============================================================');
871871 {$ENDIF}
872+//try
872873 FTreeType := gttNone;
873874 // 起動時に保存されてしまう対策
874875 FStartUp := true;
@@ -968,10 +969,14 @@ begin
968969
969970 // ボードファイル列挙(ReadFavorite より先に行うこと)
970971 GikoSys.ListBoardFile;
971-
972+ // 連続起動時にスプラッシュウィンドウのメモリが不定に
973+ try
972974 // スプラッシュウィンドウのプログレスバーの設定
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;
975980 // すべてのBBSを読み込んでおく
976981 for i := Length(BBSs) - 1 downto 0 do begin
977982 if not BBSs[i].IsBoardFileRead then
@@ -982,6 +987,7 @@ begin
982987 SplashWindow.Update;
983988 end;
984989 end;
990+
985991 //巡回データ読み込み
986992 RoundList := TRoundList.Create;
987993 RoundList.LoadRoundBoardFile;
Show on old repository browser