| 6 |
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, |
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, |
| 7 |
OleCtrls, ComCtrls, ExtCtrls, Menus, StdCtrls, MMSystem, DateUtils, Math, |
OleCtrls, ComCtrls, ExtCtrls, Menus, StdCtrls, MMSystem, DateUtils, Math, |
| 8 |
{$IF Defined(DELPRO) } |
{$IF Defined(DELPRO) } |
| 9 |
SHDocVw, |
SHDocVw, |
| 10 |
MSHTML, |
MSHTML, |
| 11 |
{$ELSE} |
{$ELSE} |
| 12 |
SHDocVw_TLB, |
SHDocVw_TLB, |
| 23 |
StdActns, GikoXMLDoc; |
StdActns, GikoXMLDoc; |
| 24 |
|
|
| 25 |
type |
type |
| 26 |
TGikoTreeType = (gttNone, gtt2ch, gttHistory); |
TGikoTreeType = (gttNone, gtt2ch, gttHistory, gttFavorite); |
| 27 |
|
|
| 28 |
TGikoForm = class(TForm) |
TGikoForm = class(TForm) |
| 29 |
StatusBar: TStatusBar; |
StatusBar: TStatusBar; |
| 567 |
procedure GikoNaviWebPageActionExecute(Sender: TObject); |
procedure GikoNaviWebPageActionExecute(Sender: TObject); |
| 568 |
procedure AboutActionExecute(Sender: TObject); |
procedure AboutActionExecute(Sender: TObject); |
| 569 |
procedure CabinetHistoryActionExecute(Sender: TObject); |
procedure CabinetHistoryActionExecute(Sender: TObject); |
| 570 |
|
procedure CabinetVisible( isVisible : Boolean ); |
| 571 |
procedure CabinetVisibleActionExecute(Sender: TObject); |
procedure CabinetVisibleActionExecute(Sender: TObject); |
| 572 |
procedure AllItemActionExecute(Sender: TObject); |
procedure AllItemActionExecute(Sender: TObject); |
| 573 |
procedure LogItemActionExecute(Sender: TObject); |
procedure LogItemActionExecute(Sender: TObject); |
| 806 |
var Handled: Boolean); |
var Handled: Boolean); |
| 807 |
procedure ExportFavoriteFileAccept(Sender: TObject); |
procedure ExportFavoriteFileAccept(Sender: TObject); |
| 808 |
procedure ExportFavoriteFileBeforeExecute(Sender: TObject); |
procedure ExportFavoriteFileBeforeExecute(Sender: TObject); |
| 809 |
|
procedure Cabinet2chActionExecute(Sender: TObject); |
| 810 |
private |
private |
| 811 |
{ Private 宣言 } |
{ Private 宣言 } |
| 812 |
|
|
| 1436 |
GikoSys.Setting.CabinetIndex := i; |
GikoSys.Setting.CabinetIndex := i; |
| 1437 |
|
|
| 1438 |
// 最後に選択されたキャビネットの復元 |
// 最後に選択されたキャビネットの復元 |
| 1439 |
Case GikoSys.Setting.CabinetIndex of |
if GikoSys.Setting.CabinetVisible then begin |
| 1440 |
0: Cabinet2chAction.Execute; |
Case GikoSys.Setting.CabinetIndex of |
| 1441 |
1: CabinetHistoryAction.Execute; |
0: Cabinet2chAction.Execute; |
| 1442 |
2: CabinetFavoriteAction.Execute; |
1: CabinetHistoryAction.Execute; |
| 1443 |
|
2: CabinetFavoriteAction.Execute; |
| 1444 |
|
end; |
| 1445 |
end; |
end; |
| 1446 |
|
|
| 1447 |
//オートログイン |
//オートログイン |
| 3637 |
i, b : Integer; |
i, b : Integer; |
| 3638 |
item : TMenuItem; |
item : TMenuItem; |
| 3639 |
begin |
begin |
| 3640 |
|
if CabinetPanel.Visible then begin |
| 3641 |
|
if FTreeType = gttHistory then begin |
| 3642 |
|
CabinetVisible( False ); |
| 3643 |
|
CabinetHistoryAction.Checked := False; |
| 3644 |
|
end else begin |
| 3645 |
|
CabinetHistoryAction.Checked := True; |
| 3646 |
|
end; |
| 3647 |
|
end else begin |
| 3648 |
|
CabinetVisible( True ); |
| 3649 |
|
CabinetHistoryAction.Checked := True; |
| 3650 |
|
end; |
| 3651 |
|
|
| 3652 |
GikoSys.Setting.CabinetIndex := 1; |
GikoSys.Setting.CabinetIndex := 1; |
| 3653 |
|
|
| 3654 |
FavoriteTreeView.Visible := False; |
FavoriteTreeView.Visible := False; |
| 3655 |
TreeView.Visible := True; |
TreeView.Visible := True; |
| 3656 |
|
|
| 3657 |
Cabinet2chAction.Checked := False; |
Cabinet2chAction.Checked := False; |
|
CabinetHistoryAction.Checked := True; |
|
| 3658 |
CabinetFavoriteAction.Checked := False; |
CabinetFavoriteAction.Checked := False; |
| 3659 |
|
|
| 3660 |
if FTreeType <> gttHistory then begin |
if FTreeType <> gttHistory then begin |
| 4128 |
ShowHistoryTree; |
ShowHistoryTree; |
| 4129 |
end; |
end; |
| 4130 |
|
|
| 4131 |
|
procedure TGikoForm.CabinetVisible( isVisible : Boolean ); |
| 4132 |
|
begin |
| 4133 |
|
TreeSplitter.Visible := isVisible; |
| 4134 |
|
CabinetPanel.Visible := isVisible; |
| 4135 |
|
CabinetVisibleAction.Checked := isVisible; |
| 4136 |
|
end; |
| 4137 |
|
|
| 4138 |
procedure TGikoForm.CabinetVisibleActionExecute(Sender: TObject); |
procedure TGikoForm.CabinetVisibleActionExecute(Sender: TObject); |
| 4139 |
begin |
begin |
| 4140 |
TreeSplitter.Visible := CabinetVisibleAction.Checked; |
case FTreeType of |
| 4141 |
CabinetPanel.Visible := CabinetVisibleAction.Checked; |
gttHistory: CabinetHistoryAction.Execute; |
| 4142 |
|
gttFavorite: CabinetFavoriteAction.Execute; |
| 4143 |
|
else |
| 4144 |
|
Cabinet2chAction.Execute; |
| 4145 |
|
end; |
| 4146 |
end; |
end; |
| 4147 |
|
|
| 4148 |
procedure TGikoForm.AllItemActionExecute(Sender: TObject); |
procedure TGikoForm.AllItemActionExecute(Sender: TObject); |
| 7929 |
item : TMenuItem; |
item : TMenuItem; |
| 7930 |
begin |
begin |
| 7931 |
|
|
| 7932 |
|
if CabinetPanel.Visible then begin |
| 7933 |
|
if FTreeType = gttFavorite then begin |
| 7934 |
|
CabinetVisible( False ); |
| 7935 |
|
CabinetFavoriteAction.Checked := False; |
| 7936 |
|
end else begin |
| 7937 |
|
CabinetFavoriteAction.Checked := True; |
| 7938 |
|
end; |
| 7939 |
|
end else begin |
| 7940 |
|
CabinetVisible( True ); |
| 7941 |
|
CabinetFavoriteAction.Checked := True; |
| 7942 |
|
end; |
| 7943 |
|
|
| 7944 |
GikoSys.Setting.CabinetIndex := 2; |
GikoSys.Setting.CabinetIndex := 2; |
| 7945 |
|
|
| 7946 |
b := CabinetSelectPopupMenu.Items.Count - 1; |
b := CabinetSelectPopupMenu.Items.Count - 1; |
| 7960 |
FavoriteTreeView.Visible := True; |
FavoriteTreeView.Visible := True; |
| 7961 |
|
|
| 7962 |
CabinetSelectToolButton.Caption := 'お気に入り'; |
CabinetSelectToolButton.Caption := 'お気に入り'; |
| 7963 |
|
FTreeType := gttFavorite; |
| 7964 |
|
|
| 7965 |
// メニュー及びボタンのチェックを設定 |
// メニュー及びボタンのチェックを設定 |
| 7966 |
Cabinet2chAction.Checked := False; |
Cabinet2chAction.Checked := False; |
| 7967 |
CabinetHistoryAction.Checked := False; |
CabinetHistoryAction.Checked := False; |
|
CabinetFavoriteAction.Checked := True; |
|
| 7968 |
|
|
| 7969 |
// お気に入りのツリーを展開 |
// お気に入りのツリーを展開 |
| 7970 |
FavoriteTreeView.TopItem.Expanded := True; |
FavoriteTreeView.TopItem.Expanded := True; |
| 8263 |
if FClickNode.Text = Favorite.FAVORITE_LINK_NAME then |
if FClickNode.Text = Favorite.FAVORITE_LINK_NAME then |
| 8264 |
Exit; |
Exit; |
| 8265 |
FavoriteTreeView.ReadOnly := False; |
FavoriteTreeView.ReadOnly := False; |
| 8266 |
if FavoriteTreeView.Visible then |
if (FTreeType = gttFavorite) and (CabinetPanel.Visible) then |
| 8267 |
FClickNode.EditText |
FClickNode.EditText |
| 8268 |
else |
else |
| 8269 |
FClickNode.Text := InputBox( '名前の変更', 'お気に入りの新しい名前を入力してください', FClickNode.Text ); |
FClickNode.Text := InputBox( '名前の変更', 'お気に入りの新しい名前を入力してください', FClickNode.Text ); |
| 8660 |
ExportFavoriteFile.Dialog.FileName := FavoriteDM.GetFavoriteFilePath; |
ExportFavoriteFile.Dialog.FileName := FavoriteDM.GetFavoriteFilePath; |
| 8661 |
end; |
end; |
| 8662 |
|
|
| 8663 |
|
procedure TGikoForm.Cabinet2chActionExecute(Sender: TObject); |
| 8664 |
|
begin |
| 8665 |
|
|
| 8666 |
|
if CabinetPanel.Visible then begin |
| 8667 |
|
if FTreeType = gtt2ch then begin |
| 8668 |
|
CabinetVisible( False ); |
| 8669 |
|
Cabinet2chAction.Checked := False; |
| 8670 |
|
end else begin |
| 8671 |
|
Cabinet2chAction.Checked := True; |
| 8672 |
|
end; |
| 8673 |
|
end else begin |
| 8674 |
|
CabinetVisible( True ); |
| 8675 |
|
Cabinet2chAction.Checked := True; |
| 8676 |
|
end; |
| 8677 |
|
|
| 8678 |
|
if FActiveBBS = nil then |
| 8679 |
|
ShowBBSTree( BBSs[ 0 ] ) |
| 8680 |
|
else |
| 8681 |
|
ShowBBSTree( FActiveBBS ); |
| 8682 |
|
|
| 8683 |
|
end; |
| 8684 |
|
|
| 8685 |
initialization |
initialization |
| 8686 |
OleInitialize(nil); |
OleInitialize(nil); |
| 8687 |
finalization |
finalization |