paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 17:40:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: don't allow intersection of tree lines with expand sign

Browse Source 
git-svn-id: trunk@24843 -
This commit is contained in:
paul 2010-04-23 02:36:11 +00:00
parent 41021392cb
commit b60d60f7b6
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/include/treeview.inc
View File

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