From: yoffy <yoffy>
Date: Sun, 4 Apr 2004 20:21:20 +0000 (+0000)
Subject: ・お気に入りキャビネットもキーボードで操作出来るように。
X-Git-Tag: v1_64_1_820~1321
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=73f39d1414b4ca96fd8ef3bfbf3bdd0b1de1faaf;p=gikonavigoeson%2Fgikonavi.git

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

diff --git a/Giko.dfm b/Giko.dfm
index 538e5da..1a63c13 100644
--- 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
--- 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