Source position: vtheaderpopup.pas line 46
type TColumnChangeEvent = procedure(
const Sender: TBaseVirtualTree;
const Column: TColumnIndex;
Visible: Boolean
) of object;