Fix selection draw in empty areas when header is visible

Author: blikblum

Source/VirtualTrees.pas

@@ -28772,6 +28772,9 @@ procedure TBaseVirtualTree.PaintTree(TargetCanvas: TCanvas; const Window: TRect;
           if DrawSelectionRect then
           begin
             R := OrderRect(FNewSelRect);
+            //lclheader
+            if hoVisible in FHeader.Options then
+              OffsetRect(R, 0, FHeader.Height);
             // Remap the selection rectangle to the current window of the tree.
             // Since Target has been used for other tasks BaseOffset got the left extent of the target position here.
             OffsetRect(R, -Target.X + BaseOffset - Window.Left, -Target.Y + FOffsetY);