From 55b0e6d247429ac301285d265803df0907872bd2 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Thu, 23 Oct 2008 19:51:20 +0000
Subject: [PATCH] LCL: Use TreeLinePenStyle in all places where line drawing is
 done, part of issue #12470

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

diff --git a/lcl/include/treeview.inc b/lcl/include/treeview.inc
index 085e928232..a14751b1a8 100644
--- a/lcl/include/treeview.inc
+++ b/lcl/include/treeview.inc
@@ -4217,7 +4217,7 @@ var
         with Canvas do begin
           // draw virtual tree line
           Pen.Color:=TreeLineColor;
-          Pen.Style:=psDot;
+          Pen.Style:=TreeLinePenStyle;
           x:=Node.DisplayExpandSignRight+Indent div 2;
           MoveTo(x,NodeRect.Bottom-3);
           LineTo(x,NodeRect.Bottom-2);
@@ -4240,7 +4240,7 @@ var
         with Canvas do begin
           // draw virtual tree line
           Pen.Color:=TreeLineColor;
-          Pen.Style:=psDot;
+          Pen.Style:=TreeLinePenStyle;
           x:=Node.DisplayExpandSignLeft+Indent div 2;
           MoveTo(x,NodeRect.Top+1);
           x:=Node.DisplayExpandSignRight;
@@ -4262,7 +4262,7 @@ var
         with Canvas do begin
           // draw virtual tree line
           Pen.Color:=TreeLineColor;
-          Pen.Style:=psDot;
+          Pen.Style:=TreeLinePenStyle;
           x:=Node.DisplayExpandSignLeft+Indent div 2;
           MoveTo(x,NodeRect.Bottom-3);
           LineTo(x,NodeRect.Bottom-2);