From b60d60f7b6b17f2fad0978d13cb2864c070cdfb9 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Fri, 23 Apr 2010 02:36:11 +0000
Subject: [PATCH] lcl: don't allow intersection of tree lines with expand sign

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

diff --git a/lcl/include/treeview.inc b/lcl/include/treeview.inc
index 694a1a4a85..893a3f6543 100644
--- a/lcl/include/treeview.inc
+++ b/lcl/include/treeview.inc
@@ -4286,6 +4286,17 @@ var
         if (CurNode.GetNextSibling <> nil) then
         begin
           // draw vertical line to next brother
+          if (CurNode = Node) and HasExpandSign then
+          begin
+            if (Node.Parent = nil) and (Node.GetPrevSibling = nil) then
+              DrawVertLine(CurMid, VertMid + FExpandSignSize div 2, NodeRect.Bottom)
+            else
+            begin
+              DrawVertLine(CurMid, NodeRect.Top, Max(NodeRect.Top, VertMid - FExpandSignSize div 2));
+              DrawVertLine(CurMid, VertMid + FExpandSignSize div 2, NodeRect.Bottom - 1);
+            end;
+          end
+          else
           if (Node.Parent = nil) and (Node.GetPrevSibling = nil) then
             DrawVertLine(CurMid, VertMid, NodeRect.Bottom)
           else