Do not draw selection when cclick in header

Author: blikblum

Source/VirtualTrees.pas

@@ -9886,6 +9886,9 @@ function TVTHeader.HandleMessage(var Message: TLMessage): Boolean;
         with TLMLButtonDblClk(Message) do
           P := Point(XPos, YPos);
 
+        IsInHeader := InHeader(P);
+        Result := IsInHeader;
+
         if (hoHeightDblClickResize in FOptions) and InHeaderSplitterArea(P) and (FDefaultHeight > 0) then
         begin
           if DoHeightDblClickResize(P, GetShiftState) and (FDefaultHeight > 0) then
@@ -9901,7 +9904,7 @@ function TVTHeader.HandleMessage(var Message: TLMessage): Boolean;
           Message.Result := 0;
           Result := True;
         end
-        else if InHeader(P) and (Message.Msg <> LM_LBUTTONDBLCLK) then
+        else if IsInHeader and (Message.Msg <> LM_LBUTTONDBLCLK) then
         begin
           case Message.Msg of
             LM_MBUTTONDBLCLK:
@@ -9972,9 +9975,9 @@ function TVTHeader.HandleMessage(var Message: TLMessage): Boolean;
               // Disabled columns do not start a drag operation because they can't be clicked.
               Include(FStates, hsDragPending);
               SetCapture(Treeview.Handle);
-              Result := True;
               Message.Result := 0;
             end;
+            Result := True;
           end;
 
         // This is a good opportunity to notify the application.
@@ -23864,9 +23867,11 @@ procedure TBaseVirtualTree.WndProc(var Message: TLMessage);
           //lclheader
           //let the header handle the message here
           //otherwise no header click event will be fired
-          FHeader.HandleMessage(Message);
-          ControlState := ControlState + [csLButtonDown];
-          Dispatch(Message);  // overrides TControl's BeginDrag
+          if not FHeader.HandleMessage(Message) then
+          begin
+            ControlState := ControlState + [csLButtonDown];
+            Dispatch(Message);  // overrides TControl's BeginDrag
+          end;
         end;
       end;
     end;