paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 21:19:07 +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; procedure MakeSelectionVisible;
public public
property BackgroundColor: TColor property BackgroundColor: TColor
read FBackgroundColor write SetBackgroundColor default clWhite; read FBackgroundColor write SetBackgroundColor default clWindow;
property BorderWidth default 0; property BorderWidth default 0;
property BottomItem: TTreeNode read GetBottomItem write SetBottomItem; property BottomItem: TTreeNode read GetBottomItem write SetBottomItem;
property DefaultItemHeight: integer property DefaultItemHeight: integer

3
lcl/include/treeview.inc
View File

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