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.180 by h677, Thu Dec 11 12:05:37 2003 UTC revision 1.181 by h677, Thu Dec 11 19:41:13 2003 UTC
# Line 1134  begin Line 1134  begin
1134    
1135          RoundList.LoadRoundThreadFile;          RoundList.LoadRoundThreadFile;
1136    
1137      if RoundList.OldFileRead then      if RoundList.OldFileRead or ( RoundList.Count[grtItem] > 0 ) then
1138          GikoSys.ReadBoardFile;          GikoSys.ReadBoardFile;
1139    
   
1140      //  SetBoardTreeNode;                                                                               //ツリーにボード追加      //  SetBoardTreeNode;                                                                               //ツリーにボード追加
1141          // メニューに追加          // メニューに追加
1142          for i := Length( BBSs ) - 1 downto 0 do begin          for i := Length( BBSs ) - 1 downto 0 do begin
# Line 1562  begin Line 1561  begin
1561                  end else begin                  end else begin
1562                          CanClose := True;                          CanClose := True;
1563                  end;                  end;
1564          Application.OnDeactivate := nil;  //      Application.OnDeactivate := nil;
1565          Self.OnDeactivate := nil;  //      Self.OnDeactivate := nil;
1566    
1567          //column幅          //column幅
1568          if GetActiveList is TBBS then begin          if GetActiveList is TBBS then begin
# Line 1638  begin Line 1637  begin
1637          except          except
1638          end;          end;
1639    
         //巡回リスト保存&破棄  
         try  
                 RoundList.SaveRoundFile;  
         except  
         end;  
   
         try  
                 RoundList.Clear;  
         except  
         end;  
         try  
                 RoundList.Free;  
         except  
         end;  
   
1640          //ヒストリリスト保存          //ヒストリリスト保存
1641          try          try
1642                  SaveHistory;                  SaveHistory;
# Line 1676  begin Line 1660  begin
1660          except          except
1661          end;          end;
1662    
1663    
1664    
1665  //      FDownload.Free;  //      FDownload.Free;
1666          try          try
1667                  SetActiveList(nil);                  //SetActiveList(nil);
1668          except          except
1669          end;          end;
1670    
# Line 1731  begin Line 1717  begin
1717          except          except
1718          end;          end;
1719    
1720            //巡回リスト保存&破棄
1721            try
1722                    RoundList.SaveRoundFile;
1723            except
1724            end;
1725    
1726            try
1727                    RoundList.Clear;
1728            except
1729            end;
1730            try
1731                    RoundList.Free;
1732            except
1733            end;
1734    
1735          try          try
1736                  //Hint破棄                  //Hint破棄
1737                  if FHint <> nil then begin                  if FHint <> nil then begin
# Line 1749  end; Line 1750  end;
1750    
1751  procedure TGikoForm.FormDestroy(Sender: TObject);  procedure TGikoForm.FormDestroy(Sender: TObject);
1752  begin  begin
1753    ;
1754  end;  end;
1755    
1756  //フォームクローズ  //フォームクローズ
1757  procedure TGikoForm.FormClose(Sender: TObject; var Action: TCloseAction);  procedure TGikoForm.FormClose(Sender: TObject; var Action: TCloseAction);
1758  begin  begin
1759    //    ListCoolBar.WindowProc := nil;
1760    //    BrowserCoolBar.WindowProc := nil;
1761    //    MainCoolBar.WindowProc := nil;
1762          Application.Terminate;          Application.Terminate;
1763          Action := caFree;          Action := caFree;
1764    //      Application.UnhookMainWindow(Hook);
1765  end;  end;
1766    
1767  //キャビネット×ボタンクリック  //キャビネット×ボタンクリック

Legend:
Removed from v.1.180  
changed lines
  Added in v.1.181

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