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

treeview: calling UpdateScrollbars on resizing, expand, collapse or selection move. Removed UpdateScrollbars from the darwing. Prevents Cocoa drawing (upside down) glitch. #34334

Browse Source 
git-svn-id: trunk@61288 -
This commit is contained in:
dmitry 2019-05-24 15:26:49 +00:00
parent d4240fda12
commit 95b9f913d4
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/treeview.inc
View File

@ -4783,7 +4783,7 @@ begin
Exclude(FStates,tvoFocusedPainting);
if (tvoAutoItemHeight in fOptions) then
UpdateDefaultItemHeight;
UpdateScrollbars;
//UpdateScrollbars;
with Canvas do
begin
if IsCustomDrawn(dtControl, cdPrePaint) then
@ -5422,6 +5422,7 @@ end;
procedure TCustomTreeView.Expand(Node: TTreeNode);
begin
UpdateScrollbars;
if Assigned(FOnExpanded) then FOnExpanded(Self, Node);
end;
@ -5438,6 +5439,7 @@ end;
procedure TCustomTreeView.Collapse(Node: TTreeNode);
begin
UpdateScrollbars;
if Assigned(FOnCollapsed) then FOnCollapsed(Self, Node);
end;
@ -5771,6 +5773,8 @@ begin
end else
Selected := ANewNode;
ANewNode.MakeVisible;
UpdateScrollbars;
end;
procedure TCustomTreeView.MouseLeave;
@ -6011,6 +6015,7 @@ procedure TCustomTreeView.Resize;
begin
FStates:=FStates+[tvsScrollbarChanged,tvsBottomItemNeedsUpdate];
inherited Resize;
UpdateScrollbars;
end;
function TCustomTreeView.GetSelectedChildAccessibleObject: TLazAccessibleObject;