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

LCL, TreeView: fix the logic for allocating an array for visible nodes

Browse Source 
git-svn-id: trunk@34663 -
This commit is contained in:
juha 2012-01-08 12:42:52 +00:00
parent da787feb8d
commit 6066424d39
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/treeview.inc
View File

@ -78,18 +78,20 @@ function IndexOfNodeAtTop(NodeArray: TTreeNodeArray; Count, y: integer): integer
// returns index of Node with Node.Top <= y < Node[+1].Top
var
l, m, r, VisibleCount: integer;
VisibleNodesAlloc: Boolean;
VisibleNodes: TTreeNodeArray;
begin
if (Count = 0) or (NodeArray = nil) then
Exit(-1);
// Count the visible nodes
VisibleCount := 0;
VisibleNodesAlloc := False;
for l := 0 to Count-1 do
if NodeArray[l].Visible then
Inc(VisibleCount);
try
// Make a temporary array of visible nodes
if VisibleCount > 0 then begin
// Make a temporary array of visible nodes if there are hidden nodes
if VisibleCount < Count then begin
GetMem(VisibleNodes,SizeOf(Pointer)*VisibleCount);
m := 0;
for l := 0 to Count-1 do
@ -98,6 +100,7 @@ begin
Inc(m);
end;
Count := VisibleCount;
VisibleNodesAlloc := True;
end
else
VisibleNodes := NodeArray;
@ -117,7 +120,7 @@ begin
end;
Result := -1;
finally
if VisibleCount > 0 then
if VisibleNodesAlloc then
Freemem(VisibleNodes);
end;
end;