Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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; |
| 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 |
|
|
|