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

use clWindow instead of clWhite for TreeView background (hint by rysiek|pl)

Browse Source 
git-svn-id: trunk@13982 -
This commit is contained in:
paul 2008-02-05 23:19:59 +00:00
parent 609b0b0a2d
commit 778b98c928
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/comctrls.pp
View File

@ -2356,7 +2356,7 @@ type
procedure MakeSelectionVisible;
public
property BackgroundColor: TColor
read FBackgroundColor write SetBackgroundColor default clWhite;
read FBackgroundColor write SetBackgroundColor default clWindow;
property BorderWidth default 0;
property BottomItem: TTreeNode read GetBottomItem write SetBottomItem;
property DefaultItemHeight: integer

3
lcl/include/treeview.inc
View File

@ -2707,7 +2707,7 @@ begin
Height := 97;
TabStop := True;
ParentColor := False;
FBackgroundColor := clWhite;
FBackgroundColor := clWindow;
FDefItemHeight:=20;
FExpandSignType:=tvestPlusMinus;
FExpandSignSize:=9;
@ -2732,7 +2732,6 @@ begin
FStates:=[tvsMaxLvlNeedsUpdate,tvsMaxRightNeedsUpdate,tvsScrollbarChanged];
FTreeLineColor := cl3DLight;
FExpandSignColor := clWindowFrame;
end;
destructor TCustomTreeView.Destroy;