paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 19:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

disable custom drawn border by default for treeview (already has borderstyle=bsSingle

Browse Source 
git-svn-id: trunk@5484 -
This commit is contained in:
micha 2004-05-19 18:41:19 +00:00
parent ae6aebdfa7
commit 3edf14c213
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/comctrls.pp
View File

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

2
lcl/include/treeview.inc
View File

@ -2591,7 +2591,7 @@ begin
FExpandSignSize:=9;
FTreeNodes := TTreeNodes.Create(Self);
FBorderStyle := bsSingle;
BorderWidth := 2;
BorderWidth := 0;
FOptions := DefaultTreeViewOptions;
Items.KeepCollapsedNodes:=KeepCollapsedNodes;
FScrollBars:=ssBoth;