・お気に入りキャビネットもキーボードで操作出来るように。

diff --git a/Giko.dfm b/Giko.dfm
index 538e5da..1a63c13 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -226,7 +226,7 @@ object GikoForm: TGikoForm
           RightClickSelect = True
           ShowRoot = False
           TabOrder = 3
-          OnChange = FavoriteTreeViewChange
+          OnClick = FavoriteTreeViewClick
           OnDblClick = FavoriteTreeViewDblClick
           OnDragDrop = FavoriteTreeViewDragDrop
           OnDragOver = FavoriteTreeViewDragOver

diff --git a/Giko.pas b/Giko.pas
index da87df9..d22a1da 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -797,7 +797,6 @@ type
                procedure FavoriteTreeViewNewFolderActionExecute(Sender: TObject);
                procedure ToolButton19Click(Sender: TObject);
                procedure FavoriteTreeViewBrowseFolderActionExecute(Sender: TObject);
-               procedure FavoriteTreeViewChange(Sender: TObject; Node: TTreeNode);
                procedure FavoriteTreeViewDblClick(Sender: TObject);
                procedure FavoriteTreeViewLogDeleteActionExecute(Sender: TObject);
                procedure FavoriteTreeViewReloadActionExecute(Sender: TObject);
@@ -8360,6 +8359,10 @@ begin
                        FClickNode := FavoriteTreeView.Selected;
                        FavoriteTreeViewDeleteActionExecute( Sender );
                end;
+       VK_RETURN:
+               FavoriteClick( FavoriteTreeView.Selected );
+       VK_SPACE:
+               FavoriteTreeViewDblClick( Sender );
        end;
 
 end;
@@ -8591,15 +8594,6 @@ begin
 
 end;
 
-procedure TGikoForm.FavoriteTreeViewChange(Sender: TObject;
-       Node: TTreeNode);
-begin
-
-       if not Mouse.IsDragging then
-               FavoriteClick( Node );
-
-end;
-
 procedure TGikoForm.FavoriteTreeViewDblClick(Sender: TObject);
 begin