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

VTV: Fix wrong node.TotalHeight. Issue #40401

Browse Source
This commit is contained in:
Martin 2023-07-23 23:15:39 +02:00
parent a0179e8133
commit 24dfc32172
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/virtualtreeview/laz.virtualtrees.pas
View File

@ -23512,7 +23512,7 @@ begin
AdjustTotalCount(Destination.Parent, Node.TotalCount, True);
// Add the new node's height only if its parent is expanded.
if FullyVisible[Node] then
if (vsExpanded in Node.Parent.States) and (vsVisible in Node.States) then
begin
AdjustTotalHeight(Destination.Parent, Node.TotalHeight, True);
Inc(FVisibleCount, CountVisibleChildren(Node) + Cardinal(IfThen(IsEffectivelyVisible[Node], 1)));
@ -23543,7 +23543,7 @@ begin
AdjustTotalCount(Destination.Parent, Node.TotalCount, True);
// Add the new node's height only if its parent is expanded.
if FullyVisible[Node] then
if (vsExpanded in Node.Parent.States) and (vsVisible in Node.States) then
begin
AdjustTotalHeight(Destination.Parent, Node.TotalHeight, True);
Inc(FVisibleCount, CountVisibleChildren(Node) + Cardinal(IfThen(IsEffectivelyVisible[Node], 1)));
@ -23580,7 +23580,7 @@ begin
Include(Destination.States, vsHasChildren);
AdjustTotalCount(Destination, Node.TotalCount, True);
// Add the new node's height only if its parent is expanded.
if FullyVisible[Node] then
if (vsExpanded in Node.Parent.States) and (vsVisible in Node.States) then
begin
AdjustTotalHeight(Destination, Node.TotalHeight, True);
Inc(FVisibleCount, CountVisibleChildren(Node) + Cardinal(IfThen(IsEffectivelyVisible[Node], 1)));
@ -23612,7 +23612,7 @@ begin
Include(Destination.States, vsHasChildren);
AdjustTotalCount(Destination, Node.TotalCount, True);
// Add the new node's height only if its parent is expanded.
if FullyVisible[Node] then
if (vsExpanded in Node.Parent.States) and (vsVisible in Node.States) then
begin
AdjustTotalHeight(Destination, Node.TotalHeight, True);
Inc(FVisibleCount, CountVisibleChildren(Node) + Cardinal(IfThen(IsEffectivelyVisible[Node], 1)));