paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 03:48:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: added DefaultTreeNodeExpandSignSize

Browse Source 
git-svn-id: trunk@53323 -
This commit is contained in:
mattias 2016-11-08 22:25:57 +00:00
parent 570ce6207c
commit e2c21deb0f
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/comctrls.pp
View File

@ -3199,6 +3199,7 @@ const
tvoKeepCollapsedNodes, tvoAutoItemHeight, tvoThemedDraw];
DefaultMultiSelectStyle = [msControlSelect];
DefaultTreeNodeHeight = 20;
DefaultTreeNodeExpandSignSize = 9;
type
TTreeViewExpandSignType = (
@ -3545,7 +3546,7 @@ type
property DefaultItemHeight: integer read FDefItemHeight write SetDefaultItemHeight default DefaultTreeNodeHeight;
property DropTarget: TTreeNode read GetDropTarget write SetDropTarget;
property ExpandSignColor: TColor read FExpandSignColor write FExpandSignColor default clWindowFrame;
property ExpandSignSize: integer read FExpandSignSize write FExpandSignSize;
property ExpandSignSize: integer read FExpandSignSize write FExpandSignSize default DefaultTreeNodeExpandSignSize;
property ExpandSignType: TTreeViewExpandSignType
read FExpandSignType write SetExpandSignType default tvestTheme;
property InsertMarkNode: TTreeNode read FInsertMarkNode write SetInsertMarkNode;

2
lcl/include/treeview.inc
View File

@ -4375,7 +4375,7 @@ begin
FExpandSignSize := ThemeServices.GetDetailSize(Details).cx;
end
else
FExpandSignSize := 9;
FExpandSignSize := DefaultTreeNodeExpandSignSize;
end;
procedure TCustomTreeView.SetExpandSignType(Value: TTreeViewExpandSignType);