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

LCL: treeview: High-DPI: use 0 for default (automatic) expand size

Browse Source 
git-svn-id: trunk@54239 -
This commit is contained in:
ondrej 2017-02-21 20:47:57 +00:00
parent eb5e2e2060
commit a597ac1006
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/comctrls.pp
View File

@ -3574,7 +3574,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 SetExpandSignSize default -1; // use -1 for default
property ExpandSignSize: integer read FExpandSignSize write SetExpandSignSize default 0; // use 0 for default
property ExpandSignType: TTreeViewExpandSignType
read FExpandSignType write SetExpandSignType default tvestTheme;
property Images: TCustomImageList read FImages write SetImages;

4
lcl/include/treeview.inc
View File

@ -3208,7 +3208,7 @@ begin
// FBackgroundColor := clWindow;
FDefItemHeight := DefaultTreeNodeHeight;
FExpandSignType := tvestTheme;
FExpandSignSize := -1;
FExpandSignSize := 0;
Details := ThemeServices.GetElementDetails(ttGlyphOpened);
FThemeExpandSignSize := ThemeServices.GetDetailSize(Details).cx;
FTreeNodes := CreateNodes;
@ -4487,7 +4487,7 @@ end;
function TCustomTreeView.GetRealExpandSignSize: integer;
begin
if FExpandSignSize>=0 then
if FExpandSignSize>0 then
Result := FExpandSignSize
else
if ExpandSignType = tvestTheme then