From 73f39d1414b4ca96fd8ef3bfbf3bdd0b1de1faaf Mon Sep 17 00:00:00 2001
From: yoffy <yoffy>
Date: Sun, 4 Apr 2004 20:21:20 +0000
Subject: [PATCH] =?utf8?q?=E3=83=BB=E3=81=8A=E6=B0=97=E3=81=AB=E5=85=A5?=
 =?utf8?q?=E3=82=8A=E3=82=AD=E3=83=A3=E3=83=93=E3=83=8D=E3=83=83=E3=83=88?=
 =?utf8?q?=E3=82=82=E3=82=AD=E3=83=BC=E3=83=9C=E3=83=BC=E3=83=89=E3=81=A7?=
 =?utf8?q?=E6=93=8D=E4=BD=9C=E5=87=BA=E6=9D=A5=E3=82=8B=E3=82=88=E3=81=86?=
 =?utf8?q?=E3=81=AB=E3=80=82?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Giko.dfm |  2 +-
 Giko.pas | 14 ++++----------
 2 files changed, 5 insertions(+), 11 deletions(-)

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
 
-- 
2.11.0