| 69 |
SmallIconAction: TAction; |
SmallIconAction: TAction; |
| 70 |
ListIconAction: TAction; |
ListIconAction: TAction; |
| 71 |
DetailIconAction: TAction; |
DetailIconAction: TAction; |
| 72 |
Cabinet2chAction: TAction; |
CabinetBBSAction: TAction; |
| 73 |
CabinetHistoryAction: TAction; |
CabinetHistoryAction: TAction; |
| 74 |
CabinetVisibleAction: TAction; |
CabinetVisibleAction: TAction; |
| 75 |
MidokuAction: TAction; |
MidokuAction: TAction; |
| 346 |
StdToolBar: TToolBar; |
StdToolBar: TToolBar; |
| 347 |
RoundToolButton: TToolButton; |
RoundToolButton: TToolButton; |
| 348 |
ToolButton6: TToolButton; |
ToolButton6: TToolButton; |
|
CabinetToolButton: TToolButton; |
|
| 349 |
ToolButton4: TToolButton; |
ToolButton4: TToolButton; |
| 350 |
ToolButton13: TToolButton; |
ToolButton13: TToolButton; |
| 351 |
AbortToolButton: TToolButton; |
AbortToolButton: TToolButton; |
| 507 |
N61: TMenuItem; |
N61: TMenuItem; |
| 508 |
ExportFavoriteFileAction1: TMenuItem; |
ExportFavoriteFileAction1: TMenuItem; |
| 509 |
ExportFavoriteFile: TFileSaveAs; |
ExportFavoriteFile: TFileSaveAs; |
| 510 |
|
ToolButton21: TToolButton; |
| 511 |
|
ToolButton22: TToolButton; |
| 512 |
|
ToolButton23: TToolButton; |
| 513 |
|
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); |
| 809 |
var Handled: Boolean); |
var Handled: Boolean); |
| 810 |
procedure ExportFavoriteFileAccept(Sender: TObject); |
procedure ExportFavoriteFileAccept(Sender: TObject); |
| 811 |
procedure ExportFavoriteFileBeforeExecute(Sender: TObject); |
procedure ExportFavoriteFileBeforeExecute(Sender: TObject); |
| 812 |
procedure Cabinet2chActionExecute(Sender: TObject); |
procedure CabinetBBSActionExecute(Sender: TObject); |
| 813 |
private |
private |
| 814 |
{ Private 宣言 } |
{ Private 宣言 } |
| 815 |
|
|
| 1441 |
// 最後に選択されたキャビネットの復元 |
// 最後に選択されたキャビネットの復元 |
| 1442 |
if GikoSys.Setting.CabinetVisible then begin |
if GikoSys.Setting.CabinetVisible then begin |
| 1443 |
Case GikoSys.Setting.CabinetIndex of |
Case GikoSys.Setting.CabinetIndex of |
| 1444 |
0: Cabinet2chAction.Execute; |
0: CabinetBBSAction.Execute; |
| 1445 |
1: CabinetHistoryAction.Execute; |
1: CabinetHistoryAction.Execute; |
| 1446 |
2: CabinetFavoriteAction.Execute; |
2: CabinetFavoriteAction.Execute; |
| 1447 |
end; |
end; |
| 3657 |
FavoriteTreeView.Visible := False; |
FavoriteTreeView.Visible := False; |
| 3658 |
TreeView.Visible := True; |
TreeView.Visible := True; |
| 3659 |
|
|
| 3660 |
Cabinet2chAction.Checked := False; |
CabinetBBSAction.Checked := False; |
| 3661 |
CabinetFavoriteAction.Checked := False; |
CabinetFavoriteAction.Checked := False; |
| 3662 |
|
|
| 3663 |
if FTreeType <> gttHistory then begin |
if FTreeType <> gttHistory then begin |
| 4144 |
gttHistory: CabinetHistoryAction.Execute; |
gttHistory: CabinetHistoryAction.Execute; |
| 4145 |
gttFavorite: CabinetFavoriteAction.Execute; |
gttFavorite: CabinetFavoriteAction.Execute; |
| 4146 |
else |
else |
| 4147 |
Cabinet2chAction.Execute; |
CabinetBBSAction.Execute; |
| 4148 |
end; |
end; |
| 4149 |
end; |
end; |
| 4150 |
|
|
| 7966 |
FTreeType := gttFavorite; |
FTreeType := gttFavorite; |
| 7967 |
|
|
| 7968 |
// メニュー及びボタンのチェックを設定 |
// メニュー及びボタンのチェックを設定 |
| 7969 |
Cabinet2chAction.Checked := False; |
CabinetBBSAction.Checked := False; |
| 7970 |
CabinetHistoryAction.Checked := False; |
CabinetHistoryAction.Checked := False; |
| 7971 |
|
|
| 7972 |
// お気に入りのツリーを展開 |
// お気に入りのツリーを展開 |
| 8663 |
ExportFavoriteFile.Dialog.FileName := FavoriteDM.GetFavoriteFilePath; |
ExportFavoriteFile.Dialog.FileName := FavoriteDM.GetFavoriteFilePath; |
| 8664 |
end; |
end; |
| 8665 |
|
|
| 8666 |
procedure TGikoForm.Cabinet2chActionExecute(Sender: TObject); |
procedure TGikoForm.CabinetBBSActionExecute(Sender: TObject); |
| 8667 |
begin |
begin |
| 8668 |
|
|
| 8669 |
if CabinetPanel.Visible then begin |
if CabinetPanel.Visible then begin |
| 8670 |
if FTreeType = gtt2ch then begin |
if FTreeType = gtt2ch then begin |
| 8671 |
CabinetVisible( False ); |
CabinetVisible( False ); |
| 8672 |
Cabinet2chAction.Checked := False; |
CabinetBBSAction.Checked := False; |
| 8673 |
end else begin |
end else begin |
| 8674 |
Cabinet2chAction.Checked := True; |
CabinetBBSAction.Checked := True; |
| 8675 |
end; |
end; |
| 8676 |
end else begin |
end else begin |
| 8677 |
CabinetVisible( True ); |
CabinetVisible( True ); |
| 8678 |
Cabinet2chAction.Checked := True; |
CabinetBBSAction.Checked := True; |
| 8679 |
end; |
end; |
| 8680 |
|
|
| 8681 |
if FActiveBBS = nil then |
if FActiveBBS = nil then |