From 838bb221d32dae047ddb0d68ea6c280419112178 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Tue, 21 Apr 2009 14:52:32 +0000
Subject: [PATCH] LCL: don't expand/collapse on mouse click if
 treeview.ShowButtons is false based on idea from LU-HO (issue #13216)

git-svn-id: trunk@19557 -
---
 lcl/include/treeview.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/include/treeview.inc b/lcl/include/treeview.inc
index ad1329eef6..44e09b6125 100644
--- a/lcl/include/treeview.inc
+++ b/lcl/include/treeview.inc
@@ -4669,7 +4669,7 @@ begin
   if ([ssDouble,ssTriple,ssQuad]*Shift)=[] then begin
     if (Button = mbLeft) and (CursorNode<>nil) then begin
       Exclude(fStates,tvsWaitForDragging);
-      if CursorNode.HasChildren
+      if CursorNode.HasChildren and ShowButtons
       and (LogicalX>=CursorNode.DisplayExpandSignLeft)
       and (LogicalX<CursorNode.DisplayExpandSignRight) then begin
         // mousedown occured on expand sign -> expand/collapse