Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoDataModule.pas

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

revision 1.21 by h677, Mon Dec 12 14:12:56 2005 UTC revision 1.22 by h677, Mon Dec 12 14:52:57 2005 UTC
# Line 610  begin Line 610  begin
610          end else begin          end else begin
611                  GikoForm.ClickNode.Text := InputBox( '名前の変更', 'お気に入りの新しい名前を入力してください', GikoForm.ClickNode.Text );                  GikoForm.ClickNode.Text := InputBox( '名前の変更', 'お気に入りの新しい名前を入力してください', GikoForm.ClickNode.Text );
612          end;          end;
613            //更新したことを教える
614            FavoriteDM.Modified := true;
615          GikoForm.SetLinkBar;          GikoForm.SetLinkBar;
616  end;  end;
617  // *************************************************************************  // *************************************************************************
# Line 638  begin Line 639  begin
639          //                      FClickNode.Selected.Expanded := True;          //                      FClickNode.Selected.Expanded := True;
640                  GikoForm.FavoriteTreeView.Selected := Node;                  GikoForm.FavoriteTreeView.Selected := Node;
641                  GikoForm.ClickNode := Node;                  GikoForm.ClickNode := Node;
642                    //更新したことを教える
643                    FavoriteDM.Modified := true;
644                  FavoriteTreeViewRenameAction.Execute;                  FavoriteTreeViewRenameAction.Execute;
645          finally          finally
646          end;          end;
# Line 668  begin Line 671  begin
671          end;          end;
672    
673          GikoForm.ClickNode.Delete;          GikoForm.ClickNode.Delete;
674            //更新したことを教える
675            FavoriteDM.Modified := true;
676    
677          GikoForm.SetLinkBar;          GikoForm.SetLinkBar;
678    

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

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