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.140 by yoffy, Mon Nov 24 10:50:48 2003 UTC revision 1.141 by yoffy, Mon Nov 24 12:04:27 2003 UTC
# Line 69  type Line 69  type
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;
# Line 507  type Line 507  type
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);
# Line 1430  begin Line 1430  begin
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
# Line 3585  var Line 3586  var
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;
# Line 3599  begin Line 3598  begin
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;
# Line 3651  begin Line 3651  begin
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;
# Line 7943  begin Line 7944  begin
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
# Line 8256  begin Line 8258  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
# Line 8265  begin Line 8269  begin
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    

Legend:
Removed from v.1.140  
changed lines
  Added in v.1.141

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