Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.137 by yoffy, Mon Nov 24 09:06:25 2003 UTC revision 1.138 by yoffy, Mon Nov 24 10:01:44 2003 UTC
# Line 6  uses Line 6  uses
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,
# Line 23  uses Line 23  uses
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;
# Line 567  type Line 567  type
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);
# Line 805  type Line 806  type
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    
# Line 1434  begin Line 1436  begin
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          //オートログイン          //オートログイン
# Line 3633  var Line 3637  var
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
# Line 4113  begin Line 4128  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);
# Line 7903  var Line 7929  var
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;
# Line 7922  begin Line 7960  begin
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;
# Line 8225  begin Line 8263  begin
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 );
# Line 8622  begin Line 8660  begin
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

Legend:
Removed from v.1.137  
changed lines
  Added in v.1.138

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26