Source position: virtualtrees.pas line 1777
type TVTBeforeGetMaxColumnWidthEvent = procedure(
Sender: TVTHeader;
Column: TColumnIndex;
var UseSmartColumnWidth: Boolean
) of object;