From ee218d1fa0a65dcaf21936c3db13f0dd9b47ff89 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 14 Aug 2023 15:08:23 +0200
Subject: [PATCH] lcl: TTreeView: public ScrolledLeft/Top, PathDelimiter

---
 lcl/comctrls.pp          | 17 +++++++++++------
 lcl/include/treeview.inc |  5 +++++
 2 files changed, 16 insertions(+), 6 deletions(-)

diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp
index 62972168c3..1ae2ad1c45 100644
--- a/lcl/comctrls.pp
+++ b/lcl/comctrls.pp
@@ -3268,13 +3268,14 @@ type
       Data: Pointer): TTreeNode;
     function IsMultiSelection: boolean;
     procedure Assign(Source: TPersistent); override;
-    procedure BeginUpdate;
-    procedure Clear;
+    procedure BeginUpdate; virtual;
+    procedure Clear; virtual;
     procedure ClearMultiSelection(ClearSelected: boolean = false);
-    procedure ConsistencyCheck;
-    procedure Delete(Node: TTreeNode);
-    procedure EndUpdate;
-    procedure FreeAllNodeData;
+    procedure ConsistencyCheck; virtual;
+    procedure Delete(Node: TTreeNode); virtual;
+    procedure EndUpdate; virtual;
+    function IsUpdating: boolean; virtual;
+    procedure FreeAllNodeData; virtual;
     procedure SelectionsChanged(ANode: TTreeNode; const AIsSelected: Boolean);
     procedure SelectOnlyThis(Node: TTreeNode);
     procedure MultiSelect(Node: TTreeNode; ClearWholeSelection: Boolean);
@@ -3780,6 +3781,10 @@ type
   { TTreeView }
 
   TTreeView = class(TCustomTreeView)
+  public
+    property PathDelimiter;
+    property ScrolledLeft;
+    property ScrolledTop;
   published
     property Align;
     property Anchors;
diff --git a/lcl/include/treeview.inc b/lcl/include/treeview.inc
index eadbdd8bb4..4e152fc9ec 100644
--- a/lcl/include/treeview.inc
+++ b/lcl/include/treeview.inc
@@ -2756,6 +2756,11 @@ begin
   end;
 end;
 
+function TTreeNodes.IsUpdating: boolean;
+begin
+  Result:=FUpdateCount>0;
+end;
+
 procedure TTreeNodes.FreeAllNodeData;
 var
   i: Integer;