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

lcl: skip not expanded nodes when we count max right (bug #0012799)

Browse Source 
git-svn-id: trunk@18191 -
This commit is contained in:
paul 2009-01-07 16:00:53 +00:00
parent 12e937579c
commit e163b4a2dc
1 changed files with 31 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
lcl/include/treeview.inc
View File

@ -3105,39 +3105,50 @@ begin
end;
procedure TCustomTreeView.UpdateMaxRight;
var Node: TTreeNode;
var
Node: TTreeNode;
i: integer;
FMaxTextLen: Integer;
Cnt: Integer;
begin
if not (tvsMaxRightNeedsUpdate in FStates) then exit;
FMaxRight:=0;
FMaxTextLen:=0;
Node:=Items.GetFirstNode;
Cnt:=0;
while Node<>nil do begin
FMaxRight := 0;
FMaxTextLen := 0;
Node := Items.GetFirstNode;
Cnt := 0;
while Node <> nil do
begin
if not Node.AreParentsExpanded then
begin
Node := Node.GetNext;
Continue;
end;
inc(Cnt);
if (Cnt<100) then begin
i:=Node.DisplayTextRight;
end else begin
if (Cnt < 100) then
begin
i := Node.DisplayTextRight;
end else
begin
// computing DisplayTextRight is too expensive when the tree
// has hundreds of nodes
// => use a heuristic
if Cnt=100 then
i:=Node.DisplayTextRight+100
else if length(Node.Text)>FMaxTextLen then
i:=Node.DisplayTextRight+100
if Cnt = 100 then
i := Node.DisplayTextRight + 100
else
i:=FMaxRight;
if length(Node.Text) > FMaxTextLen then
i := Node.DisplayTextRight + 100
else
i := FMaxRight;
end;
if FMaxRight<i then begin
FMaxRight:=i;
FMaxTextLen:=length(Node.Text);
if FMaxRight < i then
begin
FMaxRight := i;
FMaxTextLen := length(Node.Text);
end;
Node:=Node.GetNext;
Node := Node.GetNext;
end;
Exclude(FStates,tvsMaxRightNeedsUpdate);
Include(FStates,tvsScrollbarChanged);
Exclude(FStates, tvsMaxRightNeedsUpdate);
Include(FStates, tvsScrollbarChanged);
end;
procedure TCustomTreeView.UpdateTopItem;