Source position: treegrids.pas line 2052
type TTGAfterGetMaxColumnWidthEvent = procedure(
Sender: TTGHeader;
Column: TColumnIndex;
var MaxWidth: Integer
) of object;