From 4c8f5ccea8ee23d1cebd461854b80f3a3c2931cb Mon Sep 17 00:00:00 2001
From: Joachim Marder <joachim.marder@outlook.com>
Date: Sat, 30 Nov 2019 12:20:02 +0100
Subject: [PATCH] Issue #936: TVTHeader.DragTo() is now virtual.

---
 Source/VirtualTrees.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Source/VirtualTrees.pas b/Source/VirtualTrees.pas
index 6f37418bd..341fdd912 100644
--- a/Source/VirtualTrees.pas
+++ b/Source/VirtualTrees.pas
@@ -1355,7 +1355,7 @@   TVTHeader = class(TPersistent)
     function DoHeightTracking(var P: TPoint; Shift: TShiftState): Boolean; virtual;
     function DoHeightDblClickResize(var P: TPoint; Shift: TShiftState): Boolean; virtual;
     procedure DoSetSortColumn(Value: TColumnIndex; pSortDirection: TSortDirection); virtual;
-    procedure DragTo(P: TPoint);
+    procedure DragTo(P: TPoint); virtual;
     procedure FixedAreaConstraintsChanged(Sender: TObject);
     function GetColumnsClass: TVirtualTreeColumnsClass; virtual;
     function GetOwner: TPersistent; override;
@@ -25305,7 +25305,7 @@ procedure TBaseVirtualTree.UpdateDesigner;
 
 //----------------------------------------------------------------------------------------------------------------------
 
-procedure TBaseVirtualTree.UpdateHeaderRect;
+procedure TBaseVirtualTree.UpdateHeaderRect();
 
 // Calculates the rectangle the header occupies in non-client area.
 // These coordinates are in window rectangle.