From 95b9f913d4083b2ddb7ad4bae0f05c2c157f5da6 Mon Sep 17 00:00:00 2001
From: dmitry <dmitry@lazarus-ide.org>
Date: Fri, 24 May 2019 15:26:49 +0000
Subject: [PATCH] treeview: calling UpdateScrollbars on resizing, expand,
 collapse or selection move. Removed UpdateScrollbars from the darwing.
 Prevents Cocoa drawing (upside down) glitch. #34334

git-svn-id: trunk@61288 -
---
 lcl/include/treeview.inc | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lcl/include/treeview.inc b/lcl/include/treeview.inc
index f894201a3c..5a5112db45 100644
--- a/lcl/include/treeview.inc
+++ b/lcl/include/treeview.inc
@@ -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;