Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.578.2.2 by h677, Sat Dec 31 16:08:11 2005 UTC revision 1.578.2.3 by h677, Sat Dec 31 16:32:24 2005 UTC
# Line 869  begin Line 869  begin
869          Writeln(' 終了時は、ギコナビウィンドウを閉じてください');          Writeln(' 終了時は、ギコナビウィンドウを閉じてください');
870          Writeln('============================================================');          Writeln('============================================================');
871  {$ENDIF}  {$ENDIF}
872    //try
873          FTreeType := gttNone;          FTreeType := gttNone;
874          // 起動時に保存されてしまう対策          // 起動時に保存されてしまう対策
875          FStartUp := true;          FStartUp := true;
# Line 968  begin Line 969  begin
969    
970          // ボードファイル列挙(ReadFavorite より先に行うこと)          // ボードファイル列挙(ReadFavorite より先に行うこと)
971          GikoSys.ListBoardFile;          GikoSys.ListBoardFile;
972            // 連続起動時にスプラッシュウィンドウのメモリが不定に
973            try
974          // スプラッシュウィンドウのプログレスバーの設定          // スプラッシュウィンドウのプログレスバーの設定
975          SplashWindow.ProgressBar.Max := Length(BBSs) * 20;                  if (SplashWindow <> nil) then begin
976                            SplashWindow.ProgressBar.Max := Length(BBSs) * 20;
977                    end;
978            except
979            end;
980          // すべてのBBSを読み込んでおく          // すべてのBBSを読み込んでおく
981          for i := Length(BBSs) - 1 downto 0 do begin          for i := Length(BBSs) - 1 downto 0 do begin
982                  if not BBSs[i].IsBoardFileRead then                  if not BBSs[i].IsBoardFileRead then
# Line 982  begin Line 987  begin
987                          SplashWindow.Update;                          SplashWindow.Update;
988                  end;                  end;
989          end;          end;
990    
991          //巡回データ読み込み          //巡回データ読み込み
992          RoundList := TRoundList.Create;          RoundList := TRoundList.Create;
993          RoundList.LoadRoundBoardFile;          RoundList.LoadRoundBoardFile;

Legend:
Removed from v.1.578.2.2  
changed lines
  Added in v.1.578.2.3

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26