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.59 by yoffy, Thu Sep 25 19:28:42 2003 UTC revision 1.60 by yoffy, Fri Sep 26 06:25:36 2003 UTC
# Line 7390  begin Line 7390  begin
7390    
7391          Case Key of          Case Key of
7392    VK_F2:    VK_F2:
7393          FavoriteTreeViewRenameActionExecute( Sender );          begin
7394            FClickNode := FavoriteTreeView.Selected;
7395                    FavoriteTreeViewRenameActionExecute( Sender );
7396        end;
7397    VK_DELETE:    VK_DELETE:
7398          FavoriteTreeViewDeleteActionExecute( Sender );          begin
7399            FClickNode := FavoriteTreeView.Selected;
7400                    FavoriteTreeViewDeleteActionExecute( Sender );
7401        end;
7402    end;    end;
7403    
7404  end;  end;
# Line 7409  begin Line 7415  begin
7415          FavoriteTreeDeletePopupMenu.Enabled := False;          FavoriteTreeDeletePopupMenu.Enabled := False;
7416      FavoriteTreeRenamePopupMenu.Enabled := False;      FavoriteTreeRenamePopupMenu.Enabled := False;
7417      FavoriteTreeNewFolderPopupMenu.Enabled := True;      FavoriteTreeNewFolderPopupMenu.Enabled := True;
7418      end else if FClickNode.Text = Favorite.FAVORITE_LINK_NAME then begin
7419            FavoriteTreeDeletePopupMenu.Enabled := True;
7420        FavoriteTreeRenamePopupMenu.Enabled := False;
7421        FavoriteTreeNewFolderPopupMenu.Enabled := True;
7422          end else if TObject(FClickNode.Data) is TFavoriteFolder then begin          end else if TObject(FClickNode.Data) is TFavoriteFolder then begin
7423          FavoriteTreeDeletePopupMenu.Enabled := True;          FavoriteTreeDeletePopupMenu.Enabled := True;
7424      FavoriteTreeRenamePopupMenu.Enabled := True;      FavoriteTreeRenamePopupMenu.Enabled := True;
# Line 7428  end; Line 7438  end;
7438  procedure TGikoForm.FavoriteTreeViewDeleteActionExecute(Sender: TObject);  procedure TGikoForm.FavoriteTreeViewDeleteActionExecute(Sender: TObject);
7439  begin  begin
7440    
7441          if FavoriteTreeView.Selected = nil then          if FClickNode = nil then
7442                  Exit;                  Exit;
7443          if FavoriteTreeView.Selected.IsFirstNode then          if FClickNode.IsFirstNode then
7444                  Exit;                  Exit;
7445          if FavoriteTreeView.Selected.Text = Favorite.FAVORITE_LINK_NAME then begin          if FClickNode.Text = Favorite.FAVORITE_LINK_NAME then begin
7446                  if MsgBox(Handle, '「リンク」はリンクバー用フォルダです。削除してよろしいですか?', '確認', MB_YESNO or MB_ICONQUESTION) <> ID_YES then                  if MsgBox(Handle, '「リンク」はリンクバー用フォルダです。削除してよろしいですか?', '確認', MB_YESNO or MB_ICONQUESTION) <> ID_YES then
7447                          Exit;                          Exit;
7448          end;          end;
7449    
7450          //FDeleteList.Add(FavoriteTreeView.Selected.Data);          //FDeleteList.Add(FClickNode.Data);
7451          //SetDeleteItemList(FavoriteTreeView.Selected);          //SetDeleteItemList(FClickNode);
7452    
7453          FavoriteTreeView.Selected.Delete;          FClickNode.Delete;
7454    
7455    SetLinkBar;    SetLinkBar;
7456    
# Line 7449  end; Line 7459  end;
7459  procedure TGikoForm.FavoriteTreeViewRenameActionExecute(Sender: TObject);  procedure TGikoForm.FavoriteTreeViewRenameActionExecute(Sender: TObject);
7460  begin  begin
7461    
7462    if FavoriteTreeView.Selected = nil then    if FClickNode = nil then
7463      Exit;      Exit;
7464    if FavoriteTreeView.Selected.IsFirstNode then    if FClickNode.IsFirstNode then
7465      Exit;      Exit;
7466    if FavoriteTreeView.Selected.Text = Favorite.FAVORITE_LINK_NAME then    if FClickNode.Text = Favorite.FAVORITE_LINK_NAME then
7467      Exit;      Exit;
7468    FavoriteTreeView.ReadOnly := False;    FavoriteTreeView.ReadOnly := False;
7469    FavoriteTreeView.Selected.EditText;    FClickNode.EditText;
7470    
7471    SetLinkBar;    SetLinkBar;
7472    
# Line 7469  var Line 7479  var
7479          Node: TTreeNode;          Node: TTreeNode;
7480  begin  begin
7481    
7482          if FavoriteTreeView.Selected = nil then          if FClickNode = nil then
7483                  Exit;                  Exit;
7484    
7485          try          try
7486      if not (TObject(FavoriteTreeView.Selected.Data) is TFavoriteFolder) then      if not (TObject(FClickNode.Data) is TFavoriteFolder) then begin
7487        FavoriteTreeView.Selected := FavoriteTreeView.Selected.Parent;        FavoriteTreeView.Selected := FClickNode.Parent;
7488          FClickNode := FClickNode.Parent;
7489        end;
7490    
7491      NewFavFolder := TFavoriteFolder.Create;      NewFavFolder := TFavoriteFolder.Create;
7492      Node := FavoriteTreeView.Items.AddChildObject(FavoriteTreeView.Selected, '新しいフォルダ', NewFavFolder);      Node := FavoriteTreeView.Items.AddChildObject(FClickNode, '新しいフォルダ', NewFavFolder);
7493      Node.ImageIndex := 14;      Node.ImageIndex := 14;
7494      Node.SelectedIndex := 14;      Node.SelectedIndex := 14;
7495    //                    FavoriteTreeView.Selected.Expanded := True;    //                    FClickNode.Selected.Expanded := True;
7496      FavoriteTreeView.Selected := Node;      FavoriteTreeView.Selected := Node;
7497        FClickNode := Node;
7498                  FavoriteTreeViewRenameAction.Execute;                  FavoriteTreeViewRenameAction.Execute;
7499          finally          finally
7500          end;          end;

Legend:
Removed from v.1.59  
changed lines
  Added in v.1.60

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