Source position: virtualtrees.pas line 1753
type TVTHeaderHeightDblClickResizeEvent = procedure(
Sender: TVTHeader;
var P: TPoint;
Shift: TShiftState;
var Allowed: Boolean
) of object;