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.209 by yoffy, Sun Mar 7 16:38:04 2004 UTC revision 1.210 by yoffy, Mon Mar 8 05:28:46 2004 UTC
# Line 1144  begin Line 1144  begin
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
# Line 1825  begin Line 1824  begin
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
# Line 1890  begin Line 1889  begin
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    

Legend:
Removed from v.1.209  
changed lines
  Added in v.1.210

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