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

LCL: TTreeView: fix signs for r55110 #73e1e2caee

Browse Source 
git-svn-id: trunk@55112 -
This commit is contained in:
ondrej 2017-05-28 07:58:19 +00:00
parent d8490f1c3c
commit be769b3feb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/treeview.inc
View File

@ -4544,7 +4544,7 @@ end;
function TCustomTreeView.GetExpandSignSize: integer;
begin
if FExpandSignSize>0 then
if FExpandSignSize>=0 then
Result := FExpandSignSize
else
if ExpandSignType = tvestTheme then
@ -4555,7 +4555,7 @@ end;
function TCustomTreeView.GetIndent: Integer;
begin
if FIndent=0 then
if FIndent<0 then
Result := Scale96ToFont(15)
else
Result := FIndent;