From 7b42dab90751edfb594ede3582e78c48ffeae621 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Tue, 6 Jan 2009 16:27:33 +0000
Subject: [PATCH] lcl: treeview - handle focus on mouse down (bugs #0012922,
 #0012446)

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

diff --git a/lcl/include/treeview.inc b/lcl/include/treeview.inc
index 8e665e6ae7..7c6c51e861 100644
--- a/lcl/include/treeview.inc
+++ b/lcl/include/treeview.inc
@@ -4553,6 +4553,9 @@ begin
     end;
   end;
 
+  if not Focused and CanFocus then
+    SetFocus;
+
   inherited MouseDown(Button, Shift, X, Y);
 
   CursorNode := GetNodeAt(X, Y);