Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/GikoDataModule.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
// ************************************************************************* |
// ************************************************************************* |
| 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; |
| 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 |
|
|
|