| 69 |
SmallIconAction: TAction; |
SmallIconAction: TAction; |
| 70 |
ListIconAction: TAction; |
ListIconAction: TAction; |
| 71 |
DetailIconAction: TAction; |
DetailIconAction: TAction; |
| 72 |
CabinetBBSAction: TAction; |
CabinetBBSAction: TAction; |
| 73 |
CabinetHistoryAction: TAction; |
CabinetHistoryAction: TAction; |
| 74 |
CabinetVisibleAction: TAction; |
CabinetVisibleAction: TAction; |
| 75 |
MidokuAction: TAction; |
MidokuAction: TAction; |
| 507 |
N61: TMenuItem; |
N61: TMenuItem; |
| 508 |
ExportFavoriteFileAction1: TMenuItem; |
ExportFavoriteFileAction1: TMenuItem; |
| 509 |
ExportFavoriteFile: TFileSaveAs; |
ExportFavoriteFile: TFileSaveAs; |
| 510 |
ToolButton21: TToolButton; |
ToolButton21: TToolButton; |
| 511 |
ToolButton22: TToolButton; |
ToolButton22: TToolButton; |
| 512 |
ToolButton23: TToolButton; |
ToolButton23: TToolButton; |
| 513 |
ToolButton24: TToolButton; |
ToolButton24: TToolButton; |
| 514 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 515 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 516 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 1430 |
//ResHint |
//ResHint |
| 1431 |
FHint := TResPopup.Create(Self); |
FHint := TResPopup.Create(Self); |
| 1432 |
|
|
|
// 2ちゃんねるキャビネットの状態復元(未実装) |
|
|
// およびスレ一覧ペインの状態復元(未実装、現在は初期表示用) |
|
|
//i := GikoSys.Setting.CabinetIndex; |
|
|
//ShowBBSTree( BBSs[ 0 ] ); |
|
|
//GikoSys.Setting.CabinetIndex := i; |
|
|
|
|
| 1433 |
// 最後に選択されたキャビネットの復元 |
// 最後に選択されたキャビネットの復元 |
| 1434 |
CabinetVisible( False ); |
CabinetVisible( False ); |
| 1435 |
if GikoSys.Setting.CabinetVisible then begin |
if GikoSys.Setting.CabinetVisible then begin |
| 1436 |
Case GikoSys.Setting.CabinetIndex of |
i := CabinetSelectPopupMenu.Items.Count - 1; |
| 1437 |
0: CabinetBBSAction.Execute; |
if GikoSys.Setting.CabinetIndex = i - 1 then |
| 1438 |
1: CabinetHistoryAction.Execute; |
CabinetHistoryAction.Execute |
| 1439 |
2: CabinetFavoriteAction.Execute; |
else if GikoSys.Setting.CabinetIndex = i then |
| 1440 |
end; |
CabinetFavoriteAction.Execute |
| 1441 |
end; |
else begin |
| 1442 |
|
if GikoSys.Setting.CabinetIndex < Length( BBSs ) then |
| 1443 |
|
ShowBBSTree( BBSs[ GikoSys.Setting.CabinetIndex ] ); |
| 1444 |
|
CabinetBBSAction.Execute; |
| 1445 |
|
end; |
| 1446 |
|
end else begin |
| 1447 |
|
ShowBBSTree( BBSs[ 0 ] ); |
| 1448 |
|
end; |
| 1449 |
|
|
| 1450 |
//オートログイン |
//オートログイン |
| 1451 |
if GikoSys.Setting.AutoLogin then |
if GikoSys.Setting.AutoLogin then |
| 3586 |
item : TMenuItem; |
item : TMenuItem; |
| 3587 |
begin |
begin |
| 3588 |
try |
try |
|
GikoSys.Setting.CabinetIndex := 0; |
|
|
|
|
| 3589 |
FavoriteTreeView.Visible := False; |
FavoriteTreeView.Visible := False; |
| 3590 |
FavoriteToolBar.Hide; |
FavoriteToolBar.Hide; |
| 3591 |
TreeView.Visible := True; |
TreeView.Visible := True; |
| 3598 |
item.Checked := True; |
item.Checked := True; |
| 3599 |
// CabinetMenu は CabinetSelectPopupMenu と同じと決めうちしちゃう |
// CabinetMenu は CabinetSelectPopupMenu と同じと決めうちしちゃう |
| 3600 |
CabinetMenu.Items[ i ].Checked := True; |
CabinetMenu.Items[ i ].Checked := True; |
| 3601 |
|
GikoSys.Setting.CabinetIndex := i; |
| 3602 |
Continue; |
Continue; |
| 3603 |
end; |
end; |
| 3604 |
end; |
end; |
| 3651 |
CabinetHistoryAction.Checked := True; |
CabinetHistoryAction.Checked := True; |
| 3652 |
end; |
end; |
| 3653 |
|
|
| 3654 |
GikoSys.Setting.CabinetIndex := 1; |
// BBS...BBS, History, Favorite |
| 3655 |
|
GikoSys.Setting.CabinetIndex := CabinetSelectPopupMenu.Items.Count - 2; |
| 3656 |
|
|
| 3657 |
FavoriteTreeView.Visible := False; |
FavoriteTreeView.Visible := False; |
| 3658 |
TreeView.Visible := True; |
TreeView.Visible := True; |
| 7944 |
CabinetFavoriteAction.Checked := True; |
CabinetFavoriteAction.Checked := True; |
| 7945 |
end; |
end; |
| 7946 |
|
|
| 7947 |
GikoSys.Setting.CabinetIndex := 2; |
// BBS...BBS, History, Favorite |
| 7948 |
|
GikoSys.Setting.CabinetIndex := CabinetSelectPopupMenu.Items.Count - 1; |
| 7949 |
|
|
| 7950 |
b := CabinetSelectPopupMenu.Items.Count - 1; |
b := CabinetSelectPopupMenu.Items.Count - 1; |
| 7951 |
for i := 0 to b do begin |
for i := 0 to b do begin |
| 8258 |
end; |
end; |
| 8259 |
|
|
| 8260 |
procedure TGikoForm.FavoriteTreeViewRenameActionExecute(Sender: TObject); |
procedure TGikoForm.FavoriteTreeViewRenameActionExecute(Sender: TObject); |
| 8261 |
|
var |
| 8262 |
|
node : TTreeNode; |
| 8263 |
begin |
begin |
| 8264 |
|
|
| 8265 |
if FClickNode = nil then |
if FClickNode = nil then |
| 8269 |
if FClickNode.Text = Favorite.FAVORITE_LINK_NAME then |
if FClickNode.Text = Favorite.FAVORITE_LINK_NAME then |
| 8270 |
Exit; |
Exit; |
| 8271 |
FavoriteTreeView.ReadOnly := False; |
FavoriteTreeView.ReadOnly := False; |
| 8272 |
if (FTreeType = gttFavorite) and (CabinetPanel.Visible) then |
if (FTreeType = gttFavorite) and (CabinetPanel.Visible) then begin |
| 8273 |
FClickNode.EditText |
node := FClickNode.Parent; |
| 8274 |
else |
while node <> nil do begin |
| 8275 |
|
node.Expanded := True; |
| 8276 |
|
node := node.Parent; |
| 8277 |
|
end; |
| 8278 |
|
FClickNode.EditText; |
| 8279 |
|
end else begin |
| 8280 |
FClickNode.Text := InputBox( '名前の変更', 'お気に入りの新しい名前を入力してください', FClickNode.Text ); |
FClickNode.Text := InputBox( '名前の変更', 'お気に入りの新しい名前を入力してください', FClickNode.Text ); |
| 8281 |
|
end; |
| 8282 |
|
|
| 8283 |
SetLinkBar; |
SetLinkBar; |
| 8284 |
|
|