| 992 |
// ブラウザのキーダウンイベント |
// ブラウザのキーダウンイベント |
| 993 |
// イベントを取り扱った場合は True を返す |
// イベントを取り扱った場合は True を返す |
| 994 |
function BrowserKeydown(var Msg: TMsg; Key: Word; State:TShiftState) : Boolean; |
function BrowserKeydown(var Msg: TMsg; Key: Word; State:TShiftState) : Boolean; |
| 995 |
|
// 各所にあるキャビネット・ BBS メニューをセット/更新 |
| 996 |
|
procedure SetBBSMenu; |
| 997 |
|
|
| 998 |
protected |
protected |
| 999 |
procedure CreateParams(var Params: TCreateParams); override; |
procedure CreateParams(var Params: TCreateParams); override; |
| 1167 |
i: Integer; |
i: Integer; |
| 1168 |
wp: TWindowPlacement; |
wp: TWindowPlacement; |
| 1169 |
s: string; |
s: string; |
|
item : TBBSMenuItem; |
|
| 1170 |
begin |
begin |
| 1171 |
{$IFDEF DEBUG} |
{$IFDEF DEBUG} |
| 1172 |
AllocConsole; |
AllocConsole; |
| 1215 |
GikoSys.ListBoardFile; |
GikoSys.ListBoardFile; |
| 1216 |
|
|
| 1217 |
// メニューに追加 |
// メニューに追加 |
| 1218 |
for i := Length( BBSs ) - 1 downto 0 do begin |
SetBBSMenu; |
|
try |
|
|
item := TBBSMenuItem.Create( PopupMenu ); |
|
|
item.Caption := BBSs[ i ].Title; |
|
|
item.Data := BBSs[ i ]; |
|
|
item.OnClick := BBSMenuItemOnClick; |
|
|
CabinetSelectPopupMenu.Items.Insert( 0, item ); |
|
|
item := TBBSMenuItem.Create( PopupMenu ); |
|
|
item.Caption := BBSs[ i ].Title; |
|
|
item.Data := BBSs[ i ]; |
|
|
item.OnClick := BBSMenuItemOnClick; |
|
|
CabinetMenu.Insert( 0, item ); |
|
|
item := TBBSMenuItem.Create( PopupMenu ); |
|
|
item.Caption := BBSs[ i ].Title; |
|
|
item.Data := BBSs[ i ]; |
|
|
item.OnClick := BBSMenuItemOnClick; |
|
|
BBSSelectPopupMenu.Items.Insert( 0, Item ); |
|
|
except |
|
|
end; |
|
|
end; |
|
|
|
|
| 1219 |
|
|
| 1220 |
// ヒストリリスト(LoadHistory よりも先に行うこと) |
// ヒストリリスト(LoadHistory よりも先に行うこと) |
| 1221 |
FHistoryList := TList.Create; |
FHistoryList := TList.Create; |
| 1880 |
// CabinetPanelVisible(false); |
// CabinetPanelVisible(false); |
| 1881 |
end; |
end; |
| 1882 |
|
|
| 1883 |
procedure TGikoForm.ReloadBBS; |
// 各所にあるキャビネット・ BBS メニューをセット/更新 |
| 1884 |
|
procedure TGikoForm.SetBBSMenu; |
| 1885 |
var |
var |
| 1886 |
i : Integer; |
i : Integer; |
| 1887 |
item : TBBSMenuItem; |
item : TBBSMenuItem; |
| 1888 |
begin |
begin |
|
//タブクローズ |
|
|
NotSelectTabCloseAction.Execute; |
|
|
if BrowserTab.Tabs.Count >= 1 then |
|
|
DeleteTab(TThreadItem(BrowserTab.Tabs.Objects[0])); |
|
|
//TreeViewクリア(BBS2ch.Freeの後にクリアするとXPスタイル時にエラー出る) |
|
|
TreeView.Items.Clear; |
|
|
|
|
|
//BBS破棄 |
|
|
try |
|
|
for i := Length( BBSs ) - 1 downto 0 do begin |
|
|
if BBSs[ i ] <> nil then |
|
|
BBSs[ i ].Free; |
|
|
BBSs[ i ] := nil; |
|
|
end; |
|
|
except |
|
|
end; |
|
| 1889 |
|
|
|
ActiveList := nil; |
|
|
|
|
|
FTreeType := gttNone; |
|
|
|
|
|
GikoSys.ListBoardFile; //ボードファイル読込 |
|
| 1890 |
// メニューを削除 |
// メニューを削除 |
| 1891 |
for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin |
for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin |
| 1892 |
try |
try |
| 1893 |
if CabinetSelectPopupMenu.Items[ i ] is TBBSMenuItem then begin |
if CabinetSelectPopupMenu.Items[ i ] is TBBSMenuItem then begin |
| 1894 |
CabinetSelectPopupMenu.Items[ i ].Free; |
CabinetSelectPopupMenu.Items[ i ].Free; |
| 1895 |
CabinetMenu.Items[ i ].Free; |
CabinetMenu.Items[ i ].Free; |
| 1896 |
|
BBSSelectPopupMenu.Items[ i ].Free; |
| 1897 |
end; |
end; |
| 1898 |
except |
except |
| 1899 |
end; |
end; |
| 1900 |
end; |
end; |
| 1901 |
// メニューに追加 |
|
| 1902 |
|
// メニューを設定 |
| 1903 |
for i := Length( BBSs ) - 1 downto 0 do begin |
for i := Length( BBSs ) - 1 downto 0 do begin |
| 1904 |
try |
try |
| 1905 |
item := TBBSMenuItem.Create( PopupMenu ); |
item := TBBSMenuItem.Create( PopupMenu ); |
| 1912 |
item.Data := BBSs[ i ]; |
item.Data := BBSs[ i ]; |
| 1913 |
item.OnClick := BBSMenuItemOnClick; |
item.OnClick := BBSMenuItemOnClick; |
| 1914 |
CabinetMenu.Insert( 0, item ); |
CabinetMenu.Insert( 0, item ); |
| 1915 |
|
item := TBBSMenuItem.Create( PopupMenu ); |
| 1916 |
|
item.Caption := BBSs[ i ].Title; |
| 1917 |
|
item.Data := BBSs[ i ]; |
| 1918 |
|
item.OnClick := BBSMenuItemOnClick; |
| 1919 |
|
BBSSelectPopupMenu.Items.Insert( 0, Item ); |
| 1920 |
except |
except |
| 1921 |
end; |
end; |
| 1922 |
end; |
end; |
| 1923 |
|
|
| 1924 |
|
end; |
| 1925 |
|
|
| 1926 |
|
procedure TGikoForm.ReloadBBS; |
| 1927 |
|
var |
| 1928 |
|
i : Integer; |
| 1929 |
|
begin |
| 1930 |
|
//タブクローズ |
| 1931 |
|
NotSelectTabCloseAction.Execute; |
| 1932 |
|
if BrowserTab.Tabs.Count >= 1 then |
| 1933 |
|
DeleteTab(TThreadItem(BrowserTab.Tabs.Objects[0])); |
| 1934 |
|
//TreeViewクリア(BBS2ch.Freeの後にクリアするとXPスタイル時にエラー出る) |
| 1935 |
|
TreeView.Items.Clear; |
| 1936 |
|
|
| 1937 |
|
//BBS破棄 |
| 1938 |
|
try |
| 1939 |
|
for i := Length( BBSs ) - 1 downto 0 do begin |
| 1940 |
|
if BBSs[ i ] <> nil then |
| 1941 |
|
BBSs[ i ].Free; |
| 1942 |
|
BBSs[ i ] := nil; |
| 1943 |
|
end; |
| 1944 |
|
except |
| 1945 |
|
end; |
| 1946 |
|
|
| 1947 |
|
ActiveList := nil; |
| 1948 |
|
|
| 1949 |
|
FTreeType := gttNone; |
| 1950 |
|
|
| 1951 |
|
GikoSys.ListBoardFile; //ボードファイル読込 |
| 1952 |
|
|
| 1953 |
|
// BBS メニューの更新 |
| 1954 |
|
SetBBSMenu; |
| 1955 |
|
|
| 1956 |
ShowBBSTree( BBSs[ 0 ] ); |
ShowBBSTree( BBSs[ 0 ] ); |
| 1957 |
|
|
| 1958 |
// 履歴読み込み |
// 履歴読み込み |
| 9347 |
toolbar : TToolBar; |
toolbar : TToolBar; |
| 9348 |
band : TCoolBand; |
band : TCoolBand; |
| 9349 |
affectedBand : TCoolBand; |
affectedBand : TCoolBand; |
| 9350 |
i, j : Integer; |
i : Integer; |
| 9351 |
begin |
begin |
| 9352 |
if (FOldFormWidth = Width) and not IsIconic( Handle ) and not FIsIgnoreResize then begin |
if (FOldFormWidth = Width) and not IsIconic( Handle ) and not FIsIgnoreResize then begin |
| 9353 |
FIsIgnoreResize := True; |
FIsIgnoreResize := True; |