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.147 by yoffy, Wed Nov 26 03:49:38 2003 UTC revision 1.148 by yoffy, Wed Nov 26 03:57:48 2003 UTC
# Line 1858  end; Line 1858  end;
1858  procedure TGikoForm.ReloadBBS;  procedure TGikoForm.ReloadBBS;
1859  var  var
1860          i                       : Integer;          i                       : Integer;
1861      item  : TBBSMenuItem;
1862  begin  begin
1863          //タブクローズ          //タブクローズ
1864          NotSelectTabCloseAction.Execute;          NotSelectTabCloseAction.Execute;
# Line 1883  begin Line 1884  begin
1884          FTreeType := gttNone;          FTreeType := gttNone;
1885    
1886          GikoSys.ReadBoardFile;          //ボードファイル読込          GikoSys.ReadBoardFile;          //ボードファイル読込
1887            // メニューを削除
1888            for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin
1889                    try
1890                            if CabinetSelectPopupMenu.Items[ i ] is TBBSMenuItem then begin
1891                                    //CabinetSelectPopupMenu.Items[ i ].Free;
1892                                    CabinetSelectPopupMenu.Items.Delete( i );
1893                                    CabinetMenu.Delete( i );
1894                            end;
1895                    except
1896                    end;
1897            end;
1898            // メニューに追加
1899            for i := Length( BBSs ) - 1 downto 0 do begin
1900                    try
1901                            item                                    := TBBSMenuItem.Create( PopupMenu );
1902                            item.Caption    := BBSs[ i ].Title;
1903                            item.Data                       := BBSs[ i ];
1904                            item.OnClick    := BBSMenuItemOnClick;
1905                            CabinetSelectPopupMenu.Items.Insert( 0, item );
1906                            item                                    := TBBSMenuItem.Create( PopupMenu );
1907                            item.Caption    := BBSs[ i ].Title;
1908                            item.Data                       := BBSs[ i ];
1909                            item.OnClick    := BBSMenuItemOnClick;
1910                            CabinetMenu.Insert( 0, item );
1911                    except
1912                    end;
1913            end;
1914          ShowBBSTree( BBSs[ 0 ] );          ShowBBSTree( BBSs[ 0 ] );
1915    
1916          // 履歴読み込み          // 履歴読み込み

Legend:
Removed from v.1.147  
changed lines
  Added in v.1.148

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