From 3edf14c213a27e2d3a6a826d6fae3bdb897c3e2a Mon Sep 17 00:00:00 2001
From: micha <micha@lazarus-ide.org>
Date: Wed, 19 May 2004 18:41:19 +0000
Subject: [PATCH] disable custom drawn border by default for treeview (already
 has borderstyle=bsSingle

git-svn-id: trunk@5484 -
---
 lcl/comctrls.pp          | 5 ++++-
 lcl/include/treeview.inc | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp
index 484c956322..c851ccf6c4 100644
--- a/lcl/comctrls.pp
+++ b/lcl/comctrls.pp
@@ -2060,7 +2060,7 @@ type
   public
     property BackgroundColor: TColor
       read FBackgroundColor write SetBackgroundColor default clWhite;
-    property BorderWidth default 2;
+    property BorderWidth default 0;
     property BottomItem: TTreeNode read GetBottomItem write SetBottomItem;
     property DefaultItemHeight: integer
       read FDefItemHeight write SetDefaultItemHeight default 20;
@@ -2255,6 +2255,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.124  2004/05/19 18:41:19  micha
+  disable custom drawn border by default for treeview (already has borderstyle=bsSingle
+
   Revision 1.123  2004/05/18 23:10:41  marc
   * Started to move TListview to the WS interface
 
diff --git a/lcl/include/treeview.inc b/lcl/include/treeview.inc
index e93456bff3..cf7530db2a 100644
--- a/lcl/include/treeview.inc
+++ b/lcl/include/treeview.inc
@@ -2591,7 +2591,7 @@ begin
   FExpandSignSize:=9;
   FTreeNodes := TTreeNodes.Create(Self);
   FBorderStyle := bsSingle;
-  BorderWidth := 2;
+  BorderWidth := 0;
   FOptions := DefaultTreeViewOptions;
   Items.KeepCollapsedNodes:=KeepCollapsedNodes;
   FScrollBars:=ssBoth;