paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 23:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Use TreeLinePenStyle in all places where line drawing is done, part of issue #12470

Browse Source 
git-svn-id: trunk@17110 -
This commit is contained in:
vincents 2008-10-23 19:51:20 +00:00
parent 6b61f8046b
commit 55b0e6d247
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/treeview.inc
View File

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