From 7a2175a22ba311ffcbe2667c2905fa5e3fac1af9 Mon Sep 17 00:00:00 2001
From: micha <micha@lazarus-ide.org>
Date: Tue, 27 Dec 2005 17:06:15 +0000
Subject: [PATCH] let treenode item expand when double clicked (issue #742)

git-svn-id: trunk@8378 -
---
 lcl/include/treeview.inc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lcl/include/treeview.inc b/lcl/include/treeview.inc
index 69d3da6271..9fcb9bee58 100644
--- a/lcl/include/treeview.inc
+++ b/lcl/include/treeview.inc
@@ -4265,7 +4265,9 @@ begin
       FDragNode:=CursorNode;
       Include(fStates,tvsWaitForDragging);
     end;
-  end;
+  end else
+  if (ssDouble in Shift) and (Button = mbLeft) then
+    CursorNode.Expanded := not CursorNode.Expanded;
 end;
 
 procedure TCustomTreeView.MouseMove(Shift: TShiftState; X, Y: Integer);