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.138 by yoffy, Mon Nov 24 10:01:44 2003 UTC revision 1.139 by yoffy, Mon Nov 24 10:13:13 2003 UTC
# Line 69  type Line 69  type
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;
# Line 346  type Line 346  type
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;
# Line 508  type Line 507  type
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);
# Line 806  type Line 809  type
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    
# Line 1438  begin Line 1441  begin
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;
# Line 3654  begin Line 3657  begin
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
# Line 4141  begin Line 4144  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    
# Line 7963  begin Line 7966  begin
7966          FTreeType := gttFavorite;          FTreeType := gttFavorite;
7967    
7968          // メニュー及びボタンのチェックを設定          // メニュー及びボタンのチェックを設定
7969          Cabinet2chAction.Checked := False;          CabinetBBSAction.Checked := False;
7970          CabinetHistoryAction.Checked := False;          CabinetHistoryAction.Checked := False;
7971    
7972          // お気に入りのツリーを展開          // お気に入りのツリーを展開
# Line 8660  begin Line 8663  begin
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

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

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